如何在perl中匹配一行中的單詞並將其刪除並分別使用它們？

Question

例如在一個Perl的文件時，它是這樣的：

123 abc xyz 
456 abc sdf 
789 abc ghj 

現在從上面的線我需要單獨刪除abc和分配

value 1=123 
value 2= xyz 
value 3= 456 
value 4= sdf 

幫助我如何對上述要求編寫。

Answer 1

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

my $count = 0; 

while (<DATA>) { 
    chomp; 
    for (split/abc /) { 
    $count++; 
    say "value $count=", ($count == 1 ? '' : ' '), $_; 
    } 
} 

__DATA__ 
123 abc xyz 
456 abc sdf 
789 abc ghj 

或者，也許更多數據驅動的方法來確定哪些行省略=後的空間：

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

my %nospace = (
    1 => 1, 
); 

my $count = 0; 

while (<DATA>) { 
    chomp; 
    for (split/abc /) { 
    $count++; 
    say "value $count=", ($nospace{$count} ? '' : ' '), $_; 
    } 
} 

__DATA__ 
123 abc xyz 
456 abc sdf 
789 abc ghj