在Perl中如何将单词插入字符串？

然后我尝试在比赛号码（0104）后插入男性，我用样式替换代码

$line=~s/^\d+\s+\d+\s+/male/x；#但是失败了

实际上，我想要输出。多谢各位

male 1 0104 Mike Lee 2:01:48

---

将字符串的开头捕获到

$1

：

1 0104 male Mike Lee 2:01:48

$1

是中描述的特殊变量。

安全方法是

1 0104 male Mike Lee 2:01:48

然后以您想要的任何方式连接

use strict;  
use warnings;  
 
my $fh = \*DATA;   
 
while(my $line = <$fh>) 
{ 
 
    $line =~ s/ ^(\d+\s+\d+\s+) /${1}male /x ;
    print $line ; 
} 
 
__DATA__   
1 0104 Mike Lee 2:01:48

1 0104 male Mike Lee 2:01:48

chomp $line;
@tmp = split / /, $line;