скрипт должен закачивать файл на сервер с локальной машины с именем, определяемым автоматически
вот скрипт
#!/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:
