Perl对文件基本处理

test.perl:

use strict;

print "[weights]", "\n";
while (<STDIN>) {     
    chomp;
    my @a = split /\|/;
    s/\s+$//g foreach @a;
    $a[2] =~ s/\..+$//g;
    print $a[2], "=", $a[7], "\n" if $a[1] eq "000300";
}
print "\n";

 

输入示例：cat Test.txt | perl test.perl

 

命令行输入文件名称,Perl按STDIN标准形式读入，my @a = split /\|/; 按|把每行进行分割。s/\s+$//g foreach @a;去掉分割之后每个字串之后的空格。$a[2] =~ s/\..+$//g;去掉a[2]字串后的后缀名。print $a[2], "=", $a[7], "\n" if $a[1] eq "000300";进行输出操作。

 

test2.perl:

use strict;

print "[divisor]", "\n";

while (<STDIN>) {
    chomp;
    my @a = split /\|/;
    s/\s+$//g foreach @a;    
    print "000300=", $a[2], "\n" if ($a[1] eq "000300");
}

 

输入示例：cat Test_2.txt | perl test2.perl