Perl:提取最后一个斜杠和最后一个点之间的字符串(可选)

Question

我的弦是

my $str1 = "/user/admin/music/dangerous-women.1"; (以号码为分机)

my $str2 = "/user/admin/music/dangerous-women"; (无号分机)

my $str3 = "/user/admin/music/dangerous.women.2"; (以号码为分机)

如何使用正则表达式提取dangerous-women和dangerous.women

即，在最后一个斜线和最后一个点之间的任何东西(可选)。所以分数线只是个数字。

Answer 1

在一场比赛中很难做到，所以我不会那样做。

my $base = $str =~ s{.*/}{}sr =~ s{\.\d+\z}{}r;   # 5.14+

如果希望支持早期版本的Perl，可以使用

my $base = $str;
$base =~ s{.*/}{}s;
$base =~ s{\.\d+\z}{};