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