08/08/31 11:33:21
#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;
my $url = 'ｽﾚﾘﾝｸ(tech板)';
my $mail = 'sage';
my $text = 'Hellow World;
my $mech = WWW::Mechanize->new;
$mech->agent_alias('Linux Mozilla');
$mech->get($url);
$mech->submit_form(
form_number => 2,
fields=>{
FROM => '',
mail => $mail,
MESSAGE => $text,
},
);
print $mech->content;
$mech->submit;
print $mech->content;
なんで、これでじゃかきこめないわけ?