Нет такого файла или каталога в строке /cgi-bin/upload.pl 26. При попытке загрузить файл с помощью AngularJS

0

Это мой 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 $!; 

У меня есть папка с уже созданными изображениями. Так почему же эта ошибка?

Может ли кто-нибудь помочь мне, что не так, и какие шаги нужны для того, чтобы я мог загрузить файл должным образом.

Теги:

1 ответ

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 для дескриптора файла. Вам придется настроить следующий код, чтобы использовать этот скаляр, если вы примете эту рекомендуемую практику.)

  • 0
    Привет икегами. Спасибо за ответ. После интеграции предложенных вами каналов теперь я получаю эту ошибку. Не могу создать ../..../imagesdummy.png;
  • 0
    Как это должно. Вы действительно думаете, что путь ../..../imagesdummy.png имеет смысл?
Показать ещё 10 комментариев

Ещё вопросы

Сообщество Overcoder
Наверх
Меню