home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / flush.pl < prev    next >
Encoding:
Text File  |  1990-02-07  |  575 b   |  37 lines
  1. #
  2. # from lwall
  3. #
  4.  
  5. sub flush {
  6.     local(*FH) = @_;
  7.     local($oldfh) = select(FH);
  8.     local($oldflush) = $|;
  9.     $| = 1;
  10.     print FH '';
  11.     $| = $oldflush;
  12.     select($oldfh);
  13. }
  14. #open (PIPE, "|some command");
  15. #for (;;) {
  16. #    sleep 1;
  17. #    print PIPE  "some string";
  18. #    &flush(*PIPE);
  19. #}
  20.  
  21. sub iflush {
  22.     local($FH) = @_;
  23.     local($oldfh) = select($FH);
  24.     local($oldflush) = $|;
  25.     $| = 1;
  26.     print $FH '';
  27.     $| = $oldflush;
  28.     select($oldfh);
  29. }
  30.  
  31. #open (PIPE, "|some command");
  32. #for (;;) {
  33. #    sleep 1;
  34. #    print PIPE  "some string";
  35. #    &iflush('PIPE');
  36. #}
  37.