note
ybiC
As per brother [mifflin] above, from the [http://www.oreilly.com/catalog/perlckbk2/|Perl Cookbook] <sup><small>1st ed, pp 518, 519</small></sup>...
<br />
hth,<br />
ybiC<br />
<br />
<p>
Use <tt>-t</tt> to test <tt>STDIN</tt> and <tt>STDOUT</tt>:
<code>sub I_am_interactive {
return -t STDIN && -t STDOUT;
}</code>
</p>
<p>
If you're on a POSIX system, test process groups:
<code>
sub I_am_interactive {
local *TTY; # local file handle
open(TTY, "/dev/tty") or die "can't open /dev/tty: $!";
my $tpgrp = tcgetpgrp(fileno(TTY));
my $pgrp = getpgrp();
close TTY;
return ($tpgrp == $pgrp);
}
</code>
</p>
472045
472045