a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Perl > 正文

perl比較兩個文件字符串的實例代碼

2020-06-04 20:29:21
字體：大 中 小
來源：轉載
供稿：網(wǎng)友
需求：取文件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ā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 欧美视频二区 | 策驰影院在线观看2024 | www.一区二区三区 | 国产视频久久久久 | 欧美一区二区三区在线 | 久久久免费 | 国产高清在线精品 | 精品亚洲一区二区三区 | 99久久久国产精品美女 | 欧美午夜视频在线观看 | 四虎成人在线播放 | 亚洲一区二区三区四区五区午夜 | 日韩av一区二区在线观看 | 国产成人在线网站 | 2019天天操| 国产激情精品一区二区三区 | 一区二区三区在线 | 国精品一区| 四影虎影www4hu23cmo| 精品国产乱码久久久久久1区2区 | 欧美色就是色 | 国内精品久久久久 | 成人午夜视频在线观看 | 中文字幕一区二区三区精彩视频 | 黄色国产精品 | 日本久久久亚洲精品 | 欧美日韩精品一区二区在线播放 | 久久国产成人 | 亚洲午夜视频 | 亚洲日韩欧美一区二区在线 | 免费看的av | 国产日韩精品在线观看 | 吊视频一区二区三区 | 91精品久久久久久久久久入口 | 久久免费在线观看 | 91,看片| 一级片网| 欧美午夜视频 | 青青艹在线视频 | 全黄大全大色全免费大片 | 久久久久国产精品免费免费搜索 |