Bareword 在 Perl 脚本中的 Error 处找到了操作符预期的位置

Question

我有一个在我的本地系统中运行良好的脚本（Windows 10 中的 Cygwin）。

但是当我在 Linux 机器 x86_64 GNU/Linux 上运行相同的时，这显示以下错误：

Bareword found where operator expected at script.pl line 22, near "s/$regex/$1,/rg"
syntax error at script.pl line 22, near "s/$regex/$1,/rg"
Execution of script.pl aborted due to compilation errors.

这是我的脚本：

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $site_name    = $ARGV[0];
my $type_of_site = $ARGV[1];

chomp($site_name);
chomp($type_of_site);

my $var = `sh shell_script.sh $site_name $type_of_site`;
#The above shell script gives me following data in $var
#"Result data [[The Incident result is shown with Node and IP address. error.log warning.log http://10.0.0.11/home/node_data/2020-07-08_data.txt NODE IP NODE1 10.0.0.1 NODE2 10.0.0.2 NODE3 10.0.0.3 NODE4 10.0.0.4 NODE5 10.0.0.5 ]]";

print $var;

my $regex = qr/.*?(?P<Node>\w+)\s(?:(?:\d{1,3}\.){3}\d{1,3}) ?]?]?/mp;

my $result = $var =~ s/$regex/$1,/rg;

chop $result;

my @nodes_list = split /,/, $result;

print Dumper(\@nodes_list);

我正在使用正则表达式从 shell 脚本结果数据中提取节点名称。但是为什么我在 Linux 环境中运行它时会显示错误？

Answer 1

my $result = $var =~ s/$regex/$1,/rg;

我没有那么旧的 perl 版本来测试，但r修饰符是在 5.14 中添加的。如果您使用的是 5.10，我敢打赌这就是您所看到的错误的原因 - 它可以解释为什么它在较新版本上运行良好。Perl 5.10 于 2007 年 12 月发布 - 从那时起有很多工作要做。如果可以，我会升级，可能使用perlbrew.

但与此同时...r返回转换后的字符串的新副本，而不是更改正则表达式绑定到的那个。所以你可以尝试类似的东西

my $result = $var;
$result =~ s/$regex/$1,/g;

作为解决方法。