Zeilen der Größe nach Ausgeben - #180271 (Allgemeines zu Perl)

Raubtier

2015-03-20 20:46

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

Was ist daran jetzt schwierig?

Mit meiner ipToInt-Funktion oben:

Code (perl): (dl )

@sorted = 
    map { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map { [$_, ipToInt((split " ",$_)[-1])] }
    @unsorted;