Changes between Version 48 and Version 49 of Perl

Timestamp:

06/05/10 02:34:03 (15 years ago)

Author:

atzm

Comment:

--

Perl

@@ -218 +218 @@
 == constant とハッシュ ==
 constant な値をハッシュのキーにすると，そのままでは文字列として解釈されてしまい，ハマる原因になる．
-constant で定義したものの実体は関数なので，{{{&}}} をつけると良い．
+constant で定義したものの実体は関数なので，{{{&}}} をつけたり，きちんと評価させるために {{{+}}} をつけると良い．
 
  * ダメな例
@@ -236 +236 @@
 my %hash = ("hoge" => "raccho");
 print $hash{&HOGE}, "\n";
+print $hash{+HOGE}, "\n";
 }}}
 
@@ -333 +334 @@
    * 上記コードのうち，{{{hoge}}} 関数内の 2 連 {{{dump}}} の間に {{{keys(%{$data});}}} を挿入するだけで実行結果が変化することに注目．
 
+== 動的ほげ ==
+=== 動的関数呼び出し ===
+ * 局所的にシンボリックリファレンスを使って関数を動的に呼び出してみる
+{{{
+#!perl
+use strict;
+use warnings;
+use YAML::Syck qw(Load);
+
+sub _default_handler {
+    return -1;
+}
+
+sub _handle_hoge {
+    return scalar( @{ $_[0] } );
+}
+
+sub _handle_unko {
+    return scalar( @{ $_[0] } ) + 50;
+}
+
+if ( $0 eq __FILE__ ) {
+    my $data = Load( join( '', <DATA> ) );
+
+    while ( my ( $k, $v ) = each( %{$data} ) ) {
+        ( my $handler = '_handle_' . $k ) =~ s/\s+/_/g;
+
+        my $r = eval {
+            no strict 'refs';
+            $handler->($v);
+        };
+        if ($@) {
+            $r = _default_handler($v);
+        }
+
+        print "$k: $r\n";
+    }
+}
+
+__DATA__
+hoge:
+  - one
+  - two
+  - three
+unko:
+  - four
+  - five
+dame:
+  - damedame
+}}}
+   * {{{__DATA__}}} に書かれた YAML の各キー名に対応した {{{_handle_XXXX}}} を動的に呼び出している．
+     ハンドラがなければ {{{_default_handler}}} に fallback している
+
 == Java で言う instanceof ==
  * UNIVERSAL を使う
@@ -350 +404 @@
    * IO::File は IO::Handle のサブクラスなので true
 
+ * {{{$obj->isa("myclass")}}} というのも可能．
+   ただしこの場合 $obj の内容を選ぶ (undef だったら? とか) ので，
+   場合によって eval してやる等の処置が重要
+
 == あるオブジェクトにあるメソッドが定義されているかどうか調べる ==
  * UNIVERSAL を使う
@@ -366 +424 @@
 }}}
    * IO::File には print メソッドが定義されているので true
+
+ * {{{$obj->can("mymethod")}}} というのも可能．
+   ただしこの場合 $obj の内容を選ぶ (undef だったら? とか) ので，
+   場合によって eval してやる等の処置が重要
 
 == マジカルインクリメント ==