Forum Webscript.Ru

Программирование => Perl => Тема начата: Lastiik от 22 Апреля 2005, 23:12:53

Название: как постпенно записывать в файл
Отправлено: Lastiik от 22 Апреля 2005, 23:12:53

ну к примеру при обращении к подпрограмме после определенных действий, чтобы постоянно не открывать и дописывать файл...а просто постоянно писать...

Название: как постпенно записывать в файл
Отправлено: frenky от 23 Апреля 2005, 01:38:44

ну не закрывай поток STDOUT

Название: как постпенно записывать в файл
Отправлено: Lastiik от 23 Апреля 2005, 13:30:03

если не закрывать, то в файл данные не запишутся...только после закрытия в файле будут изменения

Название: как постпенно записывать в файл
Отправлено: Lastiik от 23 Апреля 2005, 14:17:44

уже ясно

"$!=1;" или "use IO::Handle; FH->autoflush(1);

только работает почему-то только второй вариант

Название: как постпенно записывать в файл
Отправлено: Green Kakadu от 23 Апреля 2005, 22:19:22

Цитировать

Lastiik:
"$!=1;"

$|=1;

Название: как постпенно записывать в файл
Отправлено: Lastiik от 24 Апреля 2005, 01:15:23

да я понял, не работает что-то...


конструкция допустим

open(F, ">>f");
while(my $read=)
{
   print F $read;
   $|=1;
}


так ?

Название: как постпенно записывать в файл
Отправлено: vladsu от 24 Апреля 2005, 23:48:54

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


$|=1;

open(F, ">>f");
while ( my $read= ) {
        print F $read;
}

Мне кажется так логичней, Вы не находите?

Название: как постпенно записывать в файл
Отправлено: cr4ck3r от 25 Апреля 2005, 18:09:53

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

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


#!/usr/bin/perl -w
$|=1;
# далее любой код


Название: как постпенно записывать в файл
Отправлено: Lastiik от 25 Апреля 2005, 22:45:16

фенкс ;)