Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - stratocaster

Страницы: [1]
1
Perl / Чтение данных из сокета - трабл
« : 29 Августа 2005, 11:09:21 »
фигня, дебаггер ничего не говорит. Значит демон тупорылит. Эх...

2
Perl / Чтение данных из сокета - трабл
« : 29 Августа 2005, 03:51:13 »
блин, не работают как заявлено команды в этом дебаггере!! :( переходит на след.строку, как в редакторе

ВИНОВАТ. Похоже Putty глючит, в Xterm все пашет

3
Perl / Чтение данных из сокета - трабл
« : 26 Августа 2005, 16:21:38 »
может есть какой-нибудь перловый дебаггер?

4
Perl / Чтение данных из сокета - трабл
« : 26 Августа 2005, 12:22:56 »
Приветствую.
Очень непонятная проблема.
Буду благодарен если натолкнете на мысль.

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

  my %params = (
               lang => ru,
               host => \'localhost\',
               port => PORT,
               @_);
  my $len = length($word);
  my $sock = IO::Socket::INET->new(
                                   PeerAddr => $params{\'host\'},
                                   PeerPort =>  $params{\'port\'},
                                   Proto    => \'tcp\');
  unless ($sock) {
       err2log( $errh . "Can not connect !");
     return $word;
  }

  print $sock \'CLIL\' .    $param{\'lang\'} . pack(\'i\', $len) .  $word;

  my @result;
  my $answer;
  while (read($sock, $answer, SIZE_OF_SIZE_T), $len=unpack(\'i\',$answer)) {
    read($sock,$word,$len);
    push @result,$word;
  }

  return @result ? $result[0] : $word;


Если кратко, то это предоставление программе spelld (mnogosearch), работающей в виде демона, слова для его морфологического анализа и поиска  родственных словоформ.

На обоих машинах стоит Linux  (RH Enterprise 3).  
На той на которой Intel 32bit - код отрабатывает нормально.
Там где AMD64 -  все отвисает на чтении из сокета (выявил после тщательной отладки):
Код: [Выделить]

read($sock, $answer, SIZE_OF_SIZE_T)

этот  вызов ничего не возвращает (причем даже undef), и ничего не кладет в $answer
то есть на ней просто виснет скрипт, и висит  пока процесс апач не вывалится в тайм-аут
В чем может быть причина?
Куда рыть?
В  логах этого spelld ничего нет, и вообще непонятно как дальше проводить дебаг. Скомпилился он на AMD64 нормально, без проблем.

5
Perl / SELF_NAME модуля
« : 23 Мая 2005, 18:12:59 »
сайт под управлением мод_перл.
как сделать следующее:
если в одном из модулей *.pm написать
Код: [Выделить]

  print STDERR "Hi! It\'s me - perl module with name <ИМЯ_МОДУЛЯ.pm>";


надеюсь понятно объяснил

6
Perl / DBD::Pg prepare
« : 27 Марта 2005, 12:42:09 »
Парни!
Не мог кто бы помочь с пониманием DBI && DBD ?
Я читаю доку по DBD::Pg, и никак не могу понять, в чем смысл метода prepare? Примеры там приведенные тоже убивают...

Вот я сейчас  ставлю  одну систему, в дистрибутиве которой
есть perl-скрипт, выполняющий sql-команды для создания БД и
заполнения ее исходными данными. Скрипт спотыкается на одном запросе,  я пытаюсь отловить его текст, сначала вывел параметры передаваемые методу do() и увидел что с ними  вроде все нормально.
Потом включил журналирование Postgresql-сервером SQL-запросов. И я чуть не обалдел от того что увидел: там были строки типа:
Код: [Выделить]
values($1,$2,$3)  
Я так понимаю в лог валится выражение, выполняемое Сервером? А откуда сервер знает что подставлять вместо $1, $2, $3??? Наверное это и есть  эффект, достигаемый использованием prepare() , bind_param() etc....
Проясните пож-ста чуть-чуть ситуацию....

7
Perl / Счетчик времени генерации страницы
« : 10 Марта 2005, 19:24:02 »
Привет!
Подскажите пож-ста есть ли CPAN-модуль  который можно было бы использовать для подсчета времени  генерации web-страницы  на сервере ? Я бы сам поискал, да вот не знаю как запрос сформулировать =) ... ну бывает ...

8
Perl / список элементов массива
« : 03 Марта 2005, 15:03:28 »
2NetFly  
мне после каждой правки сервер приложений рестартовать )))

9
Perl / список элементов массива
« : 03 Марта 2005, 14:58:30 »
а есть такой оператор :  ".="  ?
чтобы  в цикле значение каждой итерации дописывать к значению переменной цикла? а потом за пределами цикла ее вывести?
я просто отлаживаю написанное не мной Web приложение, в перле не особо силен, разбираюсь шаг за шагом путем вывода значений переменных.  
 print($var) // 502 почему-то
 die($var) // выводит,  
вот я использую die()
труднее если переменная - массив

10
Perl / список элементов массива
« : 03 Марта 2005, 14:54:08 »
а имеет значение ассоциативнй массив или нет
не получается с этими примерами

11
Perl / список элементов массива
« : 03 Марта 2005, 14:41:20 »
какая функция в PERL  возвращает список элементов массива? то есть что-то типа print_r() в PHP?
или только пробегаться циклом по массиву?

Страницы: [1]