Forum Webscript.Ru
Программирование => Perl => Тема начата: giperborey от 14 Февраля 2005, 10:44:40
-
Имеется скрипт, связанный с закачкой файла:
use strict;
use CGI qw(:all);
use CGI::Carp qw (fatalsToBrowser);
$CGI::DISABLE_UPLOADS = 0;
# Фрагмент формы
и два варианта в процедурах и объектах,
без use strict; работает но файлы получаются пустые, создается некий темповский файл с картинкой;
с use strict; выдает ошибку с указанием на дескриптор файла $file и
$fh
Чего не хватает???
my ($info, $f,$bytesread, $buffer);
my $file = upload("pict");
close F1_S;
if ($file) {print ("11111");};
$info = uploadInfo($file);
print $file;
open (A, "$file");
print $info;
$f="kuuku";
open (FS, ">3.jpg");
binmode (FS);
binmode ($file);
while($bytesread = read($file, $buffer, 1024)) {
print FS $buffer;
}
close FS;
my $query = new CGI;
open UPLOADED, ">4.jpg";
binmode (UPLOADED);
my $fh = $query->upload("pict");
#binmode($fh);
my ($bytesread, $buffer);
while($bytesread = read($fh, $buffer, 1024)) {
print UPLOADED $buffer;
}
close UPLOADED;
-
Вечная тема – закачка файла на сервер(upload). (http://faq.webscript.ru/PFSEUpload?v=wzo)
-
Закачка заработала, а как избавится от темповского файла возникающего при закачке. Причем он вроде возникает когда переменные из формы передаются разным функциям файл одной а остальные другой, когда только функция закачки файла темповского файла нету.