home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / lib / flush.pl < prev    next >
Text File  |  1999-07-25  |  642b  |  33 lines

  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;
  33.