HTMLからPerlを呼び出すには？

質問

今、Perlで他のサイトのtxtファイル（中身はliタグやaタグのHTMLファイルで、そのサイトではSSIで呼び出されています）を、入手して表示させるプログラムを作っています。

これを、呼び出して、あたかも私のサイトのように見せるにはどうすればよいでしょうか？

現在はiframeを使ってそのままtxtファイルのアドレスを指定しているのですが、拡張子がtxtであるため、IEでしか見れないという不具合があります。

これを解決するために、とほほさんのwww入門 http://tohoho.wakusei.ne.jp/wwwperl2.htm#socket で紹介されているPerlを参考にしました。そのPerlのファイルをブラウザから直接URL指定すれば実行できるようにはなり、txtの中身が表示されるようになったのですが、どのようにHTMLから呼び出せばよいのかわかりません。

やはりSSIで実行するしかないのでしょうか。
javascriptの場合、<script>タグでHTMLに直接スクリプトを記述できますが、Perlでもそのようなことは可能ですか？

回答No.2

BLUEPIXY · ベストアンサー

ウチでも試してみましたが、うまくいきました。
while (<S>) { print; }
の部分を
while(<S>){
last if /Content-Type/;
}
while (<S>){
$window->document->write($_);
$window->document->write('<BR>');
}
にしてみて下さい。
最初の、whileは、サーバーから来るヘッダ情報の読み捨てです。

ただ、スクリプトによる方法は、結局クライアント（ユーザ）側で実行しているので、perlScriptが実行できないユーザの処では、なにも表示されないことになりますが、それは、それでいいのでしょうか？
そういう意味では、SSIが使えるならSSIで処理すべきだと思いますけど。

お礼

BLUEPIXYさん

わざわざご自分の環境で試してくださるなんて感激です！どうもありがとうございます。

おかげさまで、無事に思い通りに動きました！
これまで、iframeで実装しNetscapeで動かないなど、紆余曲折がありましたが、やっと実現することができました。

しかも、後から考えようと思っていたヘッダ情報の読み捨てまで先手を打って対処してくださる姿勢に、感動しました。

思い通りに動いた画面を見て寒気すら覚え、目にはうっすらと涙が…。

お会いすることができれば、もっと丁寧なお礼をさせていただきたいのですが、ネットというバーチャルな世界でのことゆえ、それができないのが非常に残念です。

まったくもって文句のつけようがありません。
本当にありがとうございました！

追伸：
実行環境は決まっているので、PerlScriptの件は問題ありません。ご心配いただきありがとうございます。

回答No.1

BLUEPIXY

ActivePerlをインストールしてたら
<SCRIPT LANGUAGE="PerlScript">
$window->document->write('Hello world!');
</SCRIPT>
みたいな感じで、javascriptと同様にＨＴＭＬに直接スクリプトを記述できます。

お礼

BLUEPIXYさん

素早いご回答ありがとうございます。
明日、さっそく試してみます！

補足

とほほさんのソースをそのままscriptタグの間に書いてみましたが、うまいこと実行されません。
別ファイルに書く場合と、下記のようにscriptタグに書く場合とでは、何かを変える必要があるのでしょうか？
＃ <>は、&lt; &gt;に変えてあります。
＃ ActivePerlはインストール済みです。

<script language="PerlScript">
$addr = (gethostbyname("www.xxx.co.jp"))[4];
$name = pack("S n a4 x8", 2, 80, $addr);
socket(S, 2, 1, 0);
connect(S, $name);
binmode(S);
select(S);
$| = 1;
select(stdout);
print S "GET /XXXXXXX.txt HTTP/1.0\r\n\r\n";
while (&lt;S&gt;) { print; }
close(S);
</script>