Имею Форму которая генерится кусочкомскрипта:
sub prepare
{
my @T=();
my $j=1;
my $count=param("count");
@T=(@T,"
\\n");
return @T;
}
Далее происходит сам Upload:
my @T=();
my @FFF=param(\'picture\');
my $downpath = "../upload";
foreach my $in(@FFF)
{
if($in ne \'\')
{
my ($name) = $in =~ m#([^\\\\/:]+)$#;
open(OUT,">$downpath/$name");
binmode(OUT);
while (<$in>) {print OUT $_}
close(OUT);
@T=(@T,"Загружен файл: $name
\\n");
}
}
return @T;
============================
Если на первой форме поле
одно, то Файл нормально заливается в указанную директорию, если больше 1 то в директории запуска скрипта создается Файл например - cgitemp56286
Как побороть?