一个Perl文本处理实例

假设存在file1, file2两个文本文件， 文件每行格式为：
| .* | .*;
要求：求出所有在file2文件中出现的行， 且仅保留双"|"之间的内容。
如： 若存在 |adfdf| dofijaosdjioaf 于file2, file1中不存在该项，则该返回 |adfdf|

参考例程:
#!/usr/bin/perl
use strict;
use warnings;

die "lack compare file/n" if(@ARGV < 2);
my ($file1, $file2) = ($ARGV[0], $ARGV[1]);
my $outfile = "result.out"; # storage result

#-------- format the input file into like this :  |.*|
$^I = ".bak";   # make a copy
while(<>)
{
   s/[^|]*$//;
   print;
   print "/n";
}
#-----------

system "diff $file1 $file2 > temp.out";
open TEMP, "<temp.out" or die "Can not open temporary file/n";
open OUT, ">$outfile" or die "Can not open file:$outfile/n";

my $count=0;
while(<TEMP>)
{
        chomp;
        if(//>(.*)/)
        {
            $count++;
            print OUT "$1/n";
        }
}
print OUT "total sums = $count/n";
close TEMP;
unlink "temp.out";
close OUT;