perl での処理を終了後、他のページ(html)に自動的に飛ばしたいのですが(JavaScriptは使わずに)、どうすればよいでしょう。

A 回答 (2件)

 CGIで動的ページを吐き出す際に、頭に


  print "Content-type: text/html\n\n";
とか表示しますよね?

 これと同じような感じで、
  print "Location: URL\n\n";
とすれば、そのURLにリンクしたかのように動作します。
 このとき、LocationとURLの間に半角スペース1つ開ける(確か必要なハズ…)のと、URLは絶対アドレスで指定する(相対指定だと飛ばないトコもあるらしい?)のを、忘れないようにして下さいね。

 では
    • good
    • 0
この回答へのお礼

出来ました。ありがとうございました。

お礼日時:2001/05/02 20:06

それまでの処理で何も表示していなければ,



Location: <飛ばしたい先のURI>

を表示すると出来ると思いますが.
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q週刊連載漫画(ヤングジャンプなど)とかのネタバレ画バレってどうやってるの

週刊連載漫画ネタバレ画バレってどうやってるのでしょうか?例えばヤングジャンプだったら木曜日発売なのに前の週の土曜日にもう内容が見れちゃうのはどうしてでしょうか?

Aベストアンサー

コンビニにとかお店に配達される前の配送所や倉庫の積み下ろしなどの段階で
マンガを写真で撮ってWEBにアップしているらしいですよ。

この間も、週刊ジャンプのワンピースでそれをやった人が逮捕されたし、

他にも、週刊誌の記事を発売前に同じようにネットにアップして捕まった人もいました。

QHTML(AJAX)-perl -DB(MySQL)-perl -HTML(AJAX)のデータの流れについて。

こんにちわ。
早速ですがよろしくお願いします。

タイトルの通り、画面入力のデータAをperlに投げてAを元にperl側でDBデータ取得(A')、A'を元の入力画面で処理結果として出力する事を考えています。
HTML(AJAX)-perl -DB(MySQL)-perl
↑ここまではできたのですが、最後の
perl -HTML(AJAX)
が出来ず、A'を入力画面に返す方法が分かりません。

ちなみに処理結果(A')をHTML側でYahoo! User Interfaceを使用してテーブル処理する予定です。

お恥ずかしながらプログラミングに関しての知識が乏しくて恐縮なのですが、どうぞよろしくお願い致します。

Aベストアンサー

Yahoo! User Interfaceで何をされるのかわかりませんが,
入力されたものを自動で処理し入力画面に出力させるだけでしたら,

use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );

print $pjx->build_html( $cgi, \&Show_HTML);

sub perl_func {
my $input = shift;
# DBに接続して,何か処理をする
my $output = "処理結果を代入";
return( $output );
}

sub Show_HTML {
my $html = <<EOHTML;
<HTML>
<BODY>
Enter something:
<input type="text" name="val1" id="val1"
onkeyup="exported_func( ['val1'], ['resultdiv'] );">
<br>
<div id="resultdiv"></div>
</BODY>
</HTML>
EOHTML
return $html;
}

で出てきます。
JavaScriptを自分で一行も書かないけど,Ajaxができてしまうという優れものです。

Yahoo! User Interfaceで何をされるのかわかりませんが,
入力されたものを自動で処理し入力画面に出力させるだけでしたら,

use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );

print $pjx->build_html( $cgi, \&Show_HTML);

sub perl_func {
my $input = shift;
# DBに接続して,何か処理をする
my $output = "処理結果を代入";
return( $output );
}

sub Show_HTML {
my $h...続きを読む

Qジャンプ誌上販売 「BLEACH」DVDのラスト(ネタバレ)について

先日、ジャンプ誌上販売で申し込んだ「BLEACH-The Sealed Sword Frenzy」(DVD)が届き、見たのですが、内容に疑問を感じました。

エンディングで、現世を満喫する死神たちの姿がでます。その後に、藍染や市丸たちも登場します。
登場した時、これもサービスなのかな?と思いました。(原作には関係なく、この人達も現世を満喫しているのかと…)

だが、市丸が最後、「気ぃつけて帰りや」と言って終わる所を見たら、「梅針の封印をといたのは、藍染達?!」Σ(゜д゜;)と感じてしまいました。
(結局、梅針の封印が解けた原因がわからないし…。)

DVD、もしくはジャンプフェスタで見た人達に聞きます。このラストの藍染達の登場はどのように感じましたか?

お教え下さい。

Aベストアンサー

エンディングが終わって「終わりか」と思っていたら、藍染たちが出てきて驚きましたね。正直「いたの?こいつら?」と思いました。

私は梅針の封印を解いた人はいなくて、梅針が自分で解いたと感じました。

Qhtmlをperl用書式に自動変換するフリーツール

以前、ネットワーク上で、普通に書かれたHTMLをPERLスクリプト内に埋めこむための書式に自動的に変換してくれるツール(フリーウェア)を見つけてDLしたことがあるのですが、うっかり消してしまったか何かでそれを失ってしまいました。
 もういちど取得しようと思うのですが、何せ偶然みつけてその場でDLしたもので、どこで配布していたのか全く記憶がありません。
 ご存知の方いらっしゃいましたら、是非教えてください。

Aベストアンサー

別にツールは必要ありませんよ。
(↑ツールがわからないのでこんなこと言っちゃってます^^; )

print <<_HTML;
~HTMLのタグ~
_HTML

という風にするだけです。"_HTML"の部分は別になんでもいいです。
良く使われてるのは"_HTML"と"_EOF"みたいですが。

[例]
#!/usr/bin/perl

print "Content-type: text/html\n\n";
print <<_HTML;
<HTML>
<HEAD>
<TITLE>Sample</TITLE>
</HEAD>
<BODY>
<DIV align="center">This is Sample Page.</DIV>
</BODY>
</HTML>
_HTML


あと、1行とか書くときは、
print "<IMG src=\"image.gif\" width=\"10\" height=\"10\" alt=\"image\">"
というように、"(ダブルクォート)は\"としてください。

別にツールは必要ありませんよ。
(↑ツールがわからないのでこんなこと言っちゃってます^^; )

print <<_HTML;
~HTMLのタグ~
_HTML

という風にするだけです。"_HTML"の部分は別になんでもいいです。
良く使われてるのは"_HTML"と"_EOF"みたいですが。

[例]
#!/usr/bin/perl

print "Content-type: text/html\n\n";
print <<_HTML;
<HTML>
<HEAD>
<TITLE>Sample</TITLE>
</HEAD>
<BODY>
<DIV align="center">This is Sample Page.</DIV>
</BODY>
</HTML>
_HTML


あと、1行とか書くと...続きを読む

Qジャンプ

ジャンプ
ネタバレサイトって
すごくジャンプ手に入れるの早いですよね
あれってどんなルートで入手しているのですか?
ネタバレしないと誓うので教えて下さい

Aベストアンサー

普通は日曜の夜~朝方までに入荷して、月曜の朝までに陳列となります。

よく夜中にコンビニに行くと、次の日に発売される雑誌なんかが運送業者が運んできてどさっとおいてあったりします。(もっと早い場合もあるでしょうが、在庫をあまり持てませんから、前日入荷という状態が多いと思われます。)

ただ、一般的な書店は、フライング販売を禁止されており、最悪の場合は取引停止などの処分もありますから、書店では購入出来ません。

ところが、酒屋さんであるとか、酒を扱っている比較的規模の小さいコンビニ等では、流通ルートが違うのか、フライング販売している店もあります。その様な所で入手しているのではないでしょうか?

ちなみに、私がジャンプを購入していた頃は、土曜日の夜に店に入荷して来てすぐ売ってくれた為、土曜日に購入していました。

なので、書店やコンビニ以外で、雑誌を取り扱っている店を周囲で探してみれば、アナタの家の近くにもあるかもしれませんね。

QHTMLとPerl間のページ遷移について。

HTMLとPerl間のページ遷移について。

こんにちわ。
HTML(index.html)でログインフォーム(ユーザ名、パスワード)を作成し、そこに入力した情報を、Perl(login.pl)にPOST送信します。
Perlでは、受け取ったパラメータをチェックし、ユーザ名とそのパスワードが正しければ、もとのHTMLファイル(index.html)にページ遷移し、もともとあったログインフォームをJavaScriptで削除し、「ログイン中」と表示させる、ということをしたいのですがわからないところがあり投稿させていただきました。

現在、クライアントでは、JavaScriptを使ってログインフォームを作っています。そして、フォームの中の値を取得して、POST送信することはできます。次に、サーバにてPerlで受け取ったパラメータをチェックし、ユーザ名とパスワードの認証をとるところまではできています。しかし、その後にどうすべきかがわかりません。locationで、もとのHTMLファイル(index.html)を指定しても、ログインを認証したという情報は保持しておらず、それでは意味がありません。
Perlでログインを認証した後に、認証したという情報を保持したままHTMLページに遷移する事は可能でしょうか。可能であればその方法を教えていただきたく思います。
よろしくお願いします。

HTMLとPerl間のページ遷移について。

こんにちわ。
HTML(index.html)でログインフォーム(ユーザ名、パスワード)を作成し、そこに入力した情報を、Perl(login.pl)にPOST送信します。
Perlでは、受け取ったパラメータをチェックし、ユーザ名とそのパスワードが正しければ、もとのHTMLファイル(index.html)にページ遷移し、もともとあったログインフォームをJavaScriptで削除し、「ログイン中」と表示させる、ということをしたいのですがわからないところがあり投稿させていただきました。

現在、クライア...続きを読む

Aベストアンサー

 Perlが使えるなら、わざわざ制約の大きいjavascriptなど使わなくてすむと思いますが????

perlにて、
if(チェックOK){
 $login_FORM = qq^ログイン中<form
 action="$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}" metod="post">
 <input type="submit" size="10" value="ログアウト" </form>^;}
else{
 $login_FORM = qq^<form
 action="$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}" metod="post">
 <input type="text" size="10" value="" name="userName">ID
 <input type="pasword" size="10" value="" name="pasword">パスワード
 </form>^;
}

print qq^現在のHTMLからjavascriptを除いたものをここに書く。
$login_FORM
続きのHTML^;
**************処理
__END__

この場合、index.cgiが、そのページになる。
 htmlの拡張子がよければ、htmlをCGIとして、サーバーに認識させるか、PATH_INFOで処理すること。
例) htt://hoge.com/userPage/index.html
              ^^^^^^^^^自体をCGIにする

 Perlが使えるなら、わざわざ制約の大きいjavascriptなど使わなくてすむと思いますが????

perlにて、
if(チェックOK){
 $login_FORM = qq^ログイン中<form
 action="$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}" metod="post">
 <input type="submit" size="10" value="ログアウト" </form>^;}
else{
 $login_FORM = qq^<form
 action="$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}" metod="post">
 <input type="text" size="10" value="" name="userName">ID
 <input type="pasword" siz...続きを読む

Qネタバレ、

質問していいことか、悪いことか。
誰か漫画(ジャンプ)とアニメのNARUTOとBLEACHのネタバレサイト知りませんか?

Aベストアンサー

BLEACHはこことかどうでしょうか。
http://inubros.net/bleach/

参考URL:http://inubros.net/bleach/

Qperlスクリプト

<html>~</html>の中に複数のperlスクリプトは書けるのでしょうか?
htmlファイル1つの中には、<html>~</html>は1つだと思うのですが、
phpだと<?php>~<?>とすれば、<html>~</html>の中に複数書けるみたいですが、perlでも書けるのでしょうか?

Aベストアンサー

通常書けません(書くのは別にかまいませんが期待通りにはならないでしょう)。
逆にPerlスクリプト中にHTMLをヒアドキュメントという形で記述することは一般的です。
PerlはWebが生まれる前からありましたが、PHPはWebの為に生まれました。

Q22号のジャンプ

22号のジャンプは5月9日発売のはずなのにもうネタバレしている人がいます。何故ですか?

Aベストアンサー

ジャンプは発売の1週間前から10日前には、既に製本が完了していて、後は発送、発売を待つだけになってます。
  
以前にも問題になったように、その時点で手に入れることが可能な人もいますので、そういった人たちが関与していると思われます。

QperlでHTMLを吐き出した画面をそのままHTMLファイルに変更する方法

perlでHTMLを吐き出した画面をそのままHTMLファイルに変更する方法を考えています。

どうしても良い方法がわかりません。
どのような方法が良いのか教えていただけないでしょうか?お願いします。

Aベストアンサー

こんばんは。

吐き出すと同時に同じ内容(HTML文)を新規ファイルに保存してしまえばよいですね。

例えば・・・

#!/usr/local/bin/perl

#吐き出す内容を$htmlに代入。
$html ="<html><body>\n<head><title>HTML保存</title></head>\nこんにちは</body>\n</html>\n";

#吐き出す
print "Content-type: text/html\n\n";
print "$html";

#newfile.htmlという新規ファイルを作成
open (NEWFILE,">newfile.html");

#新規ファイルに吐き出したのと同じ内容を書き込む
print NEWFILE $html;

#新規ファイルを閉じる
close (NEWFILE);

こんな風です。
ただし、この場合、newfile.htmlを保存するディレクトリ(フォルダ。上の例文ではこのcgiと同じディレクトリ)への書き込み権限がないとダメです。

こんばんは。

吐き出すと同時に同じ内容(HTML文)を新規ファイルに保存してしまえばよいですね。

例えば・・・

#!/usr/local/bin/perl

#吐き出す内容を$htmlに代入。
$html ="<html><body>\n<head><title>HTML保存</title></head>\nこんにちは</body>\n</html>\n";

#吐き出す
print "Content-type: text/html\n\n";
print "$html";

#newfile.htmlという新規ファイルを作成
open (NEWFILE,">newfile.html");

#新規ファイルに吐き出したのと同じ内容を書き込む
print NEWFILE $html;
...続きを読む


人気Q&Aランキング

おすすめ情報