이 간단한 파이썬 스크립트는 당신이 원하는 것을 할 것입니다. 이 예제에서는 파일 이름을 지정합니다 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])

실행하려면 다음을 사용하십시오.

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

참고이 조금 이보다 내가 더으로 쓴 또는 이후이 보이는 내가 사용했다 덜 간단한 한 줄 의 조각 표기법[::-1] 곳 역순으로 동일한 목록의 복사본을 만들 음의 값이 일을 대신 더 선언을 사용 reverse()하는 구성 성을 깨뜨리는 방식으로 제자리에 있습니다.

그리고 여기에 약간 더 길지만 reversed()반복자를 반환하는 더 읽기 쉬운 버전이 있습니다 . 따라서 반복자 list()를 소비하고 목록을 생성하기 위해 그것을 감싸 야 합니다.

#!/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 개의 임의로 정렬 된 줄이있는 파일에서 ~ 0.02 초가 걸립니다.

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

무작위로 정렬 된 150,000 줄의 파일에서는 3 초가 조금 걸립니다.

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

여기에 reverse()그리고 그 sort()자리에서 수행 할 수있는 더 읽기 쉬운 버전이 있지만, 같은 시간에 실행되며 실제로 약간 더 많은 메모리가 필요합니다.

#!/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 개의 임의로 정렬 된 줄이있는 파일에서 ~ 0.02 초가 걸립니다.

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

무작위로 정렬 된 150,000 줄의 파일에서는 3 초가 조금 걸립니다.

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

답변

$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

use warnings;
use strict;

my @lines = <>;
chomp @lines;

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

print "$_\n" for @lines;

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}'

#!/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}'