- ベストアンサー
htmlをperl用書式に自動変換するフリーツール
以前、ネットワーク上で、普通に書かれたHTMLをPERLスクリプト内に埋めこむための書式に自動的に変換してくれるツール（フリーウェア）を見つけてDLしたことがあるのですが、うっかり消してしまったか何かでそれを失ってしまいました。 もういちど取得しようと思うのですが、何せ偶然みつけてその場でDLしたもので、どこで配布していたのか全く記憶がありません。 ご存知の方いらっしゃいましたら、是非教えてください。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
別にツールは必要ありませんよ。 (↑ツールがわからないのでこんなこと言っちゃってます^^; ) print <<_HTML; ～HTMLのタグ～ _HTML という風にするだけです。"_HTML"の部分は別になんでもいいです。 良く使われてるのは"_HTML"と"_EOF"みたいですが。 [例] #!/usr/bin/perl print "Content-type: text/html\n\n"; print <<_HTML; <HTML> <HEAD> <TITLE>Sample</TITLE> </HEAD> <BODY> <DIV align="center">This is Sample Page.</DIV> </BODY> </HTML> _HTML あと、1行とか書くときは、 print "<IMG src=\"image.gif\" width=\"10\" height=\"10\" alt=\"image\">" というように、"(ダブルクォート)は\"としてください。
その他の回答 (1)
- Spur
- ベストアンサー率25% (453/1783)
私もツールは使いません。 No.1の方の様にそのままコピペしてしまうか、 HTMLファイルをそのままテンプレートファイルとして置いておき、それを読み込んで表示するperlを作っちゃいますけど？ &readfile; foreach $line (@FILE) { ($oneline) = split(/\n,/,$line); chop($oneline); print "$oneline"; } sub readfile{ open(FILE,"xxxx.html") or die "Index file error"; @iDATA = <FILE>; close(FILE); } 実際には「<」、「>」、特殊記号などの変換（デコード）処理をしてからprintしてくださいね。
お礼
どうもありがとうございました。
補足
教えていただきありがとうございます。 細かい作業なので、小さなミスがかならずでます。探しているツールですと、 一括変換だったので、第一感で使えると思いました。 もう少しどなたかの助言を待ってみます。 また質問したら是非アドバイスしてやってください。よろしくです。