そのための別のプログラムを作成せずに、独自の出力をフィルタリングしたい。適応できるperl5ソリューションがあります。新しい言語がサポートするようにできることはありますか?
head(100);
while (<>) {
print;
}
sub head {
my $lines = shift || 20;
return if $pid = open(STDOUT, "|-");
die "cannot fork: $!" unless defined $pid;
while (<STDIN>) {
print;
last unless --$lines ;
}
exit;
}