2007-03-23 catとheadと Perl Perlの勉強のためにcatとheadを書いてみた。cat: #!/usr/bin/env perl use strict; print while(<>); head: #!/usr/bin/env perl use strict; while(<>){ $. < 10 or last; print; } あと、テストデータ生成に使ったワンライナー。 $ perl -e 'print $_,"\n" for(1..10)'catなんかは実質一行だな。さすがPerl。