use strict; use warnings; use WWW::Mechanize; my $agent = WWW::Mechanize->new(); my $subject = 'help pls'; my $message = 'where can I download this'; my $url ='http://www.aegisstudios.net/modules.php?mop=modload&name=Spl +att_Forums&file=newtopic&forum=8'; $agent->get($url); $agent->agent_alias( 'Windows IE 6' ); my @urls = $agent->find_all_links(); foreach my $link(@urls) { #print "Link: ", $link->url(), "\n"; #$agent->field('message' => $message, $link->url()); $agent->set_visible($subject, $message, $link->url()); $agent->form_name("post"); $agent->click(); }
In reply to Submitting a form by coder45
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |