In "grep" ZWEI Bedingungen erfüllen - #76104 (Allgemeines zu Perl)

Meo

2007-04-21 18:24

User since
2007-04-20
12 Artikel
BenutzerIn
[default_avatar]

Nochmals Danke! Aber...

Bei der praktischen Anwendung von

Code: (dl )

1
2

my %seen;
@unique = grep { !$seen{$_->[-1]}++ } sort { $b->[0] <=> $a->[0] } map { [split("\t", $_)] } @found;

werden zwar alle "Jobs" ausgeführt, aber die Inhalte der Element werden nicht angezeigt in der Ausgabe.
Es wird leglich ein Element des jeweiligen Datensatzes mit "ARRAY(0x8379824)" ausgegeben.

Bei der Anwendung von

Code: (dl )

1
2

my %seen = ();
my @unique = grep { $seen{(split /\t/)[1]}++ ? undef : $_ } @found;

erhalte ich, wenn ich @unique auslese gar keine Inhalte zurück.

Aber ich bin sicher, wir sind dicht dran...!? Vielleicht liegt ja nur ein kleiner Fehler im Detail vor.

@pq Sorry, jetzt habe ich die Code-Tags gefunden.