Quote

Wenn ja, dauert es lange?

Quote

Die Dateien haben jeweils ca. 16.000 Zeilen und sind jeweils ca. 3 bis 4 MB gross.

Vielen Dank im Voraus für die Hilfe!

Mfg,

Markus

sort file1 file2 | uniq -u

Quote

da faellt mir folgende Idee ein:

Code: (dl )

1
2
3
4
5
6
7
8
9
10

use warnings;
use strict;
use Tie::File;

tie (my @file1, 'Tie::File', $filename1) or die $!;
tie (my @file2, 'Tie::File', $filename2) or die $!;

# sortieren
@file1 = sort(@file1);
@file2 = sort(@file2);

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

open (OUT, ">$outfile") or die $!;

my $i = 0; my $j = 0; # indices fuer file1, file2
while ($file1[$i] or $file2[$j]) {

  # absicherung fuers ende
  unless (defined $file1[$i]) {
    print OUT $file1[$j]; $j++; next;
  } # unless
  unless (defined $file2[$j]) {
    print OUT $file2[$i++]; next;
  } # unless

  # vergleiche zwei Zeilen
  my $compare = $file1[$i] cmp $file2[$j];

  if ($compare < 0) { # file1 ist kleiner
    print OUT $file1[$i++];
  }
  elsif ($compare > 0) { # file2 ist kleiner
    print OUT $file2[$j++];
  }
  else { # gleich gross
    $i++; $j++;
  }

} # while

close (OUT);
untie(@file1);
untie(@file2);