VPF::Непонятная проблема с open(), print и <>

eqltv

Дата 19.11.2010, 19:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте! Пишу на перле скрипт, который должен разделять приходящие строчки из порта в два канала. Написал так:

Код



my $port = "/dev/ttyS0";
my $cmds_fifo = "cmds";
my $resp_fifo = "resp";

open PORT, '<', $port or die "Cannot open $port: $!";
open CMDS, '>', $cmds_fifo or die "Cannot open $cmds_fifo: $!";
open RESP, '>', $resp_fifo or die "Cannot open $resp_fifo: $!";

while(<PORT>)
{
    print;
    if(/^[\+\=]/)
    {
        print "cmd!\n";
        print CMDS;
    }
    else
    {
        print "resp!\n";
        print RESP;
    }
}

Все записи в консоль работают, а записи в файлы - нет. Пробовал везде явно ставить $_, пробовал вводить вместо нее обычную переменную, пробовал заменять > на >>, ставил $! = 1, заменял каналы на простые файлы - всё равно не работает.
В чем моя ошибка?

eqltv

Дата 19.11.2010, 20:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Проблема решена. Нужно использовать autoflush:

Код


use IO::Handle;
#...
CMDS->autoflush(1);
RESP->autoflush(1);

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