如何在Perl中使用正则表达式匹配子目录路径？

Question

我想匹配路径，如/this/is/my/dir/name/anything但不是/this/is/my/dir/name/anything/anything2。换句话说，我想匹配``/ this/is/my/dir/name /`下的第一层上的所有文件和子目录，而不是较低层上的任何内容。

Answer 1

您可以使用dirname功能从File::Basename：

dirname($path) eq '/this/is/my/dir/name' or warn "No match"; 

UPD：如果你喜欢使用正则表达式：

my $dirname = '/this/is/my/dir/name'; 
$path =~ m|^$dirname/[^/]+/?$| or warn "No match"; 

Answer 2

斜杠存在问题的默认分隔符，你风与leaning toothpick problem。幸运的是，Perl 5允许您选择自己的分隔符，如果您使用一般形式：m//。既然你想整个字符串，而不只是一个子串的匹配，你将要使用指定start of string (^) and end of string ($)主播：

if ($dirname =~ m{^/this/is/my/dir/name/anything$}) { 
} 

注：^和$锚由/m modifier（他们改变意味着开始影响和行结束）。如果您打算使用/m修饰符，则可能需要使用\A (start of string) and \Z (end of string or before a newline at the end of the string) or \z (end of string) assertions。