$ver = "1.0"; $rev = "20040331"; # 初期設定 #*-*-*-*-*-*-**-*-*-*-*-*-*-*-*-*-# #読み込みファイル $DAT = 'data.txt'; #書き出しファイル $conv = "tmp.html"; #*-*-*-*-*-*-**-*-*-*-*-*-*-*-*-*-# print "\n【テキスト→HTML変換スクリプト】\n\n"; print '############'; print "\n"; print '# 処理開始 #'; print "\n"; print '############'; print "\n\n"; sleep 1; open (DAT,"$DAT"); @lines = ; close (DAT); open (OUT, ">$conv") || die "Open error"; print OUT <<"EOM"; \n

一時ファイル

EOM print OUT "\n"; foreach (@lines){ chomp $_; #&fix; #&fix2; @tmp = split (/\t/,$_); print OUT ""; foreach(@tmp){ print OUT ""; } print OUT "\n"; print "*"; $count ++; } print OUT "

\n"; print OUT "\n\n\n"; close (OUT); print "\n\n$count行処理しました。\n"; print "「$conv」を作成しました。\n"; print "\n\n"; print '############'; print "\n"; print '# おしまい #'; print "\n"; print '############'; print "\n"; sleep 2; print "\nウィンドウを閉じます\n"; sleep 1; exit; #----------------# # 特定文字を置換 # #----------------# sub fix { s/\t//go; s/\"//go; #s/ $.*$//go; } sub fix2 { s/\~/\"/go; }