2008-02-17から1日間の記事一覧
ちょっとした必要にかられて書いた。動作は↓読んだまんま。 #!/usr/bin/perl use strict; while(<STDIN>) { my $d=&now(); print "$d $_"; } sub now() { my ($sec,$min,$hour,$mday,$mon,$year,undef) = localtime(time); my $d = sprintf("%02d/%02d/%02d %02d:%0</stdin>…
ちょっとした必要にかられて書いた。動作は↓読んだまんま。 #!/usr/bin/perl use strict; while(<STDIN>) { my $d=&now(); print "$d $_"; } sub now() { my ($sec,$min,$hour,$mday,$mon,$year,undef) = localtime(time); my $d = sprintf("%02d/%02d/%02d %02d:%0</stdin>…
