Блог

Если я запускаю этот скрипт как есть, он работает.
Но почему это не работает с cgi ?
Когда я использую _1_ вместо _0_ cgi , это тоже работает с,,.

 #!/usr/bin/env perl
use warnings;
use 5.012;


###    script_1.cgi    #########################################

my @array = ( '1524', '2.18 MB', '09/23/03', '_cool_name_', 'type' );
my $row = join "_0_", @array;
say $row;
# submit $row to script_2.cgi


###    script_2.cgi    #########################################
# ...
# my $row = $cgi->param('row');
# my $name;

if ( $row =~ /_0_([^0] )_0_typez/ ) {
#   $name = $1;
    say "Name: <$1>";
} else {
    die "<$row> $!";
}

# Software error:
# <1524_�_2.18 MB_�_09/23/03_�__cool_name__�_type>  at script_2.cgi line of "die "<$row> $!";"
  

У меня работает, говорит _cool_name_ . Вероятно, вы столкнулись сCGI.pm использование уже для себя, но поскольку вы не опубликовали свой полный код, никто не может сказать наверняка.

Я воспользуюсь возможностью, чтобы снять вопрос. Уроки, которые вы должны усвоить, это:

1. Избегайте развертывания вашей собственной схемы сериализации. Как новичок, вы допустили типичную ошибку, не закодировав разделитель, если он встречается в данных (например, двойная обратная косая черта в строковых выражениях и двойной процент в выражениях sprintf). Массив мог быть передан неповрежденным, несвязанным, например, через JSON.
2. Вместо двух сценариев это должны быть две подпрограммы в одной программе. Таким образом, вы можете передавать структуры данных без необходимости сериализации.