Perl
Подскажите плиз. Какой функцией можно присвоить переменной или массиву содержание запрашиваемого урла?
$aaa=$ENV{'QUERY_STRING'};
или
use CGI qw(param);
my $form=new CGI;
for ($form->param()) { $all_p{$_}=$form->param($_); }
или
use CGI qw(param);
$aaa=param('aaa');
и т.д.
Цитата:
Originally posted by Alone
хм....
$aaa=$ENV{'QUERY_STRING'};
или
use CGI qw(param);
my $form=new CGI;
for ($form->param()) { $all_p{$_}=$form->param($_); }
или
use CGI qw(param);
$aaa=param('aaa');
и т.д.
хм....
$aaa=$ENV{'QUERY_STRING'};
или
use CGI qw(param);
my $form=new CGI;
for ($form->param()) { $all_p{$_}=$form->param($_); }
или
use CGI qw(param);
$aaa=param('aaa');
и т.д.
Нет не параметры передаваемые скрипту. А хтмл текст который выдает урл. На пример @aaa=$[некая функция]('http://www.codenet.ru/');
============
а если просто то:
use LWP::Simple;
$doc = get 'http://www.sn.no/libwww-perl/';
Цитата:
Originally posted by Alone
Ищи доки по LWP или llibwww-perl
============
а если просто то:
use LWP::Simple;
$doc = get 'http://www.sn.no/libwww-perl/';
Ищи доки по LWP или llibwww-perl
============
а если просто то:
use LWP::Simple;
$doc = get 'http://www.sn.no/libwww-perl/';
Вот это то что надо. Огромный сенкс.