スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
こういうのって邪道かなぁ
use strict;
use Data::Dumper;

my $c;
$c = {
      'age'       => 14,
      'next_year' => sub {
                           print '1年たちました', "\n";
                           $c->{'age'}++;
                         }
     };


print Dumper \$c;
$c->{'next_year'}->();
$c->{'next_year'}->();
print Dumper \$c;


結果:
$VAR1 = \{
            'next_year' => sub { "DUMMY" },
            'age' => 14
          };
1年たちました
1年たちました
$VAR1 = \{
            'next_year' => sub { "DUMMY" },
            'age' => 16
          };


blessを使え?
スポンサーサイト
-
管理人のみ閲覧できます
このコメントは管理人のみ閲覧できます
2009/02/21 (土) 23:32:30| |#
コメントを投稿する
Name:
URL:
Comment:

秘密:管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事にトラックバックする(FC2ブログユーザー)
ブログ検索

プロフィール

ビンゴ中西
Perlが好きである。
プログラミング言語のほとんどは独学。独学の過程で多くのプログラム仲間にも色々教わりました。

FC2カウンター

カレンダー

08 | 2017/09 | 10
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

ブロとも申請フォーム

この人とブロともになる

| ホーム |
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。