从路径捕获子目录

Question

my $path= "/tmp/main/store/important/file/log"; ##string

$path =~ m/file/;

print "$&/$'\n";

我要捕获file/log/.*/.*/ .. . . .. file/log/.*/.*/ .. . . ..

路径可能会有所不同，还有其他解决方法吗？

多谢你们

Answer 1

只需使用贪婪匹配（ .* ）：

my $path= "/tmp/main/store/important/file/log";
my ($tail) = $path =~ m!(/file/.*)!;
print $tail;  # /file/log

在这里，我还对m//运算符使用了自定义分隔符，以避免转义斜线。