Forum Webscript.Ru

Программирование => Perl => Тема начата: FANTAzeRus от 06 Декабря 2003, 22:37:02

Название: Perl vs upload
Отправлено: FANTAzeRus от 06 Декабря 2003, 22:37:02

Имею Форму которая генерится кусочкомскрипта:

sub prepare
{
 my @T=();
 my $j=1;
 my $count=param("count");

 @T=(@T,"

\\n");
 @T=(@T,"\\n");
 @T=(@T,"\\n");

 while($j<=$count)
  {
   @T=(@T,"
\\n");
   $j++;
  }

 @T=(@T,"\\n");
 @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

Как побороть????

Название: Perl vs upload
Отправлено: FANTAzeRus от 07 Декабря 2003, 03:12:00

САМ РАЗОБРАЛСЯ!
Для тех кому интересно:

Нужно закрывать не только не только дескриптор OUT, но и файл $in ... после этого временные файлы просто не будут создаваться.

Название: Perl vs upload
Отправлено: ondr от 08 Декабря 2003, 10:34:14

не по теме конечно, но и лишним не будет ;)
perldoc -f push