2013-10-09から1日間の記事一覧
mapにリストをつくってもらっていて、 #!/usr/bin/env perl use Data::Dumper; $li = [ map { +{ AMPM => 'AM', time => sprintf('%02d:00:00', $_) } } 0..2, map { +{ AMPM => 'PM', time => sprintf('%02d:00:00', $_) } } 0..2, ]; print Dumper($li); …
mapにリストをつくってもらっていて、 #!/usr/bin/env perl use Data::Dumper; $li = [ map { +{ AMPM => 'AM', time => sprintf('%02d:00:00', $_) } } 0..2, map { +{ AMPM => 'PM', time => sprintf('%02d:00:00', $_) } } 0..2, ]; print Dumper($li); …