WWW::Mechanize module is used for automatic interaction with websites, this method is also termed as web scrapping, it helps a Perl program to interpret as an individual website visitor and perform many actions automatically on behalf of the individual user. In the following example we have used this module for automatic posting of twit/ message into a twitter account, scrapping twitter mobile website.
#!/usr/bin/perl use WWW::Mechanize; # required module for webpage scrapping my $twitter_username = 'provide here twitter account username'; # twitter account username my $twitter_password = 'provide here twitter account password'; # twitter account password my $message = 'Hello Folks!!!'; # twit to be posted in the twitter account my $uaa = "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13 ( .NET CLR 3.5.30729; .NET4.0C)"; # specifying the browser agent my $mech = WWW::Mechanize->new( agent => $uaa ); # creating an object of mechanize module $mech->get('https://mobile.twitter.com/session/new'); # calling the required url and fetching the webpage $authenticihty_token = $mech->field('authenticity_token'); # fetching the authenticity token value from a hidden field named 'authenticity_token' in the fetched webpage, which is required for logging into this website $mech->post( 'https://mobile.twitter.com/session', { authenticity_token => $authenticihty_token, username => $twitter_username, password => $twitter_password } ); # posting the required values to another url for further processing ( here it is logging into the mobile twitter website ) $mech->post( 'https://mobile.twitter.com/', { authenticity_token => $authenticihty_token, commit => 'Tweet', 'tweet[text]' => "$message" } ); # posting the twit/ message in the twitter account if ( $mech->success() ) # returns true if earlier mechanize posting was successful { print qq{Twitter posting successful\n}; } else { print qq{Twitter posting unsuccessful\n}; }
Output: ------- On running the Perl script from command line, it will post the specified message into the twitter account mentioned in the script.
AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?