0

次のようなアップロード用のcgiスクリプトがあります

#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my $file = $cgi->param('file');
$file=~m/^.*(\\|\/)(.*)/; # strip the remote path and keep the filename
my $name = $2;
open(LOCAL, ">/home/Desktop/$name") or die $!;

while(<$file>) {
  $data .= $_;
}
print $cgi->header();
print "$file has been successfully uploaded... thank you.\n";
    print $data;

HTMLファイルは以下の通り

<html>
<head>
    <title>Test</title>
</head>

<body>
    <form enctype="multipart/form-data" action="upload.cgi" method="post">
    <input type="hidden" name="MAX_FILE_SIZE" value="30000" />
            Send this file: <input name="userfile" type="file" />
<input type="submit" value="Send File" />
</form>
</body>
</html>

私は今、奇妙なエラーが発生しています..

ソフトウェア エラー:

htdocs/upload.cgi 9 行目のディレクトリです。

ヘルプが必要な場合は、このエラー メッセージとエラーの日時を記載して、このサイトのウェブ マスターにメールを送信してください。

4

1 に答える 1