#!/usr/local/bin/perl # rep2html.pl # Copyright(C) 古谷俊一 1998 # # 0.1 1998/03/01 とりあえず作成。地の文や表題、章建てなどには未対応。 # 0.1 1998/05/31 TRPG.NET に移行。 # # 名前、タブ、本文、改行　というフォーマットで書かれた文章から # 台本形式のリプレイを作成するための補助スクリプト # perl rep2html.pl test1.txt # などとやると、test1.html が生成されます。 # ご自由にご利用くださいませ。 ## 設定項目 ########################################################## $mail_adress = "sf\@trpg.net"; ## 前処理 ############################################################ ($filename,$file_ext) = split(/\./ ,$ARGV[0]); if ($filename eq "") {die "File name is Empty!!\n";} open( IN , "<".$filename."\.".$file_ext) || die "Input file $filename is not Found!!\n"; open( OUT , ">".$filename.".html") || die "Output file filename\.html can not Open!!\n"; ## 前出力 ############################################################ print OUT < $filename

$filename

EOT ## 変換出力 ########################################################## foreach (){ ($name,$text)= split(/\t/,$_ ); # 出力フォーマットなどはお好きにどうぞ。 print OUT "
".$name."
".$text."\r\n"; } ## 後出力 ############################################################ print OUT <

This page was converted by rep2html

Address
EOF __END__