Perlでニュースプログラム
お世話になります。looserと申します。
Perlで、ニュースプログラムを作っているのですが、どうしてもやり方がわからなくて、教えていただきたいのです。
データファイルがあり、年度ごとの一覧をCGIからHTMLで出力し、また最初のページには、今年度の記事の一覧があり、それぞれの記事をクリックするとその記事の詳細が出てきます。
それぞれの記事には、全部の年の目次があって、その年の目次はクリックできないようにするというようなものを作りたいのです。
--data.csv--
1,2002,記事1
2,2002,記事2
3,2003,記事3
4,2003,記事4
5,2003,記事5
6,2004,記事6
7,2005,記事7
-------プログラム---------
@data = &ReadData();#data.csvの読み込み
#年一覧の配列の作成
foreach (@data){
($no,$year) = split(/,/);
unless($year == $last){push(@year_list,$year);}
else{$last = $year;}
}
foreach $yr (@year_list){#年ごとのループ
chomp($yr);
foreach $data (@data){#データループ
($no,$year,$message) = split(/,/,$data);
if($year == $yr){
#
#この辺で配列格納？それともページ出力？
#
}
}
}
--------------------------
これでやると、それぞれの年の一覧ページの出力が出来ないのです。
どなたか分かる方、また、サンプルになるスクリプトなどをご存知の方お願いいたします。
やりたい事
1.年度ごとの記事一覧の出力
2.記事ごとのページの出力
3.年のインデックス（目次）の出力→全ページに付く
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
![その他([地域情報] 旅行・レジャー) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c932_3_thumbnail_img_sm.png)
お礼
ありがとうございます。参考にさせていただきます。