Hallihallo.Ich bin neu hier und habe gleich einmal eine Frage.
Ich möchte folgendes erreichen:
Link übergibt Variable der URL zur Datei an Perl-Script --> Perl-Script lädt Datei runter und benennt Sie um. Sollte schon eine Datei dieses Namens vorhanden sein, soll wget eine 1 usw. dranhängen (Oder aber es werden automatisch Dateinamen generiert?!) --> That's it.
Mein bisheriges Code-Gewurschtel:
#!/usr/bin/perl
use strict;my $mirror = "http://downloads.pcworld.com/pub/new/utilities/system_resources_tune_up_";
my $workdir = "/var/www/web22/html/cgi-bin/tempdl";
my $file = "bla.zip";
if(-d $workdir && -W $workdir){
chdir $workdir || die "Falsche Rechte fuer das Arbeitsverzeichnis.\n";
} else {
mkdir $workdir || die "Schreibrechte fuer das Arbeitsverzeichnis fehlen.\n";
chdir $workdir || die "Falsche Rechte fuer das Arbeitsverzeichnis.\n";
}
system "wget -t inf $workdir $mirror/$file";
print "\n$workdir/$file gezogen, johnny.\n\n";
Die Angaben für mirror und file sind bislang noch statisch, da ich keine Ahnung habe, wie ich das in einem Link unterbringe.
Noch dazu habe ich das Problem, dass ich das Script per ssh, aber nicht per Browseraufruf starten kann.
Wenn die Datei bereits existiert (in diesem fall jene lola.zip
Ich bin noch ein blutiger Anfänger, würde es aber gern ändern. Wer kann mir helfen? :)
Gruß,
06elf
Datum: 27.02.2007-18:19
Dateidownload und umbenennen mittels wget
