Задать вопрос
  • Неблокирующая запись в файл в Perl?

    @chorny_cpan
    Написал программу читающую этот файл. Она читает этот файл без проблем.
    use 5.12.0;use warnings;
    use Fcntl qw(:flock);
    open(FH, '<', 'file.txt') or die;
    flock(FH, LOCK_EX|LOCK_NB) or die "Cannot lock - $! $^E\n";
    while (<FH>) {
      print
    }


    Для того чтобы не работала буферизация при записи я добавил в вашу программу
    FH->autoflush(1);
    Ответ написан
    Комментировать