Salve,
Ho esperienza di alcune difficoltà di eseguire uno script per essere in grado di scaricare alcuni file tramite HTTP.

Il Perl script si trova su un server Linux in un server ( "/ var / www / cgi-bin / down.pl") dove sarà possibile eseguire tramite Internet Explorer.

Sono in grado di visualizzare il contenuto di directory ( "/ home / toto"), ma io non sono in grado di aprire o salvare i file da questa directory alla mia macchina locale (ad esempio Windows XP).

Il mio obiettivo è quello di essere in grado di salvare un file quando si fa clic su di essi e scegliere la destinazione sulla mia macchina locale.

Qualcuno può aiutarmi a risolvere questo script? grazie in anticipo.

#!/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>