gpt4 book ai didi

perl比较两个文件字符串的实例代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章perl比较两个文件字符串的实例代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

需求:取文件1中的一行,和文件2中所有的数据进行比较,有相同的保存起来,否则删除.

复制代码 代码如下

#!/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比较两个文件字符串的实例代码的文章就讲到这里了,如果你想了解更多关于perl比较两个文件字符串的实例代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com