从路径捕获子目录

Question

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

$path =~ m/file/;

print "$&/$'\n";

我想抓拍file/log/.*/.*/ .. . . ..

路径可能会有所不同，还有其他方法可以解决这个问题吗？

谢谢你们

Answer 1

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

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

这里我还为m//运算符使用自定义分隔符，以避免转义斜杠。