Salut,
J'éprouve quelques difficultés à exécuter un script pour être en mesure de télécharger des fichiers via HTTP.

Le Perl script se trouve sur un système Linux dans un serveur ( "/ var / www / cgi-bin / down.pl") où je peux le lancer via Internet Explorer.

Je suis en mesure d'afficher le contenu du répertoire ( "/ home / toto"), mais je ne suis pas capable d'ouvrir ou d'enregistrer les fichiers de ce répertoire vers ma machine locale (Windows XP par exemple).

Mon objectif est d'être capable d'enregistrer un fichier lorsque je clique sur eux et choisir la cible sur ma machine locale.

Quelqu'un peut-il m'aider à résoudre ce script? merci d'avance.

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

Les liens ne fonctionneront pas si votre serveur web n'est pas configuré pour autoriser l'accès à ces fichiers, et votre serveur Web peut probablement faire sa propre liste d'entre eux de toute façon, pas de script requis.

Aussi, s'il vous plaît mettre le code dans [code] tags code [/ code], il est beaucoup plus lisible.