Question

这是我的HTML代码。

<button class="button" ngf-select ng-model="files" ngf-multiple="multiple">Select File</button>

Files:
<ul>
    <li ng-repeat="f in files" style="font:smaller">{{f.name}}</li>
</ul>
Upload Log:
<pre>{{log}}</pre>

这是控制器代码。

$scope.$watch('files', function () {
    $scope.upload($scope.files);
});
$scope.log = '';

$scope.upload = function (files) {
    if (files && files.length) {
        for (var i = 0; i < files.length; i++) {
            var file = files[i];
            Upload.upload({
                url: '/cgi-bin/upload.pl',
                fields: {
                    'username': $scope.username
                },
                file: file
            }).progress(function (evt) {
                var progressPercentage = parseInt(100.0 * evt.loaded / evt.total);
                $scope.log = 'progress: ' + progressPercentage + '% ' +
                            evt.config.file.name + '\n' + $scope.log;
            }).success(function (data, status, headers, config) {
                $timeout(function() {
                    $scope.log = 'file: ' + config.file.name + ', Response: ' + JSON.stringify(data) + '\n' + $scope.log;
                });
            })
            .error(function (data, status, headers, config) {
                alert ('Error');
            });

        }
    }
};

这是Perl脚本。

#!c:/perl64/bin/perl.exe

use strict;
use warnings;
use DBI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use CGI;
use CGI qw(:standard);
use JSON;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;

#send the obligatory Content-Type
print "Content-Type: text/html\n\n"; 

$CGI::POST_MAX = 1024 * 5000;
my $safe_filename_characters = "a-zA-Z0-9_.-";

my $cgi = new CGI();
my $upload_dir = "../images"; #location on our server  
my $filename = "dummy.png";

my $upload_filehandle = $cgi->upload("file");
print $upload_filehandle;

open UPLOADFILE, ">../..$upload_dir$filename"  or die $!;
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
    print UPLOADFILE;
}
close UPLOADFILE;

当我尝试在本地Apache服务器上传文件时，看到此错误。

C：/ Program Files（x86）/ Apache Group / Apache2 / htdocs / admin / cgi-bin / upload.pl第26行没有这样的文件或目录。

这是perl脚本中的第26行。

open UPLOADFILE, ">../..$upload_dir$filename"  or die $!;

我已经创建了一个名为images的文件夹。那么为什么会出现这个错误？

任何人都可以帮助我解决错误，以及需要什么样的格式才能正确上传文件。

Answer 1

$upload_dir是../images，并且
$filename是dummy.png，所以
"../..$upload_dir$filename"是../..../imagesdummy.png。
我需要说更多吗？

这就是为什么在错误消息中包含路径是好的。

my $qfn = "../..$upload_dir$filename";
open(my $UPLOADFILE, '>', $qfn)
   or die("Can't create \"$qfn\": $!\n");

（请注意，我做了其他改进，包括从文件句柄的全局glob UPLOADFILE切换到词法标量$UPLOADFILE。如果你采用，你将不得不调整以下代码来使用该标量这个强烈推荐的做法。）

在/cgi-bin/upload.pl第26行没有这样的文件或目录。尝试使用AngularJS

1 个答案: