怎么用perl实现的两个文件对比并对数据进行筛选的脚本代码
来源：爱站网时间：2021-11-12编辑：网友分享
对比两个文件并对数据进行筛选的perl脚本，涉及到哈希的应用和perl编程风格的改变。爱站技术小编今天就详细的为大家用一篇文章讲解一下。有需要的朋友可以参考下
#!/usr/bin/perl
my %scyjm;
open (CONTACT,"f:\\perl\\f.txt")||die("can not open the file!");
while (
{
next if /^#/;#if($_=~/^#/的简写
chomp;
my @information =split;# my @information=split/\s+/,$_;的简写
next if(($information[1]=~/\./) && ($information[2]=~/\./));
$scyjm{$information[13]}->{$information[0]}=$information[3];
}
close CONTACT;
open (SC,"f:\\perl\\a.csv")||die("can not open the file!");
while(
{
chomp;
my @sc=split;
if ( $scyjm{$sc[1]}{$sc[2]})
{
print "$sc[0] $sc[1] $sc[2] $sc[3] $sc[4] $sc[6] $yjm[6]\n";
}
}
以上内容就是爱站技术频道小编为大家分享的怎么用perl实现的两个文件对比并对数据进行筛选的脚本代码，看完以上分享之后，大家应该都知道怎么操作了吧。
