Hei,
Jeg opplever noen vanskeligheter med å utføre et skript for å kunne laste ned noen filer via HTTP.

Den, det Perl script ligger på en Linux på en server ( "/ var / www / cgi-bin / down.pl") hvor jeg kan kjøre det via Internet Explorer.

Jeg kunne vise katalogen innhold ( "/ home / toto") men jeg er ikke i stand til å åpne eller lagre filer fra denne katalogen til min lokale maskin (Windows XP ved eksempel).

Mitt mål er å kunne lagre en fil når jeg klikker på dem og velge målet på min lokale maskin.

Kan noen hjelpe meg å løse dette skriptet? takk på forhånd.

#!/usr/bin/perl
use CGI;
$|=1;
my $query=new CGI;
print qq~
<table align="center" width="90%">
<tr><td><font color="black" face="Arial" size="4"><b>Files in current directory</b></td></tr>
<tr>
<td valign="top">
<font color="black" face="Arial" size="2">
~;
$dir="/home/toto";
opendir(DIR, "$dir");
@current = readdir(DIR);
closedir(DIR);

foreach(@current){
unless($_ eq '.' || $_ eq '..' || -d qq~$dir/$_~){
push(@currentfiles, $_);
}
}
@currentfiles = sort { uc($a) cmp uc($b) } @currentfiles;
for($aa = 0; $aa <= $#currentfiles; $aa++){
print qq~

<a href="$dir/$currentfiles[$aa]" target="_blank">$currentfiles[$aa]</a><a href="$dir/$currentfiles[$aa]"> </a></font><br>
~;
}
print qq~
</font></tr>
</table>

Lenkene vil ikke fungere hvis webserveren din er ikke konfigurert til å tillate tilgang til disse filene, og webserveren kan sikkert lage sin egen liste over dem uansett, ingen skript nødvendig.

Vær også sette koden i [code] code tags [/ code], det gjør det mye mer leseverdig.