use CGI;
my $query = CGI->new();
$query->param(-name =>site_name, -value => 'имя сайта');
$query->param(-name =>url, -value =>'http://url_site');
print $query->query_string;
Как закодировать запрос?
программеры, напишите, пожалуйста, код на Perl, который кодировал бы строку для запроса.
Например:
?site name=имя сайта&url=http://url_site
Например:
?site name=имя сайта&url=http://url_site
Цитата:
Originally posted by ReDrum
Код:
use CGI;
my $query = CGI->new();
$query->param(-name =>site_name, -value => 'имя сайта');
$query->param(-name =>url, -value =>'http://url_site');
print $query->query_string;
my $query = CGI->new();
$query->param(-name =>site_name, -value => 'имя сайта');
$query->param(-name =>url, -value =>'http://url_site');
print $query->query_string;
Спасибо. Только мне еще пришлось, чтобы все заработало, в полученной строке заменить ; на &.
дело вкуса, конечно, но для использования амперсанда в качестве разделителя поможет
use CGI qw/-oldstyle_urls/;
use CGI qw/-oldstyle_urls/;