標準入力に入力が詰まってるかどうかを調べるには eof を使えばいいらしい
よく、標準入力を使って:
% ps ax | grep hoge
とかやるけど、Perl6 ではどーやるんだろーと思ったので、IO::Handle を調べていたら、
&eof
を使えばいいっぽいということがわかったので、すくりぷよ書いてみた:
#!/usr/bin/perl6 # -*- mode: perl6; -*- # .. file:: sink use v6; sub MAIN() { unless $*IN.eof { say $*IN.slurp.chomp; } }
名前はてけとー。
標準入力が詰まってない場合は何もしないので、何かを入力すると何かする。
こんな風に使う:
% echo Hello, World! | ./sink
Hello, World!