ファイルを読み込み、URL転送をしたい
URL転送するプログラムを作成してます。
以下のURLでアクセスします。
http://hoge.com/index.cgi?mou=1
以下のデータ構成となってます。
dat.cgiのデータ
1<>http://google.co.jp/
2<>http://yahoo.co.jp/
3<>http://goo.ne.jp/
4<>http://msn.co.jp/
この場合1レコード目のURLを転送しgoogleのサイトを表示させたいのですが、初歩的なミスでサーバーエラー
500を表示しています。
index.cgi
(ここから)
#!/usr/bin/perl
# 文字コード取得
require './jcode.pl';
$datfile = "./dat.cgi";
open(DB,"$datfile") || &error("Open Error : $datfile");
@lines = <DB>;
close(DB);
@new=();
foreach $line (@lines) {
$flag=0;
($num,$mourl) = split("<>", $line);
foreach $mou (@DEL) {
if ($mou eq "$num") { print "Location: $mourl"; }
}
}
(ここまで)
同じホルダーに
jcode.pl
dat.cgi
は入っています。
申し訳ありません。よろしくご指導をお願いいたします。
