awk gsub in perl

Question

我有一个名为test.txt的文件名，内容如下。

cat test.txt 
MOD_12345_67890 

我需要的文件

在摆脱 “mod_个” 我Perl中

my $file = `awk '{gsub("MOD_", "");print}' test.txt`; 

。它删除MOD_并按预期打印12345_67890，但输出后有更多空格。

我的输出语句是

my $new_file = $file . ".dat"; 
print "$new_file"; 

我的输出应该如下。

12345_67890.dat 

，但我得到的输出作为

12345_67890 
.dat 

.DAT在下一行即将

谁能帮我去掉空格或垃圾值后的数字输出应该是12345_67890.dat

Answer 1

Perl默认不处理其输入。这意味着每个输入行的尾随换行符仍然存在，这与Awk不同。您需要输入chomp换行符，或者执行s/$/.dat/之类的操作。或者使用-l选项运行Perl，该选项将从输入中删除换行符并将其添加回输出。

您对gsub的问题不是很清楚。删除前导“MOD_”，s/^MOD_//。在一个表达式中做两个替换，perl -pe 's/^MOD_(.*)$/$1.dat/' test.txt。圆括号将其匹配成$1;附加括号创建额外的反向引用$2，$3等

Answer 2

只要做到：

$file =~ s/^MOD_//; 

将从字符串的开头去掉 “mod_个”。为了模拟awk的GSUB功能为你写它，这样做：

$file =~ s/MOD_//g; 

这将从字符串中的任何去掉‘mod_个’的所有事件。在这种情况下没有理由使用反引号（从来没有理由使用反引号代替qx！）。