Changes between Version 38 and Version 40 of Perl

Timestamp:

06/06/07 22:07:10 (17 years ago)

Author:

atzm

Comment:

--

Perl

@@ -746 +746 @@
 huge
 }}}
+
+= !PersistentPerl =
+ * !PersistentPerl に限った話
+
+== DATA ファイルハンドルの罠 ==
+ * !PersistentPerl を使った時は DATA ファイルハンドルを seek できない?
+{{{
+#!perl
+#!/usr/bin/perperl
+
+use strict;
+use warnings;
+
+&main(@ARGV);
+
+sub main {
+    my $pos = tell(DATA);
+    print "$pos\n";
+
+    print while (<DATA>);
+
+    seek( DATA, $pos, 0 );
+    printf "pos: %d, tell: %d\n", $pos, tell(DATA);
+}
+
+__DATA__
+ちょwwwwwwwww
+なんぞこれー
+}}}
+   * 実行結果
+     * seek 後の tell 値が $pos を示していない
+{{{
+$ ./hoge.pl
+258
+ちょwwwwwwwww
+なんぞこれー
+pos: 258, tell: 297
+}}}
+ * ちなみに，普通のファイルハンドルなら seek 可能．