使用perl,如何处理从命令行输入中获取的正则表达式？

发布时间：2020-12-16 06:20:40 所属栏目：大数据来源：网络整理

导读：我正在创建一个脚本来从命令行获取正则表达式输入并处理它;这样的事情： chomp(my $regex = $ARGV[0]);my $name = '11528734-3.jpg';$name =~ $regex;print $name . "n"; 我对脚本的输入是：“s / .jpg / _thumbnail.jpg / g” 但是$name没有从命令行处理正

我正在创建一个脚本来从命令行获取正则表达式输入并处理它;这样的事情：

chomp(my $regex = $ARGV[0]);
my $name = '11528734-3.jpg';

$name =~ $regex;

print $name . "n";

我对脚本的输入是：“s / .jpg / _thumbnail.jpg / g”
但是$name没有从命令行处理正则表达式输入.

有关如何使这项工作的任何建议？

谢谢！

解决方法

使用$name =?$regex不会改变您的$name.您必须使用s ///运算符来实现任何更改.

例如.,

$name =~ s/$pattern/$replacement/;

如果要在同一参数中指定模式和替换,例如,以s / foo / bar /的形式,则必须先将它们拆分：

my (undef,$pattern,$replacement) = split '/',$regex;
$name =~ s/$pattern/$replacement/;

原始答案：

使用qr //：

$name =~ qr/$regex/;

您也可以使用$name =?/ $regex /,但qr版本更通用,因为您可以存储正则表达式对象供以后使用：

$compiled = qr/$regex/;
$name =~ $compiled;
$name =~ s/$compiled/foobar/;

等等

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!