☰

ドメインとサブドメインの並べ替えとグループ化

tag-icon • tag-icon shell-script text-processing utilities
ドメインとサブドメインの並べ替えとグループ化

ドメインとサブドメインをまとめて分類したりグループ化したりするより良い方法はありますか？例えばlist、

morefu.sub1.foo.com
www.foo.com
bar.foo.com
sub1.foo.com 
fufu.isub1.foo.com
foofoo.bar.foo.com 
morefoo.bar.foo.com
fufu.sub1.foo.com

使用して

for i in $(grep -oP '(\w+).foo.com' list | sort | uniq); do grep $i list | sort; echo; done

ほぼ動作します:

bar.foo.com
foofoo.bar.foo.com 
lotsmorefubar.bar.foo.com
morefoo.bar.foo.com

fufu.isub1.foo.com <-- should not be here
fufu.sub1.foo.com
morefu.sub1.foo.com
sub1.foo.com 

www.foo.com

例外は、fufu.isub1.foo.comそれ自体のセクション内にある必要があります。grep式に^andを追加しても効果はありませんでした。\b

これをより正確かつ効率的に行う方法があるかどうか疑問に思いますか?

答え1

いかがでしょうか

tr -d [:blank:] < hosts |                           # remove trailing whitespace
perl -lne 'print join ".", reverse(split /\./)' |   # reverse order of fields
sort |                                              # sort
awk -F. '
  !seen[$1.$2.$3]++ && NR>1 {print ""}             # insert blank line when tld,dom,sub change
  {for (i=NF;i>1;i--) printf "%s.", $i; print $1}   # print fields in original order
'

与える

bar.foo.com
foofoo.bar.foo.com
morefoo.bar.foo.com

fufu.isub1.foo.com

sub1.foo.com
fufu.sub1.foo.com
morefu.sub1.foo.com

www.foo.com

同じアルゴリズムのより良い実装（私はそう願っています）は、ハッシュのハッシュPerlの場合:

#!/usr/bin/perl

use strict;
use warnings;

my %domains = ();

while (defined($_ = <ARGV>)) {
  chomp $_ ;
  $_ =~ s/\s+//;

  my @F = reverse(split(/\./));
  my $domain = join(".", @F[0..2]);

  if ( ! exists($domains{$domain}) ) {
    $domains{$domain} = {};
  }

  $domains{$domain}{join(".", @F)}++;
}

foreach my $domain (sort keys %domains) {
  foreach my $host (sort keys %{ $domains{$domain} }) {
    print join(".", reverse(split(/\./, $host))), "\n";
  }
  print "\n"
}

答え2

TXR舌足らずの発音：

[(opip (mapcar (op tok-str @1 #/[^.]+/))
       (sort @1 : reverse)
       (partition-by (ret [@1 -3..-1]))
       (mapcar (op mapcar (op cat-str @1 ".")))
       (interpose "")
       tprint)
 (get-lines)]

走る：

$ txr domain-sort.tl < data
bar.foo.com
foofoo.bar.foo.com
morefoo.bar.foo.com

fufu.isub1.foo.com

sub1.foo.com
fufu.sub1.foo.com
morefu.sub1.foo.com

www.foo.com

基本的に、行を のような文字列のリストにトークン化し("sub1" "foo" "com")、これらのリストを操作します。このリストを、その要素の逆をキーとして使用してソートします。そのため、ソートの目的では、("sub1" "foo" "com")は であるかのように扱われます("com" "sub1" "foo")。その後は、グループ化の問題です。これは、partition-by最後の 3 つの要素をパーティション キーとして使用して、 を使用すると簡単に実現できます。文字列をピリオドで結合して再構成し、行を使用してグループを印刷する必要があります。後者は、グループの間に空の文字列を挿入し、 にtprintその仕事をさせることによって実現されます。

関連情報