| こんにちは、hiroといいます。
フリーで配布されているCGIプログラム(perl5)をカスタマイズしています。
CGI初心者なもので、マニュアルなどを参考に見よう見まねで改造しています。
キーワードで検索した結果を、$dat の項目でソートしたいのでが、どうしてもできません。
「検索した結果を、printで出力する前に、配列に入れなおしてソートする」
という手順でいいかと思うのですが、どのように記述してもソートしてくれません。
どなたか教えていただけると幸いです。
オリジナルソースの該当部分は、次の通りです。
$in{'word'} =~ s/ / /g;
@word = split(/\s+/, $in{'word'});
open(IN,"$logfile") || &error("Open Error : $logfile");
$i=0;
while (<IN>) {
($no,$mae,$ato,$mid,$com,$dat,$p1,$p2,$p3,$s2,$s3) = split(/<>/);
$flag=1;
foreach $key (@word) {
if (index($_,$key) >= 0) { $flag=1; }
else { $flag=0; last; }
}
if (!$flag) { next; }
$i++;
print;
}
close(IN);
よろしくお願いします。
|
