Блог

я очень новичок в perl. Я объясняю, как использовать Mechanize package. У меня есть страница примера. Я не знаю, хорошо ли это для обучения, потому что это работает странным образом, но все же я хочу понять, что происходит прямо сейчас.

Во-первых, я написал скрипт, который получает непосредственно содержимое под страницей1:

 my $mech = WWW::Mechanize::Frames-> new();
my $mechFr = WWW::Mechanize::Frames-> new();
my $url="page1 url";

$mech->get($url);

my @frames = $mech->get_frames();
$mechFr= $frames[0];
print $mechFr->content();
  

И это работает нормально.
Затем я пытался перейти на эту страницу со страницы 0, и я написал это:

 my $mech = WWW::Mechanize::Frames-> new();
my $mechFr = WWW::Mechanize::Frames-> new();
my $url="page0url";

$mech->get($url);
$mech=$mech->follow_link(text_regex => qr/page1like/);
print $mech->content();

my @frames = $mech->get_frames();
$mechFr= $frames[0];
print $mechFr->content();
  

Содержимое по следующей ссылке mech afeter выглядит нормально (я действительно на странице 1), но затем я получаю сообщение об ошибке Can't locate object method "get_frames" via package HTTP:Headers" at (...)/Message.pm line 694" . Мой список пакетов одинаков в обоих сценариях:

 use strict;
use warnings;
use WWW::Mechanize::Frames;
  

Итак, мой вопрос в том, что я делаю не так?

Согласно WWW::Mechanize documentation $mech->follow_link(...) возвращениям HTTP::Response объект, вы присваиваете этот результат своей переменной $mech . Это эффективно заменяет существующее значение $mech на HTTP::Response объект.

The HTTP::Response модуль не имеет метода get_frames() , как правильно сообщает вам Perl.

Вам необходимо сохранить ваш HTTP-ответ в отдельной переменной:

 my $mech = WWW::Mechanize::Frames-> new();
my $mechFr = WWW::Mechanize::Frames-> new();
my $url="page0url";

$mech->get($url);
my $http_response = $mech->follow_link(text_regex => qr/page1like/);
print $http_response->content();

my @frames = $mech->get_frames();
$mechFr= $frames[0];
print $mechFr->content();