VPF::проблема с fifo - Форум программистов

admsasha

Дата 7.10.2009, 03:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 28.1.2005

Репутация: нет
Всего: 6

Хочу чтобы с нескольких скриптов пересылать данные для демона.

Один из вариантов такой

Код


#!/usr/bin/perl
$FIFO = 'CurrentTime';

  unless (-p $FIFO) {
    unlink $FIFO;
    system('mknod', $FIFO, 'p')  && die "can't mknod $FIFO: $!";
  }

while (1) {
   open (FIFO, ">> $FIFO") || die "can't write $FIFO: $!";
   print FIFO "Date and time now is ", scalar localtime(), "\n";
   close FIFO;
   sleep 1; 
}

Проблема в том, что демон видит только последнее значение.

Проверил еще через "cat ./CurrentTime" тоже самое. Только одна строка, если даже выждать выполнения этого скрипта 10 секунд.

Как сделать дозапись в fifo ? Или предложите другой способ взаимодействия.

ginnie

Дата 7.10.2009, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

admsasha, попробуйте изменить код в соответствии с perlipc. Демон точно корректно работает?

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

krypt3r

Дата 8.10.2009, 06:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 359
Регистрация: 9.6.2009

Репутация: 2
Всего: 16

admsasha, попробуйте заюзать для передачи данных от скриптов демону не FIFO, а локальный сокет - демон создает его при старте с соответствующими правами, убивает при выходе (в том числе аварийном), скрипты проверяют существование сокета, если есть, пишут в него, если нет, оставляют след об ошибке в логах

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »