regex - 正则表达式从末尾解析字符串直到达到分隔符(Perl)

Question

我需要一个正则表达式来解析文本目录是
/home/foo/bar/hello.txt。
我想获取 hello.txt 并删除目录的其余部分，所以我想删除 home/foo/bar/并且只获取 hello.txt

Answer 1

更新:也应该适用于路径:-)

my ($filename) = $dir =~ m!^.*/(.*)!;

或者

my $filename = (split '/', $dir)[-1];