這篇文章主要介紹“perl怎么比較兩個文件”的相關知識，小編通過實際案例向大家展示操作過程，操作方法簡單快捷，實用性強，希望這篇“perl怎么比較兩個文件”文章能幫助大家解決問題。

創新互聯公司長期為近千家客戶提供的網站建設服務，團隊從業經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯網生態環境。為同安企業提供專業的成都網站設計、做網站、成都外貿網站建設公司，同安網站改版等技術服務。擁有十余年豐富建站經驗和眾多成功案例,為您定制開發。

####比較兩個文件

#!/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怎么比較兩個文件”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識，可以關注創新互聯行業資訊頻道，小編每天都會為大家更新不同的知識點。

當前文章：perl怎么比較兩個文件
瀏覽路徑：http://vcdvsql.cn/article12/gghigc.html

成都網站建設公司_創新互聯，為您提供電子商務、營銷型網站建設、、網站設計、網站建設、網站排名

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯