Knotennamen aus einem Array nach Domain sortieren (gelöst) - #155626 (Allgemeines zu Perl)

toby

2012-01-24 10:09

User since
2006-04-14
66 Artikel
BenutzerIn
[default_avatar]

Hi Leute,

wie kann ich ein Array mit Knotennamen nach deren Domain sortieren?

Ich habe mit Hilfe von "perldoc -q sort" bisher sowas erreicht:

Code (perl): (dl )

my @nodes = ( "abc.subdomain1.wasweissich.de","def.subdomain1.another.org","ghi.wasweissich.de","abc.subdomain2.wasweissich.de","def.subdomain1.wasweissich.de","ghi.subdomain2.a
nother.org","xyz.another.org" );

my @sorted = map  { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map  { [ $_, uc( (/\w+\.(\w+\.\w+)/)[0]) ] } @nodes;


print "$_\n" foreach @sorted;

Das Ergebnis ist aber noch nicht so, wie ich es mir gewünscht habe. Es sollen die im Array befindlichen Knoten nach der Domain sortiert werden.

Kann mir jemand einen Tipp geben?

Danke!
Toby