I'm looking for the Perl equivalent to this Python code:
from sys import stdout
if stdout.isatty():
print "yes"
else:
print "no"
views:
119answers:
2
+5
A:
Use the -t filetest operator.
print -t STDOUT ? "Yes\n" : "No\n"
Note that in Perl, STDOUT can be tied (essentially an overcomplicated overloaded object) so output to STDOUT may still reach a TTY even if its not directly attached to one.
Schwern
2010-08-18 23:04:19
IO::Interactive shows the special cases that you may want to consider too.
brian d foy
2010-08-19 12:36:01
How on Earth does this answer have a score of +5, while another (earlier!) post with *exactly* the same answer has a score of -1 ?
Evgeny
2010-09-02 00:24:32
@Evgeny That answer was originally `print -t 1 ? "yes\n" : "no\n"`. The unnecessary use of a fileno bought it downvotes.
Schwern
2010-09-02 01:35:54
+4
A:
Use IO::interactive if you require STDOUT to actually be connected to the terminal, and not just being redirected to /dev/null/ or whatever.
Pedro Silva
2010-08-19 05:34:57