Changes between Version 30 and Version 31 of Perl

Timestamp:

01/25/07 11:45:59 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -594 +594 @@
 }}}
 
+=== DATA の罠 ===
+ * hoge.pm 内の DATA の position が 1 回目の new で EOF に到達するため，2 回目の new では $self->{'data'} が空になる．
+{{{
+#!perl
+package hoge;
+
+sub new {
+    my $class = shift;
+    my @data  = <DATA>;
+    return bless {'data' => \@data}, $class;
+}
+
+sub hoge {
+    my $self = shift;
+    return $self->{'data'};
+}
+
+1;
+
+__DATA__
+hoge
+hage
+hige
+}}}
+{{{
+#!perl
+use hoge;
+
+my $hoge1 = new hoge();
+print "*** 1\n";
+print @{$hoge1->hoge()};
+
+
+my $hoge2 = new hoge();
+print "*** 2\n";
+print @{$hoge2->hoge()};
+}}}
+ * 何度も new できるようにするためには，以下のようにする必要がある．
+{{{
+@@ -5,7 +5,9 @@
+ 
+ sub new {
+     my $class = shift;
++    my $pos   = tell DATA;
+     my @data  = <DATA>;
++    seek DATA, $pos, 0;
+     return bless {'data' => \@data}, $class;
+ }
+}}}
+
 == スクリプトを直接実行した時だけ呼ぶコード ==
  * とどのつまりは Python で言うところの {{{if __name__ == "__main__":...}}} ．