Темы

1

Perl / Установка модуля

« : 20 Марта 2006, 15:50:39 »

Понимаю, что немного не по теме, но вот в чём проблема:
Какой-бы модуль я не пытался установить выдаётся вот что:
Unable to find a perl 5 (by these names: perl perl perl5 perl5.8.8 miniperl, in these dirs: /sbin /bin /usr/sbin /usr/bin /usr/games /usr/local/sbin /usr/local/bin /usr/X11R6/bin /home/nudlok/bin /usr/local/bin)
хотя перл 5 точно установлен

2

Perl / Линейки

« : 29 Декабря 2005, 04:15:40 »

как сделать такие линейки как на http://metric.rodim.ru на Perl
если есть, то лучше пример скрипта

3

Perl / SelfDestroy

« : 15 Ноября 2005, 17:46:13 »

можно ли, чтобы скрипт запускался и уничтожал собственный файл ?

4

Perl / Upload файла

« : 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:

5

Perl / список он-лайн посетителей

« : 24 Сентября 2005, 04:56:20 »

Как с помощью Perl можно организовать список он-лайн посетителей данной страницы .. так же как ето реализовано на PHP в phpNuke  ...?

6

Perl / Perl DBI - помогите с ошибкой

« : 15 Сентября 2005, 16:16:33 »

вот кусок скрипта

Код: [Выделить]

my $result = $dbh->prepare("SELECT id, nazvanie_m FROM main")|| die $DBI::errstr;
$result->execute();
while (my ($ids, $slovavn)=$result->fetchrow_array())
{
      if ($slovavn=~m/$zapros/i){
      my $rezultat = $dbh->prepare("select * from main where id = $ids") || die $DBI::errstr;
      $rezultat->execute();
      print "\\n";
      while (my ($id, $kafedra, $grif, $nazvanie, $annotation, $udk, $bbk, $avtor, $god, $filename)=$rezultat->fetchrow_array())
      {
      print "\\n";
      }
      print "

$id

$kafedra

$grif

$nazvanie

$annotation

$udk

$bbk

$avtor

$god

$filename

\\n";
      $rezultat->finish();
      }else{
      print "ничего не найдено \\n";
      }
$result->finish();
}

скрипт выполняется и выдаёт постоянно "ничего не найдено"
при этом в логе появляется вот что
"DBD::mysql::st fetchrow_array failed: fetch() without execute() at \\\\home\\\\db\\\\cgi-bin\\\\search.cgi line 34.\\n"
вроде бы всё правильно, а поиск не работает (

7

Базы данных / Непонятная ошибка

« : 23 Мая 2005, 16:54:42 »

Я использую ДЕНВЕР для разработки проектов, много раз проверял синтаксис...всё правильно, но постоянно в логах появляется следующая ощибка:

Код: [Выделить]


File \'c:\\mysql\\share\\charsets\\?.conf\' not found (Errcode: 2)
Character set \'#51\' is not a compiled character set and is not specified in the \'c:\\mysql\\share\\charsets\\Index\' file

не подскажете, в чём дело...?

8

Perl / Конвертация .doc-->.pdf

« : 01 Апреля 2005, 18:07:22 »

Вот, собственно, что нужно:
Пользователь загружает файл MSWord он должен автоматически сконвертироваться в PDF формат и сохраниться на сервере уже в нём...