Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Getting more out of LWP::Simple

by Dog and Pony (Priest)
on May 23, 2002 at 07:15 UTC ( #168684=perltutorial: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # Note that if you do this, you must explicitly
    # export everything you want to use:
    ...
    $ua->timeout(30);
    
    my $html = get $webpage || die "Timed out!";
    
  2. or download this
    $ua->agent('My agent/1.0');
    
  3. or download this
    use LWP::Simple qw($ua get);
    use HTTP::Cookies;
    ...
    get $webpage . $login_string;
    
    my $logged_in_page = get $webpage . $private_page;
    
  4. or download this
    use LWP::UserAgent;
    
    ...
    $response = $ua->request($request);
    
    my $html = $response->content;
    
  5. or download this
    perl -MLWP::Simple -e "getprint 'http://perlmonks.org?node_id=145587'"
    
    perl -MLWP::Simple -e "getprint 'http://perlmonks.org?node=showchatmes
    +sages&displaytype=raw'"
    
  6. or download this
    perl -MLWP::Simple -e "get 'http://perlmonks.org?op=login&user=Dog and
    + Pony&passwd=doNotUseThisPW&op=message&message=Hi it is me on the com
    +mand line!'"
    
  7. or download this
    my $words = 'LWP::Simple tutorial'
    my $html = get "http://www.perlmonks.org/index.pl?node=$words";
    
  8. or download this
    my $response_code = mirror $webpage, 'webpage.html';
    
    die "Bad response $response_code" unless is_success($response_code);
    
  9. or download this
    use LWP::Simple;
    
    print "$webpage exists and server is up!\n" if (head($webpage));
    
  10. or download this
    my @headers = head $webpage;
    
    print join "\n", @headers;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://168684]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (14)
As of 2014-12-19 21:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (92 votes), past polls