lib/flush.pl

   1 #
   2 # This library is no longer being maintained, and is included for backward
   3 # compatibility with Perl 4 programs which may require it.
   4 #
   5 # In particular, this should not be used as an example of modern Perl
   6 # programming techniques.
   7 #
   8 # Suggested alternative: IO::Handle
   9 #
  10 ;# Usage: &flush(FILEHANDLE)
  11 ;# flushes the named filehandle
  12
  13 ;# Usage: &printflush(FILEHANDLE, "prompt: ")
  14 ;# prints arguments and flushes filehandle
  15
  16 sub flush {
  17     local($old) = select(shift);
  18     $| = 1;
  19     print "";
  20     $| = 0;
  21     select($old);
  22 }
  23
  24 sub printflush {
  25     local($old) = select(shift);
  26     $| = 1;
  27     print @_;
  28     $| = 0;
  29     select($old);
  30 }
  31
  32 1;