如何在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。