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

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

####比較兩個(gè)文件

#!/usr/bin/perl

use strict;

use warnings;

#use PerlIO::gzip;

open IN1, "$ARGV[0]" or die $!;   ##打開(kāi)文件1

open (IN2,"$ARGV[1]") or die $!;  ##打開(kāi)文件2

open (OUT,">$ARGV[2]") or die $!; ##打開(kāi)結(jié)果文件（此時(shí)為空）

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句柄打開(kāi)的文件中

}

}

close IN1;

close IN2;

close OUT;   

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

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

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

廣告

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