Shulou(Shulou.com)05/31 Report--

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.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.