レス数が950を超えています。1000を超えると表示できなくなるよ。

くだらない質問はここに書き込め！Ver.なんでもアリ

874 ：Perlじゃだめかなぁ？ ：2001/07/23(月) 16:03

#!/usr/bin/perl
#
# hoge.pl
# perl hoge.pl some_file
#

@foo = <>;
@foo = sort by_myrule @foo;
print @foo;

sub by_myrule(){
　($aa) = split(/ /,$a);
　($bb) = split(/ /,$b);
　return $aa <=> $bb;
}　

read.cgi ver5.26+ (01/10/21-)