VPF::Проблема с записью в файл и sleep. Почему так?

Egik2

Дата 13.8.2008, 09:48 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 29.7.2008
Где: Агудзера

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

Почему при работе следующего скрипта запись в файл происходит не каждую секунду, а один раз через десять секунд все десять строк?

Код


#!/usr/bin/perl
use strict;
th1();
sub th1 {
    open (MY, ">f1");
    for (1..10) {print MY "Beleberda----beleberda!!!\n"; sleep 1;}
    close(MY);
}

Вчера думал, думал, так и не додумался с чем может быть проблема. Главное если пишу в STDOUT все идет нормально. Что то связано с записью в файл. Заранее спасибо.

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

Три великие добродетели программиста: лень, нетерпение и самомнение (Larry Wall)
a-nav.com
developer-blog.ru
world-poetry.org

sir_nuf_nuf

Дата 13.8.2008, 10:49 (ссылка)

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

Загрузка ...

Опытный

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

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

Egik2, это буфферизация.

Читай тут:
Как отключить буфферизацию perl

Делай так:

Код


use strict;
use IO::Handle;
th1();
sub th1 {
    open MY ,">my.data";
    MY->autoflush(1);
    for (1..10) {print MY "Beleberda----beleberda!!!\n"; sleep 1;}
    close MY;
}

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

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