Changes between Version 47 and Version 48 of Perl

Timestamp:

01/06/09 15:04:30 (16 years ago)

Author:

atzm

Comment:

--

Perl

@@ -643 +643 @@
 }}}
 
+== I/O バッファ ==
+sys* な I/O 操作関数の間違った使い方をすると酷い目に遭うというお話
+
+ * iotest.pl
+{{{
+#!perl
+use strict;
+use warnings;
+use IO::File;
+use Fcntl qw(:seek);
+
+my $io = IO::File->new($0);
+
+$io->sysseek( 0, SEEK_END );
+printf "%s\n", defined( $io->getline() ) ? "defined" : "undef";
+
+while (1) {
+    if ( defined( my $line = $io->getline() ) ) {
+        my $h = `hostname`;
+        print $line;
+        next;
+    }
+    sleep(1);
+}
+
+__END__
+}}}
+ * 実行
+{{{
+$ perl iotest.pl 
+undef
+}}}
+ * 実行中に別端末から追記
+{{{
+$ echo -en "hogehoge\nfoofoo\n" >> iotest.pl
+}}}
+
+最大 1 秒後に追記された行が表示されるかと思いきや，そうはならない (少なくとも 5.8.8 では)．
+
+ポインタがファイル先頭から 9 バイト ("hogehoge\n") 目に移動し，
+そこからファイル内容が全て読み出される．
+
+8 行目の sysseek を seek に変更すれば解決する．
+
 = !PersistentPerl =
  * !PersistentPerl に限った話
@@ -680 +724 @@
 ちょwwwwwwwww
 なんぞこれー
+
 pos: 258, tell: 297