I can hardly describe what I'm trying to do here without good results to look at, but I think the partial results I have now can be coaxed into something useful.
## get content off web my $start = "http://en.censor.net.ua/"; my $mech = WWW::Mechanize->new( autocheck => 1 ); $mech->get( $start ); my @links = $mech->find_all_links(); for my $link ( @links ) { my $text; my $link = WWW::Mechanize::Link->new( { text => $text, } ); say "text is $link->text()"; }
Instead of text, I've got a bunch of output that shows I'm not dereferencing this right:
text is WWW::Mechanize::Link=ARRAY(0x22ca880)->text() text is WWW::Mechanize::Link=ARRAY(0x22ca8b0)->text() text is WWW::Mechanize::Link=ARRAY(0x22ca820)->text() text is WWW::Mechanize::Link=ARRAY(0x22ca868)->text() text is WWW::Mechanize::Link=ARRAY(0x22ca898)->text() text is WWW::Mechanize::Link=ARRAY(0x22ca808)->text() text is WWW::Mechanize::Link=ARRAY(0x22ca850)->text()
Without text to feed to regex, I'm stuck for navigation and would appreciate and tips you have. Thanks in advance.
In reply to Using WWW::Mechanize effectively by Aldebaran
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |