| perl newbie 2005-11-23, 6:56 pm |
| I am very new to perl, I am trying to make a post on a forum via perl,
I am getting an error msg that no 'viewtopic' is not found on the page,
but it is clearly there, can someone help me with what is wrong with
the code:
#! Perl\bin\perl -w
use strict;
use WWW::Mechanize;
use HTML::TokeParser;
my $username1 = 'guesthere53';
my $subject = 'interesting';
my $regex = 'viewtopic';
my $message = 'Roy keane was sacked';
my $agent = WWW::Mechanize->new();
$agent->get(my $url =
'http://www.kendaltownfc.co.uk/forum/viewtopic.php?p=5158&sid=ace695a938276dfc744dc4e7e4027097);
my @urls = $agent->find_all_links( url_regex=> qr/viewtopic/);
@urls = map { $_->[0]}@urls;
foreach my $url (@urls)
{
if ( $url =~ m/$regex/ && ( ( $url =~ /$username1/ ) && ( $url =~
/$subject/ ) ) )
{
{ $agent->follow(url_regex => qr/viewtopic/);}
{ $agent->follow(url_regex => qr/newtopic/);}
$agent->form(1);
$agent->field("username", $username1);
$agent->field("subject", $subject);
$agent->field("message", $message);
$agent->click();
}
}
|