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

fetching data from remote site

by dusk (Friar)
on Apr 21, 2001 at 09:13 UTC ( [id://74396]=perlquestion: print w/replies, xml ) Need Help??

dusk has asked for the wisdom of the Perl Monks concerning the following question:

Fellow monks,

I am currently using a script to get a list of data from a remote site, and open it for printing. Here is an example: 

system("wget -c http://server/data.php");

open DATA, "data.php" or die "Cannot open data\n";
print "data is opened\n";

while (<DATA>) {
    my ($item1, $item2, $item3) = split;
    print "$item1 - $item2 - $item3\n";
}

[download]
Now, besides the fact that this is inefficient, it is also insecure. I am _certain_ that there is a module to do what I want without the need for the system function.
Any ideas?

Replies are listed 'Best First'.
Re: fetching data from remote site
by Beatnik (Parson) on Apr 21, 2001 at 14:20 UTC 
    #!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $page = get("http://server/data.php");

    [download]
    or 
    #!/usr/bin/perl -w
use strict;

my $page = qx|lynx --nolist --source http://server/data.php|;

    [download]

    Greetz
    Beatnik
    ... Quidquid perl dictum sit, altum viditur.
[reply]
[d/l]
[select]
Re: fetching data from remote site
by voyager (Friar) on Apr 21, 2001 at 09:28 UTC
    Check out LWP::Simple
[reply]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://74396]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others wandering the Monastery: (None)
    As of 2024-04-25 01:13 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found