Changes between Version 4 and Version 5 of Dev/Perl


Ignore:
Timestamp:
Nov 2, 2010 2:50:11 PM (12 years ago)
Author:
mitty
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • Dev/Perl

    v4 v5  
    123123} 
    124124}}} 
     125 
     126 = $line = <$hash{'filehandle'}>; # => GLOB = 
     127 * [http://harapeko.asablo.jp/blog/2006/10/13/559447 山カッコ演算子にハッシュの要素を使用することはできない: 国民宿舎はらぺこ 大浴場] 
     128{{{ 
     129#!perl 
     130my %file = (); 
     131 
     132{ 
     133    open my $fh, '<test.txt'    or die; 
     134    $file{'fh'} = $fh; 
     135} 
     136 
     137my $line = <$file{'fh'}>;   # NG 
     138print $line; 
     139}}} 
     140 * 実行結果 
     141{{{ 
     142GLOB(0x161aa34)my %file = (); 
     143 
     144}}}