我正在尝试.url
使用$name =~ s/\.url$//;
. 但是,某些名称在扩展名之前包含一个感叹号,例如:
"for example-this!.url" "and-something-else!.url"
这会导致 perl 发出错误并停止运行:
bash: !.url": event not found
有没有办法克服这个问题?下面显示了我正在使用的部分相关代码:
foreach my $f (@ARGV) {
my (undef, $dir, $name) = File::Spec->splitpath($f);
$name =~ s/\.url$//;