作者lalelee (Yes We Can !)
看板Perl
标题Re: [求教] 如何用perl 比对两个档案内容?
时间Wed Jun 10 10:24:11 2009
※ 引述《lalelee (Yes We Can !)》之铭言：
: 有两个文字档，一个文字档file1里面放的是abcde，
: 另一个file2放的是12345ab，
: 请问要怎麽写才可以比对说file2 里面没有cde 然後把cde 列出来？
: 我的想法是开两个file handle 然後逐一读出比对
: 但是实作 做不出来 @@
目前自己初步想到的是这样:
open f1,"<file1.txt";
chomp(@pattern=<f1>);
close f1;
open f2,"<file2.txt";
while ($line=<f2>){
for (@pattern){
if ($line ~= /$_/)
{
print $line;
}
}
}
close f2;
close f1;
但仅能将ab 列出来，但我想要的是将cde 列出
板上的各位不知道有没有比较好的想法
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.69.75.17
1F：推 kornelius:不直接用 $ diff file1 file2 ? 06/11 10:43