や��
���スクリプトを実行�る��������ファイルをHTTP経由�ダウンロード��るよ�������困難を経験。

�� Perl� スクリプト�� Linux上�サー�ー�（ "�/ var / www /��cgi - bin / down.pl " ）������Internet Explorer経由�実行�る��������置�����。

��（ " /ホーム/�陶機器" ）�オープン��り�自分�ローカルマシン（ Windows XP�例�よ�����ディレクトリ�らファイルを�存�る）�������ん��ディレクトリ�コンテンツを表示�る����。

�れら�ファイルをクリック���存��自分�ローカルマシン上�ターゲットを�択��るよ����目標��。

誰���スクリプトを修正�る���役立���������？事��感����。

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

ウェブサー�ー��れら�ファイルアクセスを許��るよ��構��れ����リンク�ウェブサー�ー�動作���ん�����彼ら�独自�スクリプト�必��リストを作る�������。

���コードを追加������[コード]コード�タグ[ /コード] ��れを�る��読�や����。