The script code that compares two files implemented by Perl and filters the data

Time:2019-6-12
Copy codeThe code is as follows:
#!/usr/bin/perl
my %scyjm; 
open (CONTACT,”f:\\perl\\f.txt”)||die(“can not open the file!”);  
while (<CONTACT>) 

Next if /^#/; if ($= ~/^#/ abbreviation)
  chomp; 
[email protected] = split; # [email protected] = split/ s+/, $; abbreviation
  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”; 
   } 
}

Recommended Today

Rust and python: why rust can replace Python

In this guide, we compare the rust and python programming languages. We will discuss the applicable use cases in each case, review the advantages and disadvantages of using rust and python, and explain why rust might replace python. I will introduce the following: What is rust? What is Python? When to use rust When to […]