在处理字符串中,我们通常需要替换某个位置的字符,可以采用以下方法:
use strict;
use warnings;
my $str="VTVDGYG|D|CNVHRTE";
$str =~ s/\|.*?\|/R/s;
print "$str\n";
在处理字符串中,我们通常需要替换某个位置的字符,可以采用以下方法:
use strict;
use warnings;
my $str="VTVDGYG|D|CNVHRTE";
$str =~ s/\|.*?\|/R/s;
print "$str\n";