 gleichen Text erkennen -<--bisschen undeutlich,einfach mal lesen
|
Seitenanfang |
| also, ich hab eine ausgabe szenario: @test=`cat test.txt`;
foreach $line (@test)
{
print $line;
} nun kann es vorkommen, das die datei doppelte einträge enthält, z.b. a
b
a
b ich will aber ab nur einmal ausgegeben bekommen. weiss da jemand hilfe? es muss nicht umbedingt cat txt sein, es kann auch die ausgabe eines befehls sein, in der ausgaben mehrfach vorkommen! danke vielmals
Datum: 17.01.2005-15:57
|
re: gleichen Text erkennen -<--bisschen undeutlich,einfach mal lesen
|
Seitenanfang |
my %ausgaben;
my @test=`cat test.txt`;
foreach $line (@test)
{
next if($ausgaben{$line}
print $line;
$ausgaben{$line} = 1;
}
Datum: 17.01.2005-16:38
|
re: gleichen Text erkennen -<--bisschen undeutlich,einfach mal lesen
|
Seitenanfang |
argh.
next if($ausgaben{$line}
braucht natürlich noch ein semikolon.
next if($ausgaben{$line};
Datum: 17.01.2005-16:39
|
re: gleichen Text erkennen -<--bisschen undeutlich,einfach mal lesen
|
Seitenanfang |
| Und auch eine abschließende runde Klammer wäre gut ;) next if($ausgaben{$line});
Datum: 18.01.2005-10:24
|
re: gleichen Text erkennen -<--bisschen undeutlich,einfach mal
|
Seitenanfang |
Oder in Kurz:my %ausgaben;
my @test = `cat test.txt`;
map { print if !$ausgaben{$_}++ } @test;
# oder
print grep {!$ausgaben{$_}++} @test;
Datum: 18.01.2005-17:26
|
