perl比较两个文件字符串的实例代码
2018-10-12 13:56
627 查看
需求:取文件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 两个文件字符串比较
- Java生成和解析XML格式文件和字符串的实例代码
- Java生成和解析XML格式文件和字符串的实例代码
- 比较两个字符串是否相等的shell代码
- perl脚本比较两个文件的相同行和不同行
- perl 两个字符串输出相同但是比较失败
- python使用正则搜索字符串或文件中的浮点数代码实例
- perl实现的两个文件对比并对数据进行筛选的脚本代码
- Java生成和解析XML格式文件和字符串的实例代码【dom4j中的SAXReader对象读取并解析xml文件】
- perl比较两个文件,输出不同行
- 利用eclipse比较两个文件的代码差异或者一个文件不同版本之间的异同
- python使用正则搜索字符串或文件中的浮点数代码实例
- 【代码笔记】iOS-两个时间字符串的比较
- 比较两个字符串是否相等的shell代码
- JS判断输入字符串长度实例代码(汉字算两个字符,字母数字算一个)
- 【代码笔记】两个时间字符串的比较
- Java生成和解析XML格式文件和字符串的实例代码
- git是一种分布式代码管理工具,git通过树的形式记录文件的更改历史,比如: base'<--base<--A<--A' ^ | --- B<--B' 小米工程师常常需要寻找两个分支最近的分割点,即base.假设git 树是多叉树,请实现一个算法,计算git树上任意两点的最近分割点。 (假设git树节点数为n,用邻接矩阵的形式表示git树:字符串数组matrix包含n个字符串,每个字符串由字符'0
- Shell文件参数和切分字符串实例代码
- Java相同类型的两个对象比较属性值,得到不同属性的名称和对应的值,附代码实例