以前、ネットワーク上で、普通に書かれたHTMLをPERLスクリプト内に埋めこむための書式に自動的に変換してくれるツール(フリーウェア)を見つけてDLしたことがあるのですが、うっかり消してしまったか何かでそれを失ってしまいました。
 もういちど取得しようと思うのですが、何せ偶然みつけてその場でDLしたもので、どこで配布していたのか全く記憶がありません。
 ご存知の方いらっしゃいましたら、是非教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

私もツールは使いません。


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してくださいね。
    • good
    • 0
この回答へのお礼

どうもありがとうございました。

お礼日時:2002/02/19 05:10

別にツールは必要ありませんよ。


(↑ツールがわからないのでこんなこと言っちゃってます^^; )

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\">"
というように、"(ダブルクォート)は\"としてください。

この回答への補足

教えていただきありがとうございます。
細かい作業なので、小さなミスがかならずでます。探しているツールですと、
一括変換だったので、第一感で使えると思いました。
もう少しどなたかの助言を待ってみます。
また質問したら是非アドバイスしてやってください。よろしくです。

補足日時:2002/02/04 17:29
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報

カテゴリ