perl比较两个文件，输出不同行

最新推荐文章于 2023-03-21 10:02:53 发布
原创 最新推荐文章于 2023-03-21 10:02:53 发布 · 3.2k 阅读 · 5 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#perl

本文介绍了一个使用Perl编写的脚本，该脚本用于比较两个列表文件，并找出第一个文件中存在而第二个文件中不存在的条目。通过逐行读取和比较两个文件的内容来实现这一目标。

#!/usr/bin/perl -w

 

open (MI16, "16.list");

open (MI15, "15.list");

open (MI, ">1.list");

 

@line = <MI16>;

@line2 = <MI15>;

 

foreach $mi_16(@line)

{

$flag = 0;

foreach $mi_15(@line2)

{

if ($mi_15 eq $mi_16)

{

$flag =1; 

last;

}

}

if ($flag != 1) 

{

print MI $mi_16;

}

}

 

用perl实现两个文本文件交叉合并
casky237的博客
09-03 5601
perl语言被某些爱好者称作“Unix 中的王牌工具”。确实，和C/C++相比，Perl语言特别是在处理文本和文件方面，有一些独到的优势，在处理某些文本文件任务时，真的是很方便的。   比如下面这个问题：   现在两个文本文件a.txt和b.txt,内容如下： a.txt: a b c d e f g b.txt: 1 2 3 4 5 6 7
perl比较两个目录中的文件内容是否相同
xiaocao9903的专栏
10-16 4584
#比较两个目录中的文件内容是否相同 #!/bin/perl if($#ARGV {  print "usage:perl compare.pl dir1 dir2\n";  exit(-1); } #my($rec, $ref) = @ARGV; #!/bin/perl my($lat1,$lat2)=@ARGV; system ( "dir \/b \/s \/O:N  $
Perl文件内容对比
weixin_30600197的博客
03-03 526
比较经典的一种对比文件的方式。。看了这段代码有点感悟。 但没有写出来，回头整理看看。。 #! /usr/bin/perl use strict; use warnings; my $src_lines_1_ref = get_lines_from_file('1.txt'); my $src_lines_2_ref = get_lines_from_file('2.txt'...
perl对比两个文件的行
weixin_30632899的博客
12-06 428
perl对比两个文件的行 对比两个文件的各行，得到A与B相同的行/A与B不相同的行 主要功能 得到相同行 得到A中包含，B不包含的行 得到B中包含，A中不包含的行 具体执行情况 Perl代码 #!/usr/bin/perl #---------------------------------------------------------------------- # #...
perl脚本比较两个文件的相同行和不同行
lvhao578041381的专栏
02-13 5869
这个脚本diff.pl用于求两个文件相同的行和不同的行所构成的差集（即A中存在而B中不存在的行，及B中存在而A中不存在的行）。 #!/usr/bin/perl use 5.010; use strict; use warnings; use diagnostics;#warning info my ($fileA,$fileB) = @ARGV; open
一个用于比较两个文件行中不同的Perl脚本
weixin_34219944的博客
12-26 597
diff虽然也可以比较文件，但是工作中出现了两个文件中行的内容实际相同，但是顺序不同的情况（同一个文件中不会出现完全相同的行）。为了找出这些文件中的行差集，写了这么个脚本。 用法：diffSet fileA fileB 输出： 如果文件不同，在控制台输出只在fileA中出现的行的行数，及只在fileB中出现的行的行数，并将这些行分别输出到fileA.diff及fileB...
Perl编程：文件句柄、输出与哈希的深入探索
在Perl中，当你选择一个文件句柄作为默认输出时，它会一直保持该状态。不过，为了避免混淆程序的其他部分，完成操作后通常应将其设置回`STDOUT`。默认情况下，每个文件句柄的输出是有缓冲的。将特殊变量`$|`设置为1...
两个文件之间的比较结果也要有
11-27
2. 使用comm命令（如引用[3]）可以比较两个文件并找出共同行或特有行 3. 使用visdiff（如引用[1]）在MATLAB中可视化比较，但我们的环境是Perl，所以不考虑 计划扩展功能： - 保留原有的文件内部重复内容分析 - 增加...
最终输出结果放在一个文件里面，文件名参数化输入
最新发布
11-27
但是，这样处理两个文件时，如果第二个文件不存在，我们会将其视为输出报告文件（当参数个数为2时），但实际上用户可能是想比较两个文件，但第二个文件不存在，这应该报错。 所以，我们调整：对于两个文件分析，...
perl替换控制文件某行内容
08-16
2. 如何用Perl同时替换文件中的多个不同行？ 3. Perl中如何安全地修改文件（避免数据丢失）？ 4. 在Perl中，如何在不读取整个文件的情况下替换特定行？</think>### Perl 替换文件中特定行内容的方法 在 Perl 中...
Perl输入输出与哈希的深入解析
在 Perl 中，当你选择一个文件句柄作为默认输出时，它会一直保持该状态。不过，为避免程序其他部分产生混淆，操作完成后通常应将其恢复为标准输出（STDOUT）。 默认情况下，每个文件句柄的输出是有缓冲区的。将特殊...
perl文件比对
m0_50268709的博客
03-21 665
perl文件比对，返回相同或者不同
序列筛选C语言,求助！！Perl编程实现比较2个文件，筛选出基因名称相同的序列...
weixin_34420979的博客
05-22 357
求助！！Perl编程实现比较2个文件，筛选出基因名称相同的序列，留下基因名称不同的序列，输出到新的文件中。序列格式类似：>gnl|UG|Dr#S15906148 Danio rerio myelocytomatosis oncogene a, mRNA (cDNA clone MGC:64149 IMAGE:6797033), complete cds /cds=p(212,143 /gb=...
两个文件的共同部分或者差异部分
热门推荐
tianmo2010的专栏
11-21 2万+
1  comm命令 在我们的开发和运营中，特别是对业务进行监控的时候，我们常常需要写一些监控shell脚本，而这些脚本需要求两个文件的共同的记录列表或者只出现在第一个文件但不出现在第二个文件的记录列表的场景，此时，comm命令则是您解决此类问题的利器和助手。      随意man comm下，可以在linux下看到该命令的使用方法： NAME        comm - compare
perl一次读取多行文本的策略
薛猫_柳叶刀
08-09 5595
在处理文本时，常常遇到这样的情况：就是我们需要把两行文本做一个比较，然后选择性输出。而在while（）{do something}程序块中默认只能一次读取一行。笔者在这里，举一个简单的例子来说明怎么处理这种情况。 有一个这样一段文本： a 1 2 3 4 a 5 6 7 8 a 6 7 8 9 a 7 8 9 11 a 7 8 9 12 a 13 12 14 15 a 18 14
评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值