スポンサーサイト
上記の広告は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カウンター

カレンダー

07 | 2017/08 | 09
- - 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 31 - -

ブロとも申請フォーム

この人とブロともになる

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