ベストアンサー

切り分けてソート(?)

2005/07/05 12:16

CGIを改造しようと努力中です。イベント開催一覧のようなものを表示させたいので、更新記録CGIを改造しつつ自分の目的にあった表示にしたいと思っています。この中で、日付ごとに表示をさせたいと思っています。「$no,$titles,$comment,$img,$date」の形でログに保存していっています。もちろん「$date」の項目に日付が入っているのですが、「2005/00/00～2005/00/00」または「2005/00/00～00/00」という「開始日と終了日」で保存されています。これを終了日でソートし、早く終わるものを一番上に持って来たいのです。しかし、方法がさっぱりです。概念的には… 1.$dateの「～」の前までを削除する 2.日付を数字に変換(?) 3.ソートして一旦格納 4.foreachで表示を繰り返すって感じですよね? この1～3の仕方がさっぱりわかりません。方法を教えてください。言語はジャンルでも書いてあるとおりperlです。抜けている情報があったら指摘してください。すぐに書込みします。以上お願いします。

master-3rd
お礼率39% (524/1325)

Perl
回答数10
ありがとう数7

みんなの回答 （10）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

xyz37005
ベストアンサー率51% (363/708)

2005/07/06 14:06 回答No.8

＞この方法だと開始日の方でソートしていませんか?終了日の方が微妙にソートできていなかったので… ＞終了日の方でソートしたいのですが、お願るでしょうか? こういうことを書くのであれば、どうのような入力データでどのような出力がされたかも書いてください。少なくとも私の環境ではきちんと終了日でソートされてました。みなさん・「$no,$titles,$comment,$img,$date」の形でログに保存・「$date」は「2005/00/00～2005/00/00」または「2005/00/00～00/00」の形式を前提としてアドバイスされてます。データ形式が違えば当然出力も違ってきます。質問をされる際には正しい情報でお願いします。なお、下記は区切り文字を<>に変更してあります。 ○スクリプト例 ------------------------------------------------------------------------------ #!C:/perl/bin/perl @event_data = ( "1<>イベント1<>コメント1<>イメージ1<>2005/01/01～2005/01/02" , "2<>イベント2<>コメント2<>イメージ2<>2005/02/01～2005/02/02" , "3<>イベント3<>コメント3<>イメージ3<>2005/03/01～03/02" , "4<>イベント4<>コメント4<>イメージ4<>2005/04/01～04/02" , "5<>イベント5<>コメント5<>イメージ5<>2005/01/11～01/12" , "6<>イベント6<>コメント6<>イメージ6<>2005/02/11～02/12" , "7<>イベント7<>コメント7<>イメージ7<>2005/03/11～2005/03/12" , "8<>イベント8<>コメント8<>イメージ8<>2005/04/11～2005/04/12" , "9<>イベント9<>コメント9<>イメージ9<>2005/5/1～2005/5/31" , "10<>イベント10<>コメント10<>イメージ10<>2005/05/02～2005/05/30" , "11<>イベント11<>コメント11<>イメージ11<>2005/5/3～5/29" , "12<>イベント12<>コメント12<>イメージ12<>2005/05/04～05/28" , "13<>イベント13<>コメント13<>イメージ13<>2005/06/01～06/10" , "14<>イベント14<>コメント14<>イメージ14<>2005/6/2～6/9" , "15<>イベント15<>コメント15<>イメージ15<>2005/06/03～2005/06/8" , "16<>イベント16<>コメント16<>イメージ16<>2005/6/4～2005/6/7" ) ; @new_event_data = ( ) ; foreach $tmp_event_date ( @event_data ){ ( $no , $titles , $comment , $img , $date ) = split( /<>/ , $tmp_event_date ) ; if( $date =~ /^[0-9]{4}\/[0-9]{1,2}\/[0-9]{1,2}～([0-9]{4})\/([0-9]{1,2})\/([0-9]{1,2})$/ ){ $end_date = sprintf( "%04d%02d%02d" , $1 , $2 , $3 ) ; }elsif( $date =~ /^([0-9]{4})\/[0-9]{1,2}\/[0-9]{1,2}～([0-9]{1,2})\/([0-9]{1,2})$/ ){ $end_date = sprintf( "%04d%02d%02d" , $1 , $2 , $3 ) ; } push( @new_event_data , $end_date . "," . $tmp_event_date ) ; } @new_event_data = sort( @new_event_data ) ; print <<HTML ; Content-type: text/html <html> <head> <title>テスト</title> </head> <body> <table border=4 width=250 align=center> <tr bgcolor="#cccccc"> <th>no</th> <th>titles</th> <th>comment</th> <th>img</th> <th>date</th> </tr> HTML foreach $tmp_new_event_date ( @new_event_data ){ $tmp_new_event_date =~ s/^[0-9]{4}[0-9]{2}[0-9]{2},// ; ( $no , $titles , $comment , $img , $date ) = split( /<>/ , $tmp_new_event_date ) ; print <<HTML ; <tr align=center> <td>$no</td> <td>$titles</td> <td>$comment</td> <td>$img</td> <td>$date</td> </tr> HTML } print <<HTML ; </table> </body> </html> HTML ------------------------------------------------------------------------------ 参考にPerlを使ったCGIについてわかりやすく書いたHPを紹介します。ここを見て勉強することをお勧めします。

参考URL：: http://www.tohoho-web.com/

質問者

お礼 2005/07/20 14:04

返答遅くなってすみません。無事この方法で完璧なソートが出来ました。ありがとうございました。

その他の回答 (9)

karumakaruma
ベストアンサー率65% (65/100)

2005/07/06 14:40 回答No.10

#3です。 #4さんの処理をパクってます( ´∀`) --- ここから ----- #ソートのキー(終了日)を抜き出し配列(@tmp1)に入れる #この際、年が付いていない場合は、開始日の年を #入れる。 @tmp1 = map{ join '' , $_ =~ m<(\d{4}/)(?:\d{1,2}/\d{1,2}～)?(\d{1,2}/\d{1,2})$> } @event_data; #ソート用に月、日を２桁に変更 $_ = sprintf( "%04d/%02d/%02d", split("/",$_)) for @tmp1; #ソート処理 @data = @event_data[ sort{ $tmp1[$a] cmp $tmp1[$b] } 0..$#tmp1]; #表示部 foreach $data (@data){ ($no,$titles,$comment,$img,$date) = split (/<>/,$data); print "<TR>\n"; print " <TD>$titles</TD>\n"; print " <TD>$date</TD>\n"; print "</TR>\n"; } --- ここまで ------ たぶん、これを見ただけでは何をしようとしているか判らないと思います。やってる事を順次説明します。 @tmp1 = map{ join '' , $_ =~ m<(\d{4}/)(?:\d{1,2}/\d{1,2}～)?(\d{1,2}/\d{1,2})$> } @event_data; この部分ですが、簡単に言うと終了日を抜き出し @tmp1に入れています。 m<・・・・・・>の部分は判りにくいとは思いますがやってる事は、終了日を抜き出し、年が無ければ開始日の年をくっつけるという処理になってます。それらを@tmp1に入れていって、終了日の配列を作ります。 $_ = sprintf( "%04d/%02d/%02d", split("/",$_)) for @tmp1; ここでは、@tmp1に入っている終了日を ****/*/* → ****/**/**の形に変換をかけています。なぜ変換するかというと、ソートをする時に 2005/07/01 と2005/11/01の場合、2005/11/01が大きいと判断できるのですが 2005/7/1 と2005/11/01の場合、「2005/7」と「2005/1」が比較され、2005/7/1が大きいと判断してしまうからです。 @data = @event_data[ sort{ $tmp1[$a] cmp $tmp1[$b] } 0..$#tmp1]; ソート処理です。簡単に言うと、@tmp1をソートし、その結果（配列番号順）通りに@event_dataを@dataに入れています。簡単な例で説明すると名簿があり、出席番号、名前、体重という構成になっているとします。（変な名簿ですが・・）＃@event_dataが名簿全体の配列を表し＃@tmp1は出席番号、体重という配列を表します。この時、@tmp1を体重順でソートすると出席番号の順番も変わりますよね？その出席番号順に、名簿全体を並び変える処理が上の処理です。表示部は・・・まぁ判りますよね(´・ω・`) あと気になったのですが、終了日が同じ場合開始日順でもソートをするのでしょうか？その場合は、 @tmp1を抜き出す処理の次に @tmp2 = map{ join '' , $_ =~ m<(\d{4}/\d{1,2}/\d{1,2})～> } @event_data; $_ = sprintf( "%04d/%02d/%02d", split("/",$_)) for @tmp2; を追加しソート処理を @data = @event_data[ sort{ $tmp1[$a] cmp $tmp1[$b] or $tmp2[$a] cmp $tmp2[$b] } 0 .. $#tmp1 ]; に差し替えてください。

leaz024
ベストアンサー率75% (398/526)

2005/07/06 14:23 回答No.9

No.7 でテスト中のコードを書いてしまいました。。。ソート部分は正しくはこうなります。 @data = map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_, sprintf('%04d%02d%02d', m<(\d{4})/(?:\d+/\d+～)?(\d+)/(\d+)$>)]} @data;

leaz024
ベストアンサー率75% (398/526)

2005/07/06 13:56 回答No.7

何だか質問文とはずいぶん仕様が違ってきてますが、それに合わせたものを再掲。 ※データは <> 区切り ※日付の月日はゼロ埋めなし @data = <IN>; # ソート（長いけど１行です。） @data = map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_, join('', m<(\d{4}/)(?:\d+/\d+～)?(\d+/\d+)$>)]} @data; # 表示 foreach $data (@data){ chomp($data); ($no, $titles, $comment, $img, $date) = split(/<>/, $data); print "$titles ： $date\n"; }

xyz37005
ベストアンサー率51% (363/708)

2005/07/06 11:28 回答No.6

文字列をある文字で分割したい場合は通常splitを使います。 http://www2u.biglobe.ne.jp/~MAS/perl/ref/split.html ○スクリプト例 ------------------------------------------------------------------------------ #!C:/Perl/bin/perl @event_data = ( "1,イベント1,コメント1,イメージ1,2005/01/01～2005/01/02" , "2,イベント2,コメント2,イメージ2,2005/02/01～2005/02/02" , "3,イベント3,コメント3,イメージ3,2005/03/01～03/02" , "4,イベント4,コメント4,イメージ4,2005/04/01～04/02" , "5,イベント5,コメント5,イメージ5,2005/01/11～01/12" , "6,イベント6,コメント6,イメージ6,2005/02/11～02/12" , "7,イベント7,コメント7,イメージ7,2005/04/11～2005/03/12" , "8,イベント8,コメント8,イメージ8,2005/04/11～2005/04/12" , ) ; @new_event_data = ( ) ; foreach $tmp_event_date ( @event_data ){ ( $no , $titles , $comment , $img , $date ) = split( /,/ , $tmp_event_date ) ; ( $start_date , $end_date ) = split( /～/ , $date ) ; if( $end_date =~ /^[0-9]{2}\/[0-9]{2}$/ ){ ( $year , $dummy ) = split( /\// , $start_date ) ; $end_date = $year . $end_date ; } $end_date =~ s/\///g ; push( @new_event_data , $end_date . "," . $tmp_event_date ) ; } @new_event_data = sort( @new_event_data ) ; print <<HTML ; Content-type: text/html <html> <head> <title>テスト</title> </head> <body> <table border=4 width=250 align=center> <tr bgcolor="#cccccc"> <th>no</th> <th>titles</th> <th>comment</th> <th>img</th> <th>date</th> </tr> HTML foreach $tmp_new_event_date ( @new_event_data ){ $tmp_new_event_date =~ s/^[0-9]{4}[0-9]{2}[0-9]{2},// ; # print "$tmp_new_event_date\n" ; ( $no , $titles , $comment , $img , $date ) = split( /,/ , $tmp_new_event_date ) ; print <<HTML ; <tr align=center> <td>$no</td> <td>$titles</td> <td>$comment</td> <td>$img</td> <td>$date</td> </tr> HTML } print <<HTML ; </table> </body> </html> HTML ------------------------------------------------------------------------------ ※これはあくまで例です。先頭の"#!C:/Perl/bin/perl"を初め自分の環境などに合わせて書き換えてください。ところで＞あと、保存されているログが<>で区切られているので、って、","区切りじゃないの? もし"<>"区切りならsplitとかの区切り文字変えてね。それからNo.5の記事にある補足についてですがソートされてないのは日付がyyyy/mm/ddの形になってないから。一桁の月とか日とかも先頭に0を詰めなきゃダメですよ。例：今日なら2005/7/5でなく2005/07/05と表記。最初の質問で＞、「2005/00/00～2005/00/00」または「2005/00/00～00/00」とあるので皆さんそれ前提で考えてるんですよ。

質問者

補足 2005/07/06 12:13

何度も返答すみません。ソートちゃんとうまくいきました。しかし1つだけ問題が… この方法だと開始日の方でソートしていませんか?終了日の方が微妙にソートできていなかったので… 終了日の方でソートしたいのですが、お願るでしょうか? >例：今日なら2005/7/5でなく2005/07/05と表記。これは、0/0で今までやってきたのですが、このままの書き方でいく場合、そのためにまた色々と変更が必要ですか? 難しいようだったらこのままで良いのですが、やはり0/0表記の方がスマートなので… こちらもお願いできるでしょうか。色々と注文ばかりで済みませんが、お願いします。<(_ _)>

cascade
ベストアンサー率24% (35/144)

2005/07/05 17:59 回答No.5

#1です。専門家さんがいらっしゃる中、シロートが書くのも恥ずかしいですけどあえて自分の路線を曲げずにいきますｗ質問者さんのソースをちょびっと書き換えて、さらに終了日の"年"部分は無くてもいいように改造しました。データは#3さんのパクリです。＃見づらくてごめんなさい。＃コピペでも使えるように半角スペースのままです。 ○コード #@data = <IN>; #↓ファイルから読み取ったものする(なので最後にLFが付いてる) @data = ( "1,イベ1,コメ1,イメ1,2005/01/01～2005/02/10\n", "2,イベ2,コメ2,イメ2,2005/01/15～2005/02/02\n", "3,イベ3,コメ3,イメ3,2005/03/01～07/25\n", "4,イベ4,コメ4,イメ4,2005/04/01～04/15\n", "5,イベ5,コメ5,イメ5,2005/04/01～05/31\n", "6,イベ6,コメ6,イメ6,2005/05/01～05/22\n", "7,イベ7,コメ7,イメ7,2005/05/11～2005/05/18\n", "8,イベ8,コメ8,イメ8,2005/06/01～2005/06/30\n", ) ; ### ここでソートする。 @sort_array = sort sort_func @data; #sort_funcに従ってソート sub sort_func { my @tmp; my $aa = (split /,/, $a)[4]; #レコードから$dateを取り出す @tmp = split /～/, $aa; #開始日/終了日を分離 if ($tmp[1] !~ /^\d{4}\//) { #"年"がなければ開始日から抜き出してくっつける $aa = (split /\//, $tmp[0])[0] . "/" . $tmp[1]; } my $bb = (split /,/, $b)[4]; @tmp = split /～/, $bb; if ($tmp[1] !~ /^\d{4}\//) { $bb = (split /\//, $tmp[0])[0] . "/" . $tmp[1]; } return($aa cmp $bb); #終了日の日付が古い順ならこっち # return($bb cmp $aa); #終了日の日付が新しい順ならこっち } foreach $sort_array (@sort_array){ # ($no,$titles,$comment,$img,$date) = split(/<>/,$sort_array); ($no,$titles,$comment,$img,$date) = split(/,/,$sort_array); # chomp; print $no, ":", $date; } ○結果 1:2005/01/01～2005/02/10 2:2005/01/15～2005/02/02 4:2005/04/01～04/15 7:2005/05/11～2005/05/18 6:2005/05/01～05/22 5:2005/04/01～05/31 8:2005/06/01～2005/06/30 3:2005/03/01～07/25

質問者

補足 2005/07/06 09:46

更なる返答ありがとうございます。しかし、微妙に惜しいです。ソートはしているようなのですが、ちゃんと順番通りになってません。まずは、このままコピペしたところログの数だけ表は出るのですが表示しませんでした。ソースを見ると、Noのところにすべて表示してしまってました。なので、 ($no,$titles,$comment,$img,$date) = split(/<>/,$sort_array); #($no,$titles,$comment,$img,$date) = split(/,/,$sort_array); こう変えてみたところ表示はするようになりました。しかし、いまだソートはせず…(T_T) あと、保存されているログが<>で区切られているので、 my $aa = (split /<>/, $a)[4]; my $bb = (split /<>/, $b)[4]; としてみました。変化はあったのですが、日付の通りにはなっていません。しかも、どういう法則でソートされているのかがさっぱりです。(return($aa cmp $bb)を入れ替えると、上下反転するので、正常に動作はしているのですが…) 現在の結果は… 2005/07/9～2005/07/10 2005/5/10～2005/5/20 2005/5/10～2005/5/31 2005/5/10～2005/6/19 2005/5/10～2005/7/31 2005/5/11～2005/6/19 って感じで並んでます。すみません。解決方法をお願いします。

leaz024
ベストアンサー率75% (398/526)

2005/07/05 16:51 回答No.4

@data = map {$_->[0]} 　　　　　　　　 sort {$a->[1] cmp $b->[1]} 　　　　　　　　　　　map {[$_, get_end_date($_)]} 　　　　　　　　　　　　　　@data; print "$_\n" for @data; sub get_end_date { 　　join '', $_[0] =~ m<(\d{4}/)(?:\d\d/\d\d～)?(\d\d/\d\d)$>; } この手のソートをする時は sort の比較式の中でログを分解すると効率が悪いので、予め比較部分を用意してソートするようにします。 ※この考え方については、参考URLに詳しく載っています。終了日は「年」のある／なしが統一されていないので、年付きに統一して比較する必要があります。次の正規表現で年（終了日に年があればそれを、なければ開始日の年を取り出す）と月日のリストが得られるので、それを連結して終了日とします。　　m<(\d{4}/)(?:\d\d/\d\d～)?(\d\d/\d\d)$> なお、日付は文字列としてソート可能なので、数値に変換する必要はありません。また、今回は日付部分がデータ末尾に付いていたので簡単に処理しましたが、途中にある場合は split などで抜き出してから処理して下さい。 ※インデントに全角空白を使っているので、コピーする場合はタブなどに置換して下さい。

参考URL：: http://www.din.or.jp/~ohzaki/perl.htm#SortST

karumakaruma
ベストアンサー率65% (65/100)

2005/07/05 14:56 回答No.3

面白そうだったので、荒業に挑戦してみました。＃たぶん参考にはならないと思います・・＃データなどはNo.2さんを参考にしてます。＃インデントには全角空白を使っているので＃コピペの際は半角に変えてください。 @event_data = ( "1,イベ1,コメ1,イメ1,2005/01/01～2005/02/10", "2,イベ2,コメ2,イメ2,2005/01/15～2005/02/02", "3,イベ3,コメ3,イメ3,2005/03/01～07/25", "4,イベ4,コメ4,イメ4,2005/04/01～04/15", "5,イベ5,コメ5,イメ5,2005/04/01～05/31", "6,イベ6,コメ6,イメ6,2005/05/01～05/22", "7,イベ7,コメ7,イメ7,2005/05/11～2005/05/18", "8,イベ8,コメ8,イメ8,2005/06/01～2005/06/30", ) ; foreach $event ( 　sort { 　　((split("～",$a))[1] =~ /^\d{2}\/\d{2}$/ ? 　　　join("",(split("/",(split(",",$a))[4]))[0], 　　　　(split("/",(split("～",$a))[1]))) 　　　: join("",(split("/",(split("～",$a))[1])))) 　　<=> 　　((split("～",$b))[1] =~ /^\d{2}\/\d{2}$/ ? 　　　join("",(split("/",(split(",",$b))[4]))[0], 　　　　(split("/",(split("～",$b))[1]))) 　　　: join("",(split("/",(split("～",$b))[1])))) 　}@event_data){ 　print "$event\n"; } 結果 2,イベ2,コメ2,イメ2,2005/01/15～2005/02/02 1,イベ1,コメ1,イメ1,2005/01/01～2005/02/10 4,イベ4,コメ4,イメ4,2005/04/01～04/15 7,イベ7,コメ7,イメ7,2005/05/11～2005/05/18 6,イベ6,コメ6,イメ6,2005/05/01～05/22 5,イベ5,コメ5,イメ5,2005/04/01～05/31 8,イベ8,コメ8,イメ8,2005/06/01～2005/06/30 3,イベ3,コメ3,イメ3,2005/03/01～07/25 解説 foreach()内のsortで、年がついてるかどうかの比較をし、無かったら開始日の年をつけて一旦終了日を"年月日"に作り変えます。その形でソートさせて、表示しています。結局は、読みづらいだけですね( ´∀`)

xyz37005
ベストアンサー率51% (363/708)

2005/07/05 13:07 回答No.2

○スクリプト例 #!/usr/local/bin/perl @event_data = ( "1,イベント1,コメント1,イメージ1,2005/01/01～2005/01/02" , "2,イベント2,コメント2,イメージ2,2005/02/01～2005/02/02" , "3,イベント3,コメント3,イメージ3,2005/03/01～03/02" , "4,イベント4,コメント4,イメージ4,2005/04/01～04/02" , "5,イベント5,コメント5,イメージ5,2005/01/11～01/12" , "6,イベント6,コメント6,イメージ6,2005/02/11～02/12" , "7,イベント7,コメント7,イメージ7,2005/04/11～2005/03/12" , "8,イベント8,コメント8,イメージ8,2005/04/11～2005/04/12" , ) ; @new_event_data = ( ) ; foreach $tmp_event_date ( @event_data ){ ( $no , $titles , $comment , $img , $date ) = split( /,/ , $tmp_event_date ) ; ( $start_date , $end_date ) = split( /～/ , $date ) ; if( $end_date =~ /^[0-9]{2}\/[0-9]{2}$/ ){ ( $year , $dummy ) = split( /\// , $start_date ) ; $end_date = $year . $end_date ; } $end_date =~ s/\///g ; push( @new_event_data , $end_date . "," . $tmp_event_date ) ; } @new_event_data = sort( @new_event_data ) ; foreach $tmp_new_event_date ( @new_event_data ){ $tmp_new_event_date =~ s/^[0-9]{4}[0-9]{2}[0-9]{2},// ; print "$tmp_new_event_date\n" ; } ○出力結果 1,イベント1,コメント1,イメージ1,2005/01/01～2005/01/02 5,イベント5,コメント5,イメージ5,2005/01/11～01/12 2,イベント2,コメント2,イメージ2,2005/02/01～2005/02/02 6,イベント6,コメント6,イメージ6,2005/02/11～02/12 3,イベント3,コメント3,イメージ3,2005/03/01～03/02 7,イベント7,コメント7,イメージ7,2005/04/11～2005/03/12 4,イベント4,コメント4,イメージ4,2005/04/01～04/02 8,イベント8,コメント8,イメージ8,2005/04/11～2005/04/12

質問者

お礼 2005/07/05 17:08

すみません。補足を使ってしまったので、御礼の欄で追加情報を記入します。最終的に以下のような形で表示したいです。 foreach $data (@data){ ($no,$titles,$comment,$img,$date) = split(/<>/,$data); chomp; print "<TR>\n"; print "<TD>$titles</TD><TD>$date</TD>\n"; print "<TR><TD>\n"; ～～ (もちろん、「 $data・@data」に関しては変更可能です) ここに当てはめる事が出来るような形で回答をお願いできるでしょうか?素人なので、それ以上の修正がうまく出来ません。以上、お願いいたします。

質問者

補足 2005/07/05 16:48

返答ありがとうございます。出力結果ですが、表を利用して一覧表のように出したいです。 $tmp_new_event_dateをそれぞれの変数に割るにはどうしたら良いのでしょう? 初歩的な質問ですみません。お願いします。

cascade
ベストアンサー率24% (35/144)

2005/07/05 13:00 回答No.1

"$no,$titles,$comment,$img,$date"の配列が@dataに入っていたとして、私がよくやる方法だとこんな感じです。 @sort_array = sort sort_func @data; #sort_funcに従ってソート sub sort_func { my $aa = (split /,/, $a)[4]; #レコードから$dateを取り出す $aa = (split /～/, $aa)[1]; #$dateから終了日を抜き出す my $bb = (split /,/, $b)[4]; #上と同じ $bb = (split /～/, $bb)[1]; # return($aa cmp $bb); #終了日の日付が古い順ならこっち # return($bb cmp $aa); #終了日の日付が新しい順ならこっち } 但し、これは終了日のところが必ず"年/月/日"となっていないと使えません。 "月/日"でもいいようにするにはsort_funcの中で"～"より前に付いてる "年"部分を"月/日"にくっつけてやればいいです。

質問者

補足 2005/07/05 16:38

返答ありがとうございます。えー。ナゼでしょう。うまく動作しません。 ---------- @data = <IN>; ### ここでソートする。 @sort_array = sort sort_func @data; #sort_funcに従ってソート sub sort_func { my $aa = (split /,/, $a)[4]; #レコードから$dateを取り出す $aa = (split /～/, $aa)[1]; #$dateから終了日を抜き出す my $bb = (split /,/, $b)[4]; #上と同じ $bb = (split /～/, $bb)[1]; # return($aa cmp $bb); #終了日の日付が古い順ならこっち # return($bb cmp $aa); #終了日の日付が新しい順ならこっち } foreach $sort_array (@sort_array){ ($no,$titles,$comment,$img,$date) = split(/<>/,$sort_array); chomp; print "～解決方法を教えてください。

切り分けてソート(?)