2

そのための別のプログラムを作成せずに、独自の出力をフィルタリングしたい。適応できる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;
}
4

1 に答える 1