Forum Webscript.Ru

Программирование => Perl => Тема начата: Nudlok от 01 Ноября 2005, 00:48:37

Название: Upload файла
Отправлено: Nudlok от 01 Ноября 2005, 00:48:37

скрипт должен закачивать файл на сервер с локальной машины с именем, определяемым автоматически
вот скрипт
#!/usr/bin/perl -w
use CGI qw(:standard);
use DBI;

die if ($ENV{REQUEST_METHOD} ne \'POST\');

$bazadir = "/usr/service/http/elib/files";
$pdf=".pdf";
$probel = "\\_";

$filepdf = param(\'filepdf\');

$dbh = DBI->connect("DBI:mysql:database=$dbname;host=127.0.0.1",
"$login", "$pass") || die $DBI::errstr;

#вычисление имени нового файла.
my $result = $dbh->prepare("SELECT id FROM main");
$result->execute();
$i=0;
while (my $nids=$result->fetchrow_array())
{
$i++;
}
$result->finish();
$nid=$i;
$filename = $nid.$probel.$digkaf.$pdf;

#вставка файла с новыи именем.

open(FILEIN, ">$bazadir/$filename");  
binmode (FILEIN);              
print FILEIN $filepdf;    
close FILEIN;

...
всё, что записывается в файл - это путь с локальной машины (C:\\PDF\\Document.pdf)

Я уже много всего перепробовал, но ничео не получается
помогите пожалуйста  дайте правильный код для закачки:confused:

Название: Upload файла
Отправлено: Chs от 01 Ноября 2005, 08:56:28

Баян.
В ФАКе есть код.

Название: Upload файла
Отправлено: Nudlok от 01 Ноября 2005, 17:29:59

Мда...низачёт мне
попробуем ...

Название: Upload файла
Отправлено: Nudlok от 01 Ноября 2005, 19:07:03

отлично всё получилось ....
впредь обещаю быть внимательнее