如何在Perl中將字串插入字符串中？

Question

#!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 

然後我試圖插入男性後racenumber（0104），I與風格替換的代碼。

$line =~ s/ ^\d+\s+\d+\s+ /male /x ; # but failed

Acturally我想要的輸出。謝謝。

1 0104 male Mike Lee 2:01:48 

Answer 1

捕獲的字符串的開頭到$1：

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 

更新：$1是perlreref描述一個特殊的變量。

Answer 2

安全的方法是

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

再以任何方式串接你想