Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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:
    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 ''"
    perl -MLWP::Simple -e "getprint '
  6. or download this
    perl -MLWP::Simple -e "get ' 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 "$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?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://168684]
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: (7)
As of 2015-11-27 13:37 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (729 votes), past polls