Tld ile başlayan ve soldan çalışan alan adları (FQDN'ler) listesini sıralayın

TLD'den başlayıp yukarı doğru çalışan bir alan adı listesi (bir web filtresi beyaz listesi) sıralamak istiyorum. Ben de bir komut dosyası çok iyi olsa da, bunu kolayca yapabilirsiniz herhangi bir * nix veya windows araçları arıyorum.

Yani size verilen liste ise

www.activityvillage.co.uk 
ajax.googleapis.com 
akhet.co.uk 
alchemy.l8r.pl 
au.af.mil 
bbc.co.uk 
bensguide.gpo.gov 
chrome.angrybirds.com 
cms.hss.gov 
crl.godaddy.com 
digitalhistory.uh.edu 
digital.library.okstate.edu 
digital.olivesoftware.com

Çıktı olarak istediğim bu.

chrome.angrybirds.com 
crl.godaddy.com 
ajax.googleapis.com 
digital.olivesoftware.com 
digital.library.okstate.edu 
digitalhistory.uh.edu 
bensguide.gpo.gov 
cms.hss.gov 
au.af.mil 
alchemy.l8r.pl 
www.activityvillage.co.uk 
akhet.co.uk 
bbc.co.uk

Squidguard'ın neden bir hata / tasarım hatası olduğunu merak ediyorsanız. Her ikisi de www.example.comve example.comher ikisi de bir listeye dahil edilmişse , example.comgiriş yok sayılır ve yalnızca içeriği ziyaret edebilirsiniz www.example.com. Birisi ilk bakmadan girişler ekledi çünkü bazı temizlik gerektiren birkaç büyük listeleri var.

Bu basit python betiği istediğinizi yapar. Bu örnekte dosyayı adlandırıyorum domain-sort.py:

#!/usr/bin/env python
from fileinput import input
for y in sorted([x.strip().split('.')[::-1] for x in input()]): print '.'.join(y[::-1])

Çalıştırmak için şunu kullanın:

cat file.txt | ./domain-sort.py

Not bu biraz daha çirkin daha bu yazdım ya beri bu görünüyor ben kullanmak zorunda kaldı daha az basit tek liner dilim gösterimi[::-1] nerede ters sırada aynı listenin bir kopyasını yapmak için negatif değerler çalışmak yerine daha bildirim kullanarak reverse()hangi yerinde çalışabilirliği bozacak şekilde yapar.

Ve burada biraz daha uzun, ama belki de reversed()bir yineleyici döndüren daha okunabilir bir sürüm , bu nedenle list()yineleyiciyi tüketmek ve bir liste üretmek için de sarılması gerekir :

#!/usr/bin/env python
from fileinput import input
for y in sorted([list(reversed(x.strip().split('.'))) for x in input()]): print '.'.join(list(reversed(y)))

1.500 rastgele sıralı çizgi içeren bir dosyada ~ 0.02 saniye sürer:

Elapsed (wall clock) time (h:mm:ss or m:ss): 0:00.02
Maximum resident set size (kbytes): 21632

150.000 rasgele sıralanmış çizgiye sahip bir dosyada 3 saniyeden biraz fazla sürer:

Elapsed (wall clock) time (h:mm:ss or m:ss): 0:03.20
Maximum resident set size (kbytes): 180128

İşte yapar muhtemelen daha okunabilir sürümüdür reverse()ve sort()yerinde, ancak aynı sürede çalışır ve aslında biraz daha fazla bellek alır.

#!/usr/bin/env python
from fileinput import input

data = []
for x in input():
   d = x.strip().split('.')
   d.reverse()
   data.append(d)
data.sort()
for y in data:
   y.reverse()
   print '.'.join(y)

1.500 rastgele sıralı çizgi içeren bir dosyada ~ 0.02 saniye sürer:

Elapsed (wall clock) time (h:mm:ss or m:ss): 0:00.02
Maximum resident set size (kbytes): 22096

150.000 rasgele sıralanmış çizgiye sahip bir dosyada 3 saniyeden biraz fazla sürer:

Elapsed (wall clock) time (h:mm:ss or m:ss): 0:03.08
Maximum resident set size (kbytes): 219152

İşte istediğinizi yapmanız gereken bir PowerShell betiği. Temelde tüm TLD'leri bir diziye atar, her TLD'yi tersine çevirir, sıralar, orijinal sırasına geri döndürür ve daha sonra başka bir dosyaya kaydeder.

$TLDs = Get-Content .\TLDsToSort-In.txt
$TLDStrings = @();

foreach ($TLD in $TLDs){
    $split = $TLD.split(".")
    [array]::Reverse($split)
    $TLDStrings += ,$split
}

$TLDStrings = $TLDStrings|Sort-Object

foreach ($TLD in $TLDStrings){[array]::Reverse($TLD)}

$TLDStrings | %{[string]::join('.', $_)} | Out-File .\TLDsToSort-Out.txt

1.500 kayıtta yayınladı - oldukça güçlü bir masaüstünde 5 saniye sürdü.

cat domain.txt | rev | sıralama | devir

Biraz daha az şifreli veya en azından daha güzel Perl:

use warnings;
use strict;

my @lines = <>;
chomp @lines;

@lines =
    map { join ".", reverse split /\./ }
    sort
    map { join ".", reverse split /\./ }
    @lines;

print "$_\n" for @lines;

Bu, bir Guttman-Rosler dönüşümünün basit bir örneğidir : satırları uygun sıralanabilir forma dönüştürüyoruz (burada, alan adını dönemlere ayırıyoruz ve parçaların sırasını tersine çeviriyoruz), yerel sözlükbilimsel sıralamayı kullanarak sıralıyoruz ve ardından satırları orijinal biçimlerine geri döndürür.

Unix komut dosyasında: ters, sırala ve ters çevir:

awk -F "." '{for(i=NF; i > 1; i--) printf "%s.", $i; print $1}' file |
  sort |
  awk -F "." '{for(i=NF; i > 1; i--) printf "%s.", $i; print $1}'

İşte (kısa ve şifreli) perl'de:

#!/usr/bin/perl -w
@d = <>; chomp @d;
for (@d) { $rd{$_} = [ reverse split /\./ ] }
for $d (sort { for $i (0..$#{$rd{$a}}) {
        $i > $#{$rd{$b}} and return 1;
        $rd{$a}[$i] cmp $rd{$b}[$i] or next;
        return $rd{$a}[$i] cmp $rd{$b}[$i];
} } @d) { print "$d\n" }

awk -F"." 's="";{for(i=NF;i>0;i--) {if (i<NF) s=s "." $i; else s=$i}; print s}' <<<filename>>> | sort | awk -F"." 's="";{for(i=NF;i>0;i--) {if (i<NF) s=s "." $i; else s=$i}; print s}'

Bunun yaptığı, alan adındaki her bir dosyayı tersine çevirmek, sıralamak ve geri çevirmektir.

Bu, alan adının listesini, soyadı adının her bir parçasına dayalı olarak, sağdan sola doğru, gerçekten sıralar.

Ters çözüm ( rev <<<filename>>> | sort | rev), denemedim, denedim.