07/09/11 23:28:53 Tz61+8GH0
>>137 こんな感じなんで，bbs.cgi 側ではソートはしてないような......
if(open(ADFILE, 'Rock54DataFile'))
{
# @FOX_Ro54 = <ADFILE> ;
@FOX_Ro54 = map { eval {
no warnings;
my @a = (split /<>/)[5..7];
[qr/$a[0]/, @a[1..2]];
}; } <ADFILE>;
close(ADFILE) ;
}