Perlについて

質問

今Perlのプログラムを組まされているのですが、
ＩＰアドレスなどの数字のような文字列を
数字が小さい順に並べようとしても
うまく並べられません。
どうしたらうまく並べれるのですか？
たとえば
１３４．３４２．４４４．３２１
１３４．３４２．４４４．３３２
１３４．４２１．４５３．２２２
を
１３４．４２１．４５３．２２２
１３４．３４２．４４４．３２１
１３４．３４２．４４４．３３２
に並べ替えたいのです。
ちなみにデータは大量にあります。
どうかよろしくお願いします。

回答No.3

osamuy

No.2でちょっと修正：

誤： split( /./, $_ )
正： split( / ￥./, $_ )

「￥」は、実際には半角のバックスラッシュです。

回答No.2

osamuy

要は大小関係さえハッキリさせる事ができれば、整列可能なので、
IPアドレス（IPv4）が32ビットなのを利用して、こんな感じでしょうか?

while ( <DATA> ){ chomp;
push @addrs, [ $_, unpack( 'N', pack( 'C4', split( /
./, $_ ) ) ) ];
}
for ( map { $_->[0] } sort { $a->[1] <=> $b->[1] } @addrs ){
print $_, "
n";
}
__END__
192.168.10.1
255.255.255.255
10.1.15.0

このソートのやりかたについては、perlfaq4が参考になるかと。

ところで、ソート後の

＞ １３４．４２１．４５３．２２２
＞ １３４．３４２．４４４．３２１
＞ １３４．３４２．４４４．３３２

は、規則性がちょっと不明。小さい順といっているのに、1行めが一番大きいし、3行めが一番小さいわけでもなし

回答No.1

onosuke

sort というリスト整列関数
http://www.perldoc.com/perl5.8.0/pod/func/sort.html

eq, ne, cmp という３つの文字列比較演算子
http://www.perldoc.com/perl5.8.0/pod/perlop.html#Equality-Operators

これらを使えばできます。

後、あなたが質問に書いたとおりの整列順が必要だとすると、大きい順に並べる逆順ソートになりますね。