CSVデータの項目名からファイル名を付ける
ＣＳＶデータからＨＴＭＬ拡張子で書きだすＣＧＩを作成してます。
参考になるサブルーチンをネットで見つけたのですが、行の上から順に001.html・・・・のファイル名になり、ＣＳＶデータの項目にあるデータでファイル名を付けたいと思いますが、どのように処理したらよいかわかりません。アドバイス願います。
--------------------------------------------------------------
サンプルのＣＳＶデータ（2行目のファイル名をファイル名につけたいです。）
タイトル,ファイル名,会社名,担当者,ＵＲＬ
山ちゃん,yamadaya,山田屋,山田,http://www.oooxxx.oo
最上ちゃん,mogami,最上商店,最上,http://www.oooxxx.oo
南ちゃん,minami,南喫茶,南,http://www.oooxxx.oo
--------------------------------------------------------------
コード：
$list = join('',@csv);
@list = split(/\n/, $list);
for($count=1;$count<@list;$count++){
$html = $template;
$filename = sprintf("%03d.html",$count);
@listinfo = split(/\,/,$list[$count]);
for($cnt=0;$cnt<@listinfo;$cnt++){
$no = sprintf("<!--%02d-->",$cnt);
$html =~ s/$no/$listinfo[${cnt}]/g;
}
flock(FH, LOCK_EX);
open(FH,">$filename");
print FH $html;
close(FH);
flock(FH, LOCK_NB);
}
お礼
ありがとうございました。 ”FileInfoList ”と言う希望通りのもに巡り会えました。 PS： ソフト探しにキーワードの的確さが一層身にしみました。