2012-06-15から1日間の記事一覧
いろんな言語に配列の each メソッドがあるので Perl でも全く無意味に作ってみる。 #!/usr/bin/env perl use strict; use warnings; my $array = Array->new(10, 20, 30, 40); $array->each(sub { my $item = shift; print $item + 1, "\n"; }); package Ar…
いろんな言語に配列の each メソッドがあるので Perl でも全く無意味に作ってみる。 #!/usr/bin/env perl use strict; use warnings; my $array = Array->new(10, 20, 30, 40); $array->each(sub { my $item = shift; print $item + 1, "\n"; }); package Ar…