Changes between Version 28 and Version 29 of Perl

Timestamp:

01/15/07 19:07:16 (19 years ago)

Author:

atzm

Comment:

--

Perl

@@ -331 +331 @@
  * ([{a=>1, b=>2}, {a=>2, b=>3}, {a=>1, b=>3}], "a") が [{a=>1, b=>2}, {a=>2, b=>3}] で返る．
 
+=== each の罠 ===
+ * パッと見，以下のコードでは {{{===unreachable===}}} は出力されないように見える．
+   * しかし，1 度目の {{{dump}}} コールにより {{{$data}}} のイテレータが {{{$vv->{'uge'}}}} を過ぎた状態で保存されるため，2 度目の {{{dump}}} コールでは該当コードに到達する．
+   * each を使う際は最後までイテレートさせないとハマる危険性大．
+{{{
+#!perl
+use YAML::Syck qw(Load Dump);
+
+&hoge();
+
+sub hoge {
+    my $data = Load( join( '', <DATA> ) );
+    &dump($data);
+    &dump($data);
+}
+
+sub dump {
+    my $data = shift;
+    while ( my ( $k, $v ) = each( %{$data} ) ) {
+        foreach my $vv ( @{$v} ) {
+            return if ( $vv->{'uge'} eq 'uhi-' );
+        }
+    }
+    print "=== unreachable ===\n";
+    print Dump($data);
+}
+
+__DATA__
+hoge:
+  - hage: hige
+    huge: unko
+    uge:  goge
+  - hage: hihi
+    huge: uho
+    uge:  uhi-
+}}}
+{{{
+#!sh
+$ perl hogehoge.pl 
+=== unreachable ===
+--- 
+hoge: 
+  - 
+    hage: hige
+    huge: unko
+    uge: goge
+  - 
+    hage: hihi
+    huge: uho
+    uge: uhi-
+}}}
+ * なお，{{{keys}}} や {{{values}}} を利用することでイテレータを初期化することができる．
+   * 上記コードのうち，{{{hoge}}} 関数内の 2 連 {{{dump}}} の間に {{{keys(%{$data});}}} を挿入するだけで実行結果が変化することに注目．
+
 == OOP 関連 ==
 === 引数設定の自動化もどき ===