標準入力に入力が詰まってるかどうかを調べるには 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!