




ヨーロッパやアメリカでは大人気のダッチハンガー。狭いスペースを
有効的に活用でき、重いコートやジャケット、ズボン類もしっかり
かけられて、多機能だ。


#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open2;
my $pid = open2(\*RDR, \*WTR, 'cat -n');
while (<>) {
print WTR $_;
}
close WTR;
while (<RDR>) {
print;
}
close RDR;
実行例:
% head -3 sample.pl | ./sample.pl
1 #!/usr/bin/perl
2 use strict;
3 use warnings;