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