如何在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