Check input device is a terminal: Difference between revisions

Content added Content deleted
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
m (→‎{{header|Raku}}: Fix code: Perl 6 --> Raku)
Line 259: Line 259:
<lang perl6>say $*IN.t ?? "Input comes from tty." !! "Input doesn't come from tty.";</lang>
<lang perl6>say $*IN.t ?? "Input comes from tty." !! "Input doesn't come from tty.";</lang>


$ perl6 istty.p6
$ raku istty.raku
Input comes from tty.
Input comes from tty.
$ true | perl6 istty.p6
$ true | raku istty.raku
Input doesn't come from tty.
Input doesn't come from tty.