しゃある通信

#23-03 perl
QUX と CSV(comma separated value) の field sort の話。

sub FieldSort {
    @a = split(/,/, $a);
    @b = split(/,/, $b);
    
    return $b[2] cmp $a[2];
}
だねー、とか。もっとスマートな方法があるんだろう、きっと。



マクロミルへ登録

© 2001 Kazuya 'Sharl' Masuda
(C)Willoo Entertainment Inc. (C)Konami Digital Entertainment 株式会社ウィローエンターテイメント及び株式会社コナミデジタルエンタテインメントの著作権を侵害する行為は禁止されています。 0.047716 cached