Code:
#!/usr/bin/perl
use warnings;
use strict;
my ($file1, $file2) = @ARGV;
my %hash;
open(FH,$file1) or die "Fehler beim ˆffnen";
foreach(<FH>) {
# F¸r jede Zeile wird ein Hash-Element mit dem "Namen"
# als Schl¸ssel erstellt
$hash{$_}++;
}
close(FH);
open(FH,$file2) or die "Fehler beim ÷ffnen";
foreach(<FH>) {
# Das Element wid ausgegeben, falls das Hash-Element schon existiert
# Dann ist das Element dopppelt vorhanden.
print $_ if $hash{$_};
}
hier werden nur die gleichen elemente ausgeben.
steve
Lesezeichen