任意のURLのHTMLタグを表示するにはどうしたらいいのでしょうか?

[上に] [前に] [次に]
まこと [E-Mail] [HomePage] 1999/07/21(水) 03:47:11
はじめまして、まことというものです。(^^)
いま僕はドリームキャストを使用して自作のCGIの設置を
試みているのですが、(物凄く初心者です(^^;;;)
自分の好きなHPのHTMLタグを表示出来る物を作ってみたくて、
いま、とりあえずファイルの読み込みをやってみているのですが
どうしてもうまくいきません。。。(涙)
(サーバーエラーにはなってないです)
下のように書いているのですが、どこか間違えているのでしょうか?

--------------------------------------------------
#!/usr/local/bin/perl

open(IN, "http://www.geocities.co.jp/HeartLand/7419/index.html");
while ($test = <IN>) { print $test; }
close(IN);

print <<to_END;
Content-type: text/html

この下に表示する。
<br><br>
$test

to_END

--------------------------------------------------
↑こんな感じです。
最終的には、フォームに入力したURLのページのHTMLタグを
textarea内に表示出来るようにしたいと思っています。
長くなってしまってすいません。どうかよろしくお願いします。

まこと [E-Mail] [HomePage] 1999/07/21(水) 03:50:59
すいません。m(_ _)m
表示がおかしくなっていました。
&lt;のところは『<』で、
&gt;のところは『>』でした。(汗)

まこと [E-Mail] [HomePage] 1999/07/21(水) 04:03:16
連続して発言してしまってすいません。(^^;;;
やっぱりみずらくなってしまったので、
もう一度書き直してみます。
どうかよろしくお願いします。


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
#!/usr/local/bin/perl

open(IN, "http://表示したいURL");
while ($test = <IN>) { print $test; }
close(IN);

print <<to_END;
Content-type: text/html

この下に表示する。
<br><br>
$test

to_END

B-Cus 1999/07/21(水) 04:05:00
1. 普通他のサーバのファイルはopenできません。
  ../199808/98080006.htm
  ../199901/99010332.htm
  ../199808/98080053.htm
  ../199907/99070163.htm
 そのopenは失敗してます。
2. HTMLをHTMLとして表示してちゃ、普通にブラウズしているのと変わりませんよ。
  s/</&lt;/ s/>/&gt;/
 とするとか、
  Content-type: text/plain
 とするとか。
3. 全体的にアルゴリズムが変です。がんばってデバッグしてください。

まこと [E-Mail] 1999/07/21(水) 10:57:17
[[解決]]
どうもありがとうございました。(^^)
これからもお世話になることがあるかも知れませんが、
その時はまたどうかよろしくお願いします。
それでは、
(^^)/~~~~

[上に] [前に] [次に]