Сообщения

1

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 17:04:18 »

NeoNox:
perl -cw script.pl

script.pl syntax OK

NeoNox:
Кстати, что за формулировка вопроса "не пишет в файл, а вываливает в stdout"?

Ну, я не знаю как точно сформулировать. Я думаю, вы меня поняли...

2

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 16:43:35 »

Точно этот... Пусто.

3

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 16:11:10 »

NeoNox:
поставь перед POE::Component::IRC->new( \'test\' ) or die "Can\'t instantiate new IRC component!\\n"; строчки типа print "test\\n"; print STDOUT "Test 2\\n"; Что в log.txt?

пусто…
(файл нулевого размера)

4

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 16:08:53 »

FreeBSD 5.3
bash 2.05

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

./script.pl > log.txt
Но тут загвоздка именно в скрипте. Ибо если я исполняю такой скрипт:

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

#!/usr/bin/perl
print "asdf";

То

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

./test.pl > test.log нормально работает

5

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 16:02:15 »

Croaker:
По идее не зависит. Попробуй перенаправить вывод в другйо файл, log2.txt например. Будет туда писать?

Нет. Не пишет. С правами всё в порядке.

6

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 15:56:27 »

Прошу прощения. Я думал, это не зависит от скрипта, что можно любой вывод направить в файл. К тому же, скрипт несколько велик:
http://rafb.net/paste/results/AzWXgE62.html

7

Perl / script.pl > log.txt - не пишет в файл, а вываливает в stdout

« : 26 Января 2005, 15:37:03 »

В скрипте с помощью print "выводится некоторая инфа";
Так вот, когда запускаю "script.pl > log.txt" - он не пишет в файл, а вываливает в системный вывод.
Почему?

8

Perl / Net::IRC задержка реакции на событие

« : 20 Января 2005, 19:01:28 »

Но ведь при sleep останавливается весь процесс?
А мне нужно, чтобы во время этой задержки бот реагировал на другие события...
То есть, в конечном итоге, мне нужно что-то вроде: если произошло то-то, выполнить это через ПОЛЧАСА, а пока продолжать работать дальше.

Можно по-другому. Каждую секунду проверять текущее время на соответствие нужному. Но как делать что-то КАЖДУЮ секунду, если там можно только описать реакцию на события?

Что же делать?..

9

Perl / Net::IRC задержка реакции на событие

« : 20 Января 2005, 00:57:30 »

Пишу бота, используя Net::IRC.
Вот потребовалось сделать реакцию на событие не мгновенную, а с произвольной задержкой.
Не подскажете как реализовать?

10

Perl / Работа с длинной двоичной переменной побайтно

« : 28 Октября 2004, 12:02:06 »

Простите, господа, переволновался
Сделал так:
@klop = unpack ("C26",$packet);
for ($i=0;$i<26;$i++) {
  $msg .= ($klop[$i]==255)?
   (pack("C",hex FF).pack("C",hex FF)):
   (pack("C",$klop[$i]));
}

11

Perl / Работа с длинной двоичной переменной побайтно

« : 28 Октября 2004, 10:05:26 »

Формирую некий двоичный пакет с разными данными следующим образом:

$packet = pack("C",hex FF).pack("L",$time);
$packet .= pack ("a4",inet_aton($shost));
$packet .= pack ("a4",inet_aton($dhost));
$packet .= pack ("I2",$sport,$dport);

В общем, неважно что там внутри, я просто хотел показать, что данные там разнородные.
Так вот.
Как мне перед отправкой этого пакета проверить каждый байт на равенство "FF"? Мне нужно каждый байт "FF" дополнить до двух байт - "FFFF".