Perl：如何用perl或任何语言的逗号替换_ [0-9]

Question

我有一个具有以下模式的文件 '21pro_ABCD_EDG_10800_48052_2 0.0'

如何用a，（逗号）替换_ [0-9] 这样我就可以得到输出

21pro_ABCD_EDG，10800,48052,2,0.0

Answer 1

要将_[0-9]替换为,，您可以执行this：

$s =~ s/_([0-9])/,$1/g 

#the same without capturing groups
$s =~ s/_(?=[0-9])/,/g;

---

修改 要在2之后获得额外的逗号，您可以执行此操作：

#This puts a , before all whitespace.
$s =~ s/_(?=[0-9])|(?=\s)/,/g;

#This one puts a , between [0-9] and any whitespace
$s =~ s/_(?=[0-9])|(?<=[0-9])(?=\s)/,/g;

Answer 2

sed方法类似于以下内容：

rupert@hake:~ echo '21pro_ABCD_EDG_10800_48052_2 0.0' | sed 's/_\([0-9]\)/,\1/g'
21pro_ABCD_EDG,10800,48052,2 0.0

Answer 3

使用jacob提到的表达式，这里是执行大文件替换的代码片段

#!/usr/local/bin/perl
open (MYFILE, 'test');
while (<MYFILE>) {
    chomp;
    $s=$_;
    $s =~ s/_(?=[0-9])|(?<=[0-9])(?=\s)/,/g;
    $s =~ s/\s//g;
    print "$s\n";
}

关闭（MYFILE）;