1
Perl / Декодирование HTML-формы(метод GET)
« : 07 Января 2006, 19:58:51 »
Пожалуйста, найдите ошибку. Только не предлагайте свои примеры, хотелось бы разобраться в этом.
#!C:/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "content-type:text/html\\n\\n";
$form_data=$ENV{\'QUERY_STRING\'};
$form_data =~s /%(..)/pack("C",hex($1))/eq;
$form_data=~tr/+/ /;
@pairs = split (/&/, $form_data);
foreach $pair (@pairs)
{
($name,$value)=split(/=/,$pair);
$form_fields{$name}=$value;
}
При отправке формы выдаёт ошибку:
syntax error at c:\\MYSITE~1\\cgi-bin\\EASY-M~1.CGI line 7, near "$form_data=~tr/+/ /;"
(Might be a runaway multi-line ;; string starting on line 6)
Execution of c:\\MYSITE~1\\cgi-bin\\EASY-M~1.CGI aborted due to compilation errors.
#!C:/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "content-type:text/html\\n\\n";
$form_data=$ENV{\'QUERY_STRING\'};
$form_data =~s /%(..)/pack("C",hex($1))/eq;
$form_data=~tr/+/ /;
@pairs = split (/&/, $form_data);
foreach $pair (@pairs)
{
($name,$value)=split(/=/,$pair);
$form_fields{$name}=$value;
}
При отправке формы выдаёт ошибку:
syntax error at c:\\MYSITE~1\\cgi-bin\\EASY-M~1.CGI line 7, near "$form_data=~tr/+/ /;"
(Might be a runaway multi-line ;; string starting on line 6)
Execution of c:\\MYSITE~1\\cgi-bin\\EASY-M~1.CGI aborted due to compilation errors.