perl 两个文件字符串比较
2010-12-30 22:46
375 查看
区文件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脚本比较两个文件的相同行和不同行
- perl比较两个文件,输出不同行
- 一个用于比较两个文件行中不同的Perl脚本
- perl 两个字符串输出相同但是比较失败
- perl比较两个目录中的文件内容是否相同
- shell比较两个字符串是否相等
- 比较两个文件的不同之处 gvim -d
- JS 比较两个字符串日期相差的天数
- js用==比较两个相等的字符串时,报错
- perl,读取所需文件的路径,然后打开相应的文件,并对文件中的DNA序列进行计数,substr函数对长字符串的片段化处理功能
- 实现一个字符串类,可以比较和连接两个字符串
- Python比较两个文件(txt,csv等)相同内容合并同一文件/文本时间大小比较大小
- cmp命令_Linux cmp 命令用法详解:比较两个文件是否有差异
- 比较两个字符串相似度 Levenshtein_Distance_Percent
- 测试(整数、字符串比较;文件测试)
- 9-6 文件比较。写一个比较两个文本文件的程序。如果不同,给出第一个不同处的行号和列号。
- Perl从文件中读取字符串的两种实现方法
- linux下的comm和diff命令:用来比较两个文件的不同之处
- grep比较两个文件的异同