Hej,
Jag upplever vissa svårigheter att utföra ett skript för att kunna ladda ner några filer via HTTP.

Den Perl skriften ligger på en Linux på en server ( "/ var / www / cgi-bin / down.pl") där jag kan köra det via Internet Explorer.

Jag kan visa katalogen innehåll ( "/ home / Toto") men jag inte kan öppna eller spara filer från denna katalog till min lokala dator (Windows XP med exempel).

Mitt mål är att kunna spara en fil när jag klickar på dem och välja målet på min lokala dator.

Kan någon hjälpa mig att fixa detta script? tack på förhand.

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