Perl对文件基本处理
test.perl:use strict;
print "", "\n";
while (<STDIN>) {
chomp;
my @a = split /\|/;
s/\s+$//g foreach @a;
$a =~ s/\..+$//g;
print $a, "=", $a, "\n" if $a eq "000300";
}
print "\n";
输入示例：cat Test.txt | perl test.perl
命令行输入文件名称,Perl按STDIN标准形式读入，my @a = split /\|/; 按|把每行进行分割。s/\s+$//g foreach @a;去掉分割之后每个字串之后的空格。$a =~ s/\..+$//g;去掉a字串后的后缀名。print $a, "=", $a, "\n" if $a eq "000300";进行输出操作。
test2.perl:
use strict;
print "", "\n";
while (<STDIN>) {
chomp;
my @a = split /\|/;
s/\s+$//g foreach @a;
print "000300=", $a, "\n" if ($a eq "000300");
}
输入示例：cat Test_2.txt | perl test2.perl
页:
[1]