wget i perl

her er lidt at starte på... bemærk at det er livsfarligt bare at passe hvad som helst til din shell... du bør undersøge $url for mystiske tegn, der kan bruges til at afvikle noget som helst på din maskine... scriptet er forøvrigt ikke testet...

#!/usr/bin/perl

$url = 'http://www.hest.gnu';

open(URL,"wget \"$url\"") or die("Failed running wget: $!\n");
while(<URL>) {
print $_;
}
close(URL);

$url="http://www.breum.dk";
$targetfile ="/hotel/software/slettemp/testfil.txt";
$wgetlocation = "/usr/bin/wget";

$wgetoptions = '-q -O';

system "$wgetlocation -q -O $savefilename $url";

open (file ,"$savefilename");

@indhold = <file>;

close (file);

print @indhold;

en anden og lidt mere sikker måde at gøre det på er ved at droppe brugen af wget:

#!/usr/bin/perl

use LWP::Simple;
unless(defined($content = get($url))) {
die("Could not get $url");
}

print $content;

hehehe 1 min 5 sek

Ja, jeg skal love for at der kom svar der :) breum, jeg vil gerne belønne dit svar også.

Mht. lwp, så har jeg før brugt dette, men det brugte rigtig mange system resourcer... især hvis hjemmesiden, som skulle hentes, var langsom eller nede.

Du behøver ikke give mig points - giv dem til Thomas

Lige endnu et spørgsmål... er der en måde hvorpå al data kan gemmes direkte i en variabel i stedet for en fil med:

system "$wgetlocation -q -O $savefilename $url";

Det må vel være en mellemting af min og Thomas' løsning

#!/usr/bin/perl

$url="http://www.breum.dk";
$wgetlocation = "/usr/bin/wget";

open(URL,"$wgetlocation $url") or die("Failed running wget: $!\n");
@indhold = <URL> ;

close(URL);

print @indhold;

ovenstående er ikke testet

Jeg kunne ikke få Thomas' løsning til at virke... men nm - har fundet anden løsning :)

det skulle have været
open(URL,"|$wgetlocation $url") or die("Failed running wget: $!\n");
men det virker heller ikke - den insisterer på at save filen

Lad høre, hvilken løsning fandt du?

Jeg fandt ikke en løsning til at gemme data i en variabel - fandt blot et system jeg bruger metoden med filer.

Så kan det da vist ikke være hurtigere end use LWP::Simple;

Mht. systemresourcer er det... LWP overbelastede serveren blot ved 2 scripts, som arbejdede på samme tid.