VPF::загрузка файлов Mojo - Форум программистов

kukich

Дата 27.9.2012, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

Привет.
Посмотрел темы про загрузку файлов на сервер,но что-то у меня всё равно не выходит.Вот код в обработчике (Mojolicious):

Код


my $file = $self->param("hor");
if (defined $file) {
        my $image;
    my $fileName = $file;            
    open (OUTFILE,">$basedir/$fileName") or die $!;
    while ($bytesread = read($file, $buffer, 1024)) {
        $image.= $buffer;
    } 
    print OUTFILE $image;
    close (OUTFILE);

Выдает ошибку Not a GLOB reference на сторчку с циклом while.
Как я понял,это ошибка того,что нужен не сам файл,а его дескриптор - добавил строчку

Код


my $file = $self->param("hor");
if (defined $file) {
        my link= ref $file
        my $image;
    my $fileName = $file;            
    open (OUTFILE,">$basedir/$fileName") or die $!;
    while ($bytesread = read($link, $buffer, 1024)) {
        $image.= $buffer;
    } 
    print OUTFILE $image;
    close (OUTFILE);

Скрипт компелируется,но не создает нужный файл,а создает только файл размером 0КБ с именем Mojo::Upload=Hash(....).
В логах ошибка - read() on unopened filehandle в строчке с while.

Я подозреваю ,что ошибка в my $file = $self->param("hor"); - тут должно быть что то типа my $file = $self->upload("hor"); но и тут не компилируется программа - ошибка Can't locate object method "upload" via package.

P.S. может в mojolicious есть какой-то свой метод ,отвечающий за загрузку файлов?

Это сообщение отредактировал(а) kukich - 27.9.2012, 16:11

kukich

Дата 28.9.2012, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

Я нашёл решение .
Теперь загрузка выглядет так :

Код


        my $file = $self->req->upload("hor$i");
        if (defined $file) {
            my $fileName=$file->name;
            $file->move_to("$basedir/$fileName");
                }

Всё оказалось проще чем я думал.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »