Return to Snippet

Revision: 272
at July 8, 2006 11:27 by kkindoh


Initial Code
sub isOutputScreen {

  use POSIX;

  return 0 if POSIX::isatty( \*STDOUT) eq "" ; # pipe
  return 1; # screen
} # end of isOutputScreen

Initial URL


Initial Description


Initial Title
How to determine if the output is screen or pipe.

Initial Tags


Initial Language
Perl