perl比较两个文件,输出不同行
2010-10-07 15:56
239 查看
#!/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;
}
}
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脚本比较两个文件的相同行和不同行
- [SoapUI] 比较两个不同环境下的XML Response, 从外部文件读取允许的偏差值,输出结果到Excel
- perl比较两个文件字符串的实例代码
- Linux diff --比较两个文件并输出不同之处
- perl 两个字符串输出相同但是比较失败
- 比较两个文件并只输出特定内容
- 一个用于比较两个文件行中不同的Perl脚本
- perl 两个文件字符串比较
- 用python比较两个文件中内容的不同之处, 并输出行号和内容.
- [SoapUI] 比较两个不同环境下的XML Response, 从外部文件读取允许的偏差值,输出结果到文本文件
- 已有两个文本文件,今要求编程序从这两个文件中读出各行字符,逐个比较这两个文件中相应的行和列上的字符,如果遇到互不相同的字符,输出它是第几行第几列的字符
- Linux diff比较两个文件并输出不同之处
- perl比较两个目录中的文件内容是否相同
- 比较两个目录中有没有同名的文件,有就输出目录及名字
- comm 比较两个文件中相同不同行
- 比较两个目录中有没有同名的文件,有就输出目录及名字
- ComparePSD – 比较两个 PSD 文件的不同
- 使用DOS下的FC命令比较两个文件的异同
- perl从文件中读取数据并输出的实现代码
- perl查看文件,提取指定信息输出到文件