一个Perl文本处理实例

最新推荐文章于 2021-01-23 23:56:00 发布

latalata

最新推荐文章于 2021-01-23 23:56:00 发布

阅读量3.7k

点赞数

分类专栏： Perl学习文章标签： perl file input

本文链接：https://blog.csdn.net/latalata/article/details/3597697

版权

Perl学习专栏收录该内容

5 篇文章 0 订阅

订阅专栏

假设存在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;