Szia,
Azt tapasztalom, némi nehézséget, hogy végezze el a szkript képes-hoz letölt némely fájlokat HTTP-n keresztül.

A Perl szkript található a Linux egy szerver ( "/ var / www / cgi-bin / down.pl"), ahol tudok futni, hogy az Internet Exploreren keresztül.

Én képes megjeleníteni a könyvtár tartalmát ( "/ home / toto"), de nem vagyok képes megnyitni vagy menteni a fájlokat a könyvtárban az én helyi gépre (Windows XP példa).

Célom, hogy képes legyen menteni egy fájlt, amikor rákattintok, és válassza a cél az én helyi gépen.

Tud valaki segítsen nekem-hoz erősít ez a forgatókönyv? thanks in advance.

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