cgi/perl에서 리디렉션을 통한 변수 전달

Question

두 개의 CGI 스크립트가 있습니다. Login.cgi 및 welcome.cgi 나는

#!C:/Perl/bin/perl.exe -w 
#welcome.cgi 
use warnings; 
use CGI::Pretty qw(:all); 
use strict; 
my $cgi=new CGI; 
my $username; 
print header(); 
print start_html("Welcome"),h1("Hello, $username"); 
print end_html(); 

가 어떻게 사용자 이름을받을 수 있나요 welcome.cgi 내가

#!C:/Perl/bin/perl.exe -w 
#login.cgi 
use strict; 
use warnings; 

use CGI::Pretty qw(:all); 

my $cgi  = new CGI; 
my $username = $cgi->param('username'); 
my $password = $cgi->param('password'); 

if (($cgi->param('username') eq 'demo') && ($cgi->param('password') eq 'demo')) { 
    print $cgi->redirect("welcome.cgi"); 
} 
else { 
    print header(); 
    print start_html(-title => "Login"); 
    if ($cgi->param('username') or $cgi->param('password')) { 
     print center(font({ -color => 'red' }, "Invalid input")); 
    } 
    print generate_form(); 
    print end_html(); 
} 

sub generate_form { 
    return start_form, 
     h1("Please Login"), 
     p("username", textfield('username')), 
     p("password", textfield('password')), p(submit), 
     end_form; 
} 

또 다른 페이지를 두 페이지입니다 여기에이 두 페이지 사이에 변수를 전달하려면 변수가 welcome.cgi로 전달 되었습니까?

Answer 1

CGI::Session을 사용하십시오.

#login.cgi 
use strict; 
use warnings; 

use CGI::Pretty qw(:all); 
use CGI::Session; 

my $cgi  = new CGI; 
my $session = CGI::Session->new($cgi) or die CGI->Session->errstr; 
my $username = $cgi->param('username') // ''; 
my $password = $cgi->param('password') // ''; 

if ($username eq 'demo' && $password eq 'demo') { 
    $session->param(username => $username); 
    print $cgi->redirect("welcome.cgi"); 
    exit; 
} 

print $session->header(); 
print start_html(-title => "Login"); 
if ($username or $cgi->param('password')) { 
    print center(font({ -color => 'red' }, "Invalid input")); 
} 
print start_form, 
    h1("Please Login"), 
    p("username", textfield('username')), 
    p("password", textfield('password')), p(submit), 
    end_form, 
    end_html(); 

그리고 환영 스크립트 : 스크립트 왜이 구현은 좋은 선택 사이에서 정보를 전달하는 모든 다른 방법에 대한 자습서를 들어

는

CGI::Session::Tutorial은 로그인 스크립트로 구현 읽기 :

#welcome.cgi 
use strict; 
use warnings; 

use CGI::Pretty qw(:all); 
use CGI::Session; 

my $cgi  = new CGI; 
my $session = CGI::Session->new($cgi) or die CGI->Session->errstr; 

my $username = $session->param('username'); 

print header(); 
print start_html("Welcome"),h1("Hello, $username"); 
print end_html(); 

Answer 2

당신 또는 당신이 cookie 또는 session에 저장 한 후 다른 스크립트에서 검색 할 수 있습니다 (A query string에를 인코딩하고 URL에 당신이 리디렉션되는 것을 추가하여) 직접 전달할 수 있습니다.

Answer 3

나는 Mr.Miller와 약간 일치하지 않을 것이다. CGI :: 세션은 특히 인해 현재 많은 안부 오래된 :

1. 오래된 쿠키를 설정하는 방법과 쿠키 ID 알고리즘이 충분히 확보되지 않는 RFC6265
2. 을 준수하지 않는, 저자 다른 프로젝트로 옮겼습니다.

따라서 교육적 목적으로 사용하지 않는 것이 좋습니다. 원래의 질문에 관해서

, 당신은`내 $의 CGI = CGI-> new`와`내 $의 CGI = 새로운 CGI`를 교체하십시오이 간단한 튜토리얼 http://practicalperl5.blogspot.in/2014/07/perl-login-script.html