Help for this page

Select Code to Download


  1. or download this
    open(DAT, '>', ...) || die(...);

...
}

...
  2. or download this
    sub flush {
   my $h = select($_[0]); my $af=$|; $|=1; $|=$af; select($h);
}

flush(*DAT);
  3. or download this
    my $dat = IO::File->new($filename, 'w')
or die(...);
...
$dat->flush();           # Flushed.

$dat->printflush(...);   # Flushed.