変動する

質問

はじめまして

ＣＧＩを学んで１ヶ月の者です。
実は、仕事で少し面倒な依頼を受けて困っております。
内容はＣＳＶ形式のデータをPerlで読み取ってそれを
ＨＴＭＬのテーブルに流し込むスクリプトなのですが、
慣れていないので思考停止をして進みません。

具体的なＣＳＶデータの例ですが、

10,果物,りんご,ringo.html,ぶどう,budou.html,ばなな,banana.html,10,野菜,かぼちゃ,kabotya.html,なす,nasu.html,きゅうり,kyuri.html,魚,まぐろ,maguro.html,さけ,sake.html,10,肉,牛,usi.html,麺,ラーメン,ra-men.html,そば,soba.html,うどん,udon.html

まず、先頭に10があり、これは分類の区切りを示すヘッダーです。
次に果物でこれは、分類名です。
次にりんご、これは分類詳細名です。
つぎにringo.htmlでこれは分類詳細名のリンク先アドレスです。

このようなデータの並びですが、各分類と詳細項目は変動しますので
このテーブルのあるＷＥＢページを毎回読み直す必要があります。

どうのようにしたらよいのでしょうか。
お助けください。

回答No.3

dany

解説するより実際の処理を見てもらったほうが早いかなと
思ってつらつらと書いてみました。

>このようなデータの並びですが、各分類と詳細項目は変動しますので
↑を「項目の並び順が変動」と勘違いして書いたので項目順序が変わっても
@TYPEを書き換えればいいようにしてみました。

$FILE = './hoehoe.csv';
$HTML = './hoehoe.htm';
@TYPE = qw( HEAD TYPE NAME ADDR );　　# 項目のタイプを指定

open( IN,$FILE )||&error;
while( $line = <IN> ){　　　　　　　　# 一行ずつ読み込む
　chomp( $line );　　　　　　　　　　 # 改行コードを削除
　&conv1( $line );　　　　　　　　　　# 変換処理
}
close( IN );
open( OUT, '>'.$HTML );　　　　　　　 # 出力ファイルを開く
　print OUT $output;　　　　　　　　　# 書き出す
close( OUT );
exit;　　　　　　　　　　　　　　　　 # 終了

# 変換タイプ１
# ====================
sub conv1{
　my $line = shift;　　　　　　　　　 # 渡された行の内容
　@lines = split( ',',$line );　　　　# 「,」で分割して配列へ
　foreach $i ( 0 .. $#lines ){　　　　# 0番目から配列の最後まで繰り返す
　 if( $TYPE[$i] eq 'HEAD' ){　　　　# 以降、番号に対応した項目で変換処理
　 ～HEAD項目に対する変換処理～
　 }elsif( $TYPE[$i] eq 'TYPE' ){
　 ～TYPE項目に対する変換処理～
　 }elsif( $TYPE[$i] eq 'NAME' ){
　 ～NAME項目に対する変換処理～
　 }elsif( $TYPE[$i] eq 'ADDR' ){
　 ～ADDR項目に対する変換処理～
　 }
　 $outpt .= $lines[$i];　　　　　　 # 出力用変数に追加書き
　}
}

ところで
10,果物,りんご,ringo.html,ぶどう,budou.html,ばなな,banana.html,10,野菜,かぼちゃ,kabotya.html,なす,nasu.html,きゅうり,kyuri.html,魚,まぐろ,maguro.html,さけ,sake.html,10,肉,牛,usi.html,麺,ラーメン,ra-men.html,そば,soba.html,うどん,udon.html

ってひょっとして一行になってるんですか？

補足

いろいろありがとうございます。
今のところ、ＣＳＶデータは１行になっているものとして考えています。
それは、今後このＣＳＶデータをデータベースで書き出してそれをperlで読み取って変動するＷＥＢページを目指しているからです。
リンクするページが激しく変動するので手作業で直すことは避けたいための考えですが、
もし、１行じゃないほうがいいのでしたら、各分類ごとに改行して複数行にしても構わないと思います。