How does perl compare two files
This article mainly introduces the relevant knowledge of "how perl compares two files". The editor shows you the operation process through an actual case. The operation method is simple and fast, and it is practical. I hope this article "how to compare two files in perl" can help you solve the problem.
# compare two files
#! / usr/bin/perl
Use strict
Use warnings
# use PerlIO::gzip
Open IN1, "$ARGV [0]" or die $!; # # Open File 1
Open (IN2, "$ARGV [1]") or die $!; # # Open File 2
Open (OUT, "> $ARGV [2]") or die $!; # # Open the result file (empty at this time)
My hash= ()
My $ass
While () {# # read file 1 by line
Chomp; # # remove newline characters
My @ arr=split /\ sbadge paddles; # # separated by whitespace
My $ID=$arr [0]; # # extract the columns to be compared
$hash {$ID} = 1; # # hash defines keys and values
}
While () {
Chomp
$ass=$_
My @ as=split /\ Shumbler
My $ae=$as [0]
If (exists $hash {$ae}) {# # cycle to determine whether there is a key value
Print OUT "$ass"; # # output to a file opened by the OUT handle
}
}
Close IN1
Close IN2
Close OUT
This is the end of the introduction on "how perl compares two files". Thank you for your reading. If you want to know more about the industry, you can follow the industry information channel. The editor will update different knowledge points for you every day.
