perl实现的两个文件对比并对数据进行筛选的脚本代码

青葱年少 • 2023年12月28日下午5:01 • IT • 阅读 77

复制代码代码如下:
#!/usr/bin/perl
my %scyjm;
open (CONTACT,”f:\\perl\\f.txt”)||die(“can not open the file!”);
while (<CONTACT>)
{
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(<SC>)
{
   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实现的两个文件对比并对数据进行筛选的脚本代码

相关推荐