パソコンおやじの掲示板
[記事リスト] [新着記事] [ワード検索] [過去ログ] [管理用]

タイトル 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">]};#×
}


- 関連一覧ツリー (▼ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
おなまえ
Eメール
タイトル
メッセージ   手動改行 強制改行 図表モード
参照先
暗証キー (英数字で8文字以内)
確認キー
確認キー
投稿する場合は、左に表示されている3文字(英大文字)の確認キーを必ず入力してください。
 (確認キーは表示してから30分間のみ有効です。)
  プレビュー

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No 暗証キー