perl比較兩個(gè)文件字符串的實(shí)例代碼
更新時(shí)間：2013年02月09日 23:25:16 作者：
perl比較兩個(gè)文件字符串的例子，供大家學(xué)習(xí)參考
需求：取文件1中的一行，和文件2中所有的數(shù)據(jù)進(jìn)行比較，有相同的保存起來，否則刪除。
#!/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 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解
這篇文章主要介紹了Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-12-12
使用perl實(shí)現(xiàn)拆分?jǐn)?shù)據(jù)表（mysql）并遷移數(shù)據(jù)實(shí)例
這篇文章主要介紹了使用perl實(shí)現(xiàn)拆分?jǐn)?shù)據(jù)表（mysql）并遷移數(shù)據(jù)實(shí)例,本文提供了3個(gè)腳本,分別用于拆分?jǐn)?shù)據(jù)表、遷移數(shù)據(jù)、插入測試數(shù)據(jù),需要的朋友可以參考下2014-10-10
這篇文章主要介紹了在Django框架中自定義模板過濾器的方法,Django是重多人氣Python框架中最為著名的一個(gè),需要的朋友可以參考下2015-07-07
Perl合并文本的一段實(shí)例代碼，需要的朋友可以參考下2013-02-02
這10分鐘教程并不是Java和Perl的比較。目標(biāo)是探索作為Java開發(fā)人員如何快速學(xué)習(xí)Perl。以下是一些從我的角度來看的關(guān)鍵筆記2013-11-11
Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫的方法
這篇文章主要介紹了Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫的方法,本文詳細(xì)的講解了Windows和Linux系統(tǒng)中perl如何連接Microsoft SQL Server數(shù)據(jù)庫,需要的朋友可以參考下2014-10-10
這篇文章主要介紹了Perl腳本檢測一個(gè)域名是否有效,檢查域名是否可以正常打開,需要的朋友可以參考下2014-06-06
Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享
這篇文章主要介紹了Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享,本文同時(shí)介紹了一個(gè)使用純真IP庫實(shí)現(xiàn)的Perl查詢工具,需要的朋友可以參考下2014-09-09
Perl語言入門學(xué)習(xí)指南及實(shí)用示例
Perl廣泛應(yīng)用于系統(tǒng)管理、Web開發(fā)、網(wǎng)絡(luò)編程和數(shù)據(jù)處理等領(lǐng)域,本文將帶您入門Perl語言,介紹其基本語法、常用功能及實(shí)用示例,感興趣的朋友跟隨小編一起看看吧2024-07-07
Perl中的符號(hào) ->;、=>; 和 :: 分別表示什么意思？
這篇文章主要介紹了Perl中的符號(hào) ->;、=>; 和 :: 分別表示什么意思,需要的朋友可以參考下2017-10-10