#!C:\Perl\bin\perl.exe
use strict;
use warnings;
use Data::Dumper;
my $fh = \*DATA;
while(my $line = <$fh>)
{
$line =~ s/ ^/male /x ;
print $line ;
}
__DATA__
1 0104 Mike Lee 2:01:48
输出
male 1 0104 Mike Lee 2:01:48
然后我尝试在比赛编号(0104)之后插入男性,我用样式替换了代码。
$line =~ s/ ^\d+\s+\d+\s+ /male /x ; # but failed
实际上我想要输出。谢谢你。
1 0104 male Mike Lee 2:01:48