Changes between Version 4 and Version 5 of Dev/Perl

Timestamp:

Nov 2, 2010 2:50:11 PM (13 years ago)

Author:

mitty

Comment:

--

Dev/Perl

@@ -123 +123 @@
 }
 }}}
+
+ = $line = <$hash{'filehandle'}>; # => GLOB =
+ * [http://harapeko.asablo.jp/blog/2006/10/13/559447 山カッコ演算子にハッシュの要素を使用することはできない: 国民宿舎はらぺこ 大浴場]
+{{{
+#!perl
+my %file = ();
+
+{
+    open my $fh, '<test.txt'    or die;
+    $file{'fh'} = $fh;
+}
+
+my $line = <$file{'fh'}>;   # NG
+print $line;
+}}}
+ * 実行結果
+{{{
+GLOB(0x161aa34)my %file = ();
+
+}}}