perl - Perl::CGI パラメータを使用してリダイレクトし、新しいページでアクセスする

Question

PHP では、新しい URL にリダイレクトして「ユーザー名」などの情報を渡すことは非常に一般的です。

<?php

   header( 'Location: http://www.yoursite.com/new_page.php?user_name=$username' ) ;

?>

その後、「new_page.php」の「user_name」の値にアクセスできます。

perl を使用してこれを行う方法がわかりません。

print $cgi->redirect(-uri=>http://www.yoursite.com/new_page.pl?user_name=$username, -status=>303 , -cookie => $c );

を使用してみまし$username = $cgi->param('user_name')たが、何も印刷されません。

ありがとう。

score 4 · Accepted Answer

引用符を忘れました：

print $cgi->redirect(
         -uri=>"http://www.yoursite.com/new_page.pl?user_name=$username", 
         -status=>303,
         #... 
);

また、リダイレクトを呼び出す前にユーザー名をエスケープすることを忘れないでください:

my $username = escape( $cgi->param('user_name') );

score 1 · Accepted Answer

PHP が機能するとは思いませんが、私は PHP 開発者ではありません。エラーがあれば助かりますが、文字列を引用する必要があると思います。

print $cgi->redirect(
    -uri    => "http://www.yoursite.com/new_page.pl?user_name=$username",
    -status => 303,
    -cookie => $c,
);

次の 2 行 ( strictおよびwarningsプラグマを有効にする) をスクリプトの先頭に追加する必要があります。これらは、問題のデバッグに役立ちます。

use strict;
use warnings;

header( "Location: http://www.yoursite.com/new_page.php?user_name=$username" );

2 に答える 2