Array Werte - #160551 (Allgemeines zu Perl)

Raubtier

2012-08-03 10:13

User since
2012-05-04
1077 Artikel
BenutzerIn
[default_avatar]

Das würde ich anders machen: du verarbeitest die Datei ja eh zeilenweise, warum also nicht auch zeilenweise einlesen?

Code: (dl )

my %test;
open ...
while (<$file>) {
  push @array, $_ unless $test{$_}++
}