Это мой 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.
Это строка 26 в perl-скрипте.
open UPLOADFILE, ">../..$upload_dir$filename" or die $!;
У меня есть папка с уже созданными изображениями. Так почему же эта ошибка?
Может ли кто-нибудь помочь мне, что не так, и какие шаги нужны для того, чтобы я мог загрузить файл должным образом.
$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
для дескриптора файла. Вам придется настроить следующий код, чтобы использовать этот скаляр, если вы примете эту рекомендуемую практику.)
../..../imagesdummy.png
имеет смысл?