in reply to Fetching web pages using
use strict; use LWP; use HTTP::Request::Common; use HTTP::Cookies; print "\n: "; chomp ($_ = <>); use constant URL => 'http://www.perlmonks.org/'; my $ua = LWP::UserAgent->new; $ua->agent('chat_poster/1.0 (' . $ua->agent .')'); $ua->cookie_jar(HTTP::Cookies::Netscape->new( file => $ENV{HOME} . '/.netscape/cookies', autosave => 1 )); my $request = POST(URL, Content => [ op => 'message', message_send => 'talk', message => $_, ] ); # this is just to gain back control of the terminal # you will probably want to not fork for your problem exit if fork(); my $response = $ua->request($request);
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
|
|---|