Perl replace
Perl中没有提供字符串的replace函数，但可以用正则来实现替换 ，好用又方便。my $hms = "23:23:22";
$hms =~ s/\:/\_/;
print "$hms\n";
输出23_23:22.
为毛第二个:还在呢？
s/只能替换字符串中的任意一个。
要想替换所有匹配的，则必须使用/g
my $hms = "23:23:22";
$hms =~ s/\:/\_/g;
print "$hms\n";
输出23_23_22.
/g 为全局匹配。
页:
[1]