| ■No8359に返信(hiroさんの記事)
> キーワードで検索した結果を、$dat の項目でソートしたいのでが、どうしてもできません。
> 「検索した結果を、printで出力する前に、配列に入れなおしてソートする」
> という手順でいいかと思うのですが、どのように記述してもソートしてくれません。
> オリジナルソースの該当部分は、次の通りです。
：
> print;
：
$dat の内容にもよりますが、Perlには sort という便利な関数があるので
それを使うと良いと思います。
例えば上記の print; というところで検索結果を表示しているわけですから、
ここで、$dat を先頭にして新しい配列に入れちゃいます。
print; → push(@Sort,"$dat<>$_");
でそのあと、 @Sort=sort(@Sort); として、
forreach (@Sort){
($dat,$no,$mae,$ato,$mid,$com,$dat2,$p1,$p2,$p3,$s2,$s3) = split(/<>/);
print;
}
とすればいけそうな気がします。
|
