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

創(chuàng)新互聯(lián)公司長期為近千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為同安企業(yè)提供專業(yè)的成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司，同安網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

####比較兩個文件

#!/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 $!; ##打開結(jié)果文件（此時為空）

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}){      ##循環(huán)判斷，是否存在鍵值

print OUT "$ass";        ##輸出到OUT句柄打開的文件中

}

}

close IN1;

close IN2;

close OUT;   

關(guān)于“perl怎么比較兩個文件”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識，可以關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，小編每天都會為大家更新不同的知識點(diǎn)。

當(dāng)前文章：perl怎么比較兩個文件
瀏覽路徑：http://chinadenli.net/article12/gghigc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、營銷型網(wǎng)站建設(shè)、、網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、網(wǎng)站排名

廣告

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