Построчное сравнение 2 файлов

[pikasun]

У кого есть простенький пример на Perl построчного сравнения 2 файлов.
Сравниваются все строки 1-ого и 2-ого файла между собой.

 

[Darkmind]

use strict;
use warnings;
 
my $f1 = '/opt/1.txt';
my $f2 = '/opt/2.txt';
my $outfile = '/opt/result.txt';
my %results = ();
 
open FILE1, "$f1" or die "Could not open file: $! \n";
while(my $line = <FILE1>){
   $results{$line}=1;
}
close(FILE1);
 
open FILE2, "$f2" or die "Could not open file: $! \n";
while(my $line =<FILE2>) {
   $results{$line}++;
}
close(FILE2);
 
open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \n";
foreach my $line (keys %results) {
   print OUTFILE $line if $results{$line} == 1;
}
close OUTFILE;

 

[pikasun]

Ага, спасибо, понял!
Я через слияние массивов искал.