| タイトル | ： Re^2: 自動ジャンプのリンクを張りたいのですが・・ |
| 投稿日 | ： 2012/03/27(Tue) 18:09 |
| 投稿者 | ： km |
瀬戸っぷさん
すみません、色々いじってるので、ソースぐちゃぐちゃで汚いですが貼りますね。
#!/usr/bin/perl
# メールを送信後次のページに移動する。
use CGI;
$q = new CGI;
#print "<A HREF=\"Location:**********************************.cgi\">ジャンプ</A>";
#ここだと自動ジャンプで飛べる→print "Location: http://www.yahoo.co.jp/\n\n";
#print "Location: http://www.yahoo.co.jp/\n\n";
&header;# ヘッダー呼び出し(ヒアドキュメント開始)
#ここからは飛べない（ヒアドキュメント内部)
# ヒアドキュメント強制終了すればいける？
#print "Location: http://www.yahoo.co.jp/\n\n";
#print "Location: http://www.*****************/\n\n";# 完了ページに飛ぶ
#@{[&function()]};
#print "Location: http://*************************";
#@{[print "Location: *********************.cgi\n\n"]};
# --------------------------------------------------------------------------------------
footer;# footer呼び出し
#print "Location: http://www.yahoo.co.jp/\n\n";#×
@{[&linkjump()]};
#---------------------------------------------------------------------------------------
sub header{
# my $title = $_[0];
$title = "一応メール送信画面";
#print "Location: http://************************\n\n";# 完了ページに飛ぶ×
print "Content-type: text/html\n\n";
print <<"_EOM_";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="Content-Style-Type" CONTENT="text/css">
<title>$title</title>
</head>
<body>
_EOM_
}
print "<A HREF=\"http://*************/*************.cgi\n\n\">ジャンプ</A>";#×
sub footer{
print <<"_EOM_";
#print "Location: http://www.yahoo.co.jp/\n\n";
print "<A HREF=\"http://***************.cgi\n\n\">ジャンプ</A>";
</body>
</html>
_EOM_
}
sub linkjump{
@{[print "Location:http://***********.cgi\n\n"]};# 完了ページに飛ぶ×
print "Location:http://***********************.cgi\n\n";# 完了ページに飛ぶ×
print "Location: http://www.yahoo.co.jp/\n\n";#×
print "\n\nlink_test\n";
@{[<meta http-equiv = "refresh" content = "1; URL=http://*************************.cgi">]};#×
}