, und hätte gern gewusst, wieviele Leute diese Sachen runterladen... (CGI ev.?)
Was muss ich machen...?
Bitte helft mir und ich danke im Voraus...
Danke
D@nieLLLL
Homepage selbermachen 7.846 Themen, 35.563 Beiträge
jensemann DanieLLLL (Anonym) „Ich will einige Sachen zum Download anbieten auf meiner HP...“
Stimmt, hast recht! Hier ist es:
#!/usr/bin/perl
use CGI qw(:standard);
# gibt dem script als Parameter die Array Nummer der zu holenden Datei
my $getfile = param('getfile');
# endung der Lockdatei, wird an den Namen von $avaliable[n] angehangen
my $extension = 'txt';
# array der angebotenen Dateien
$available[0] = 'test.zip';
$available[1] = 'test.tar.gz';
$available[2] = 'test.tar.bz2';
$available[3] = 'foo.tar.gz';
if (defined $available[$getfile]) {
# nr existiert im array
# erzeuge Dateinamen
my $logfile = "$available[$getfile].$extension";
# öffne Dateihandle zum lesen UND schreiben
open(FILE, "+>$logfile");
# erste Zeile der Datei nach $counter einlesen und
# Zeilenumbruch entfernen
chomp($counter =
