的Perl：如何更換_ [0-9]與Perl中的逗號或任何語言

Question

我有以下模式 「21pro_ABCD_EDG_10800_48052_2 0.0」

文件我如何更換_ [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

戰略經濟對話的做法是類似以下內容：

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"; 
} 

close（MYFILE）;