perl腳本將字符串EXP501.1-01.0轉換爲EXP501_01

Question

我想串

EXP501.1-01.0

到

EXP501_01

轉換

這意味着-01,-02,-03 ...是增量式的，我想追加第二個字符串（將根據第一個字符串進行分析）的_旁邊的第一個字符串中的相同數字。

Answer 1

my $string = "EXP501.1-01.0"; 
    $short = substr($string, 0, -7); 
    $new = substr($string,8,-2); 
    my $str = $short . $new; 
    $str =~ s/ - /_/g; # Replace all " - " with "_" 
    $str =~ s/[^A-Za-z0-9]/_/g; # Replace all non-alphanumericals with "_" 

    print $str . "\n";