[perl] omdraaien van elementen array

[HenkS]

hallo,

ik heb een domains en die moeten worden gesorteerd op toplevel niveau

test.dsm-group.com
dsm-group.com
help.test.dsm-group.com

moet dan worden:
dsm-group.com
test.dsm-group.com
help.test.dsm-group.com

dit kun je doen door laatste element 1e te zetten, enz.. omdraaien, dan sorteren op alfabet en dan moet het lukken, dus ik doe het volgende:

PHP:

<?$select_query = "select domainname from domains";  $sthnew = $dbhnew->prepare($select_query);  $sthnew->execute();  $sthnew->bind_columns($domainname);  my(%domains);  while($sthnew->fetch){    my @split_domain=();    @split_domain = split(/./,$domainname);    reverse(@split_domain);    $reverse_domain = "@split_domain";    $domains{$reverse_domain} = $domainname;  }  foreach (sort keys %domains){    print("$_,$domains{$_}\n");  }?>

maar nu krijg ik dit in de print:
1 regel ff eruit:
gln00 dsm-group com,gln00.dsm-group.com

dus er is niks gereversed (deel voor de , moet gereversed worden)

[HenkS]

laat maar heb t al

moet:
@split_domain = reverse(@split_domain);

zijn

ipv

reverse(@split_domain);

[Grum]

split op /./ split niet op een punt he ..

[HenkS]

@split_domain = split(/\./,$domainname);

moest er ook staan, sorry... had t wel al in mijn code