Opened by toby at 2012-01-24 10:09
User since
2006-04-14
66 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-14
66 Artikel
BenutzerIn
Hi,
> Aber das ist wahrscheinlich nicht das Ergebnis, was du suchst, oder?
Nicht so ganz. Wahrscheinlich, weil ich nicht genau beschrieben habe, was ich brauche ;)
> Was genau ist für dich die "Domain"?
Ok, anders ausgedrückt: Ich habe im Array jede Menge Strings mit Punkten als Trenner. Ich muss die Strings sortieren und zwar nur der Teil ist zum Sortieren relevant, der nach dem vorletzen Punkt kommt.
Bei xyz.blah.org ist blah.org für mich relevant. Bei abc.subdomain1.blah.com ist blah.com die Domain.
Hier ein Beispiel, wie ich es für die Shell gefunden habe. Dies müsste jetzt in ein Perlcode ungemünzt werden.:
Danke! :)
Toby
Last edited: 2012-01-24 11:34:42 +0100 (CET)
> Aber das ist wahrscheinlich nicht das Ergebnis, was du suchst, oder?
Nicht so ganz. Wahrscheinlich, weil ich nicht genau beschrieben habe, was ich brauche ;)
> Was genau ist für dich die "Domain"?
Ok, anders ausgedrückt: Ich habe im Array jede Menge Strings mit Punkten als Trenner. Ich muss die Strings sortieren und zwar nur der Teil ist zum Sortieren relevant, der nach dem vorletzen Punkt kommt.
Bei xyz.blah.org ist blah.org für mich relevant. Bei abc.subdomain1.blah.com ist blah.com die Domain.
Hier ein Beispiel, wie ich es für die Shell gefunden habe. Dies müsste jetzt in ein Perlcode ungemünzt werden.:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
$ cat nodes.txt
db.blah.org
de.yahoo.com
mail.example.org
www.aol.com
www.example.org
www.freshmeat.net
www.hotdoggie.com.au
www.blah.org
$ cat nodes.txt | perl -ple'$_=join".",reverse split/\./' | sort | perl -ple'$_=join".",reverse split/\./'
www.hotdoggie.com.au
www.aol.com
de.yahoo.com
www.freshmeat.net
db.blah.org
www.blah.org
mail.example.org
www.example.org
Danke! :)
Toby
Last edited: 2012-01-24 11:34:42 +0100 (CET)