perl比較兩個文件字符串的實例代碼
更新時間：2013年02月09日 23:25:16 作者：
perl比較兩個文件字符串的例子，供大家學(xué)習(xí)參考
需求：取文件1中的一行，和文件2中所有的數(shù)據(jù)進行比較，有相同的保存起來，否則刪除。
#!/usr/bin/perl
#use strict;
open(FILE1,"C:/Perl/BX/BX-Users.txt");
open(FILE2,"C:/Perl/BX/BX-Book-Ratings.txt");
open(result1,">C:/perl/BX/BX-Users_result.txt");
my $i=0;
my $j=0;
while((my $bxUser=<FILE1>)&&($i<10))
{
my $userId=substr($bxUser,0,index($bxUser,","));
while(my $rankUser=<FILE2>)
{
my $userIdCmp=substr($rankUser,0,index($rankUser,","));
if(($userId==$userIdCmp)&&($j==0))
{
syswrite(result1,"$bxUser");
$j++;
}
}
$j=0;
$i++;
}
close(FILE1);
close(FILE2);
close(result1);
復(fù)制代碼 代碼如下:
#!/usr/bin/perl
#use strict;
open(FILE1,"C:/Perl/BX/BX-Users.txt");
open(FILE2,"C:/Perl/BX/BX-Book-Ratings.txt");
open(result1,">C:/perl/BX/BX-Users_result.txt");
my $i=0;
my $j=0;
while((my $bxUser=<FILE1>)&&($i<10))
{
my $userId=substr($bxUser,0,index($bxUser,","));
while(my $rankUser=<FILE2>)
{
my $userIdCmp=substr($rankUser,0,index($rankUser,","));
if(($userId==$userIdCmp)&&($j==0))
{
syswrite(result1,"$bxUser");
$j++;
}
}
$j=0;
$i++;
}
close(FILE1);
close(FILE2);
close(result1);
相關(guān)文章
Perl字符串處理學(xué)習(xí)備忘錄，包括chop和chomp函數(shù)、getc函數(shù)、拼接字符串、分割字符串、重復(fù)拼接字符串、字串替換等。有需要的朋友，可以參考下2013-02-02
perl 刪除數(shù)組元素的幾種方法，有需要的朋友可以參考下2013-02-02
今天小編就為大家分享一篇關(guān)于將Perl5代碼遷移到Perl6上的解決方案，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧2018-10-10
perl獲取日期與時間的例子，供大家學(xué)習(xí)參考2013-02-02
Perl使用Tesseract-OCR實現(xiàn)驗證碼識別教程
這篇文章主要介紹了Perl使用Tesseract-OCR實現(xiàn)驗證碼識別教程,Tesseract-OCR是一個開源圖形識別引擎,需要的朋友可以參考下2014-06-06
這篇文章主要介紹了7個perl數(shù)組高級操作技巧,本文講解了數(shù)組去重、數(shù)組合并、查找最大值、列表歸并等內(nèi)容,需要的朋友可以參考下2014-11-11
想必很多朋友馬上就會想到Perl中提供的$ENV這個特殊的哈希變量，對，在$ENV中完全可以獲取到一些系統(tǒng)變量2013-02-02
Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實例
這篇文章主要介紹了Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實例,實現(xiàn)了路由系統(tǒng)和模板系統(tǒng),需要的朋友可以參考下2014-06-06
下面小編就為大家?guī)硪黄狿erl與JS的對比分析(數(shù)組、哈希)。小編覺得挺不錯的，現(xiàn)在就分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2016-07-07
今天小編就為大家分享一篇關(guān)于perl6垃圾收集的文章，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧2018-10-10