sort human-wise by domain names

domainsort.pl

#!/usr/bin/perl
$,="\n"; 
print sort byd map{chomp;$_}<>;
print "\n";

#sub byd($$){my ($a,$b)=map{lc join(".",reverse split m/\./,$_)}@_[0,1];$a cmp $b;}
sub byd($$) {
  my ($a,$b) = @_[0,1];
  my ($da) = ($a =~ m/,?([^,]+)$/); my ($db) = ($b =~ m/,?([^,]+)$/);
  #my ($da) = ($a =~ m/https?:\/\/([^\/]+)/); my ($db) = ($b =~ m/https?:\/\/([^\/]+)/);
  my ($ra,$rb) = map { lc join(".",reverse split m/\./,$_) } ($da,$db);
  #print STDERR "ra = $ra, rb = $rb\n";
  $ra cmp $rb;
}