Forum Webscript.Ru

Программирование => Perl => Тема начата: ork от 07 Января 2006, 19:58:51

Название: Декодирование HTML-формы(метод GET)
Отправлено: ork от 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.

Название: Декодирование HTML-формы(метод GET)
Отправлено: arto от 07 Января 2006, 22:28:57

=~ s/.../.../ge