WWW::Mechanize sample
#!/usr/bin/perl
# Auto login to TypePad and post the entry.
use strict;
use warnings;
use WWW::Mechanize;
# TypePad login
my $mech = WWW::Mechanize->new();
$mech->get('https://www.typepad.jp/t/app');
$mech->field('username', 'yourusername');
$mech->field('password', 'yourpassword');
$mech->submit();
# Post the entry
$mech->get('https://www.typepad.jp/t/app/weblog/post?blog_id=yourblog_id');
$mech->form_name('entry_form');
$mech->field('title', 'WWW::Mechanize');
$mech->field('text', 'This entry is generated by WWW::Mechanize.');
$mech->submit();
1;
Comments