问Perl :如何在perl或任何语言中用逗号替换a _[0-9]

EN

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

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

#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;

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

#!/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";
}