解决方法
Perl允许将任何非空白字符用作字符串分隔符.见
Quote and Quote-like Operators
包围字符成对使用,例如< ...>,[…],(…)和{…},而单引号则阻止插值.否则,该功能与默认分隔符的功能相同
在这种情况下
$filename =~ s[^.+/][]
是相同的
$filename =~ s/^.+\///
但更具可读性
我倾向于喜欢管道字符|看起来类似于通常的斜线
$filename =~ s|^.+/||
但选择取决于你