這篇文章主要介紹“perl怎么比較兩個文件”的相關知識，小編通過實際案例向大家展示操作過程，操作方法簡單快捷，實用性強，希望這篇“perl怎么比較兩個文件”文章能幫助大家解決問題。
####比較兩個文件
#!/usr/bin/perl
use strict;
use warnings;
#use PerlIO::gzip;
open IN1, "$ARGV[0]" or die $!; ##打開文件1
open (IN2,"$ARGV[1]") or die $!; ##打開文件2
open (OUT,">$ARGV[2]") or die $!; ##打開結果文件（此時為空）
my %hash=();
my $ass;
while(<IN1>){ ##按行讀取文件1
chomp; ##去掉換行符
my @arr=split /\s+/,$_; ##按空格分隔
my $ID=$arr[0]; ##提取需要比較的列
$hash{$ID}=1; ##hash定義鍵和值
}
while(<IN2>){
chomp;
$ass=$_;
my @as=split /\s+/,$ass;
my $ae=$as[0];
if (exists $hash{$ae}){ ##循環判斷，是否存在鍵值
print OUT "$ass"; ##輸出到OUT句柄打開的文件中
}
}
close IN1;
close IN2;
close OUT;
關于“perl怎么比較兩個文件”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識，可以關注億速云行業資訊頻道，小編每天都會為大家更新不同的知識點。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
