http://qs321.pair.com?node_id=74396

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