关于perl文件句柄赋值给hash变量的问题

dolinux

大家好，
我在打开一个文件的时候，将文件句柄赋值给hash变量，如下：
1 #!/usr/bin/perl -w
  2 use Data:umper;                                                                                                                                       
  3
  4 my %FH;
  5 open ($FH{nt}, ">>mod.log";
  6
  7 my $fh;
  8 $fh =   $FH{nt};
  9 print $FH{nt} "hello";


用上边的方法写文件的时候提示如下错误：
String found where operator expected at tt.pl line 9, near "} "hello""
        (Missing operator before  "hello"?)
syntax error at tt.pl line 9, near "} "hello""
Execution of tt.pl aborted due to compilation errors.


但是将hash变量在赋值给另外一个变量再写文件的时候就是成功的：
  1 #!/usr/bin/perl -w                                                                                                                                       
  2 use Data:umper;
  3
  4 my %FH;
  5 open ($FH{nt}, ">>mod.log";
  6
  7 my $fh;
  8 $fh =   $FH{nt};
  9 print $fh "hello";


不知这个是啥原理呢？求解释～

jason680

回复 1# dolinux

# you can do this one
print {$FH{nt}} "hello";

dolinux

回复 2# jason680
多谢喽~~
为啥直接pint就不行呢？句柄赋值给hash变量是有啥特殊的呢？


   

jason680

回复 3# dolinux

$ perldoc -f print
       print FILEHANDLE LIST
       print LIST
       print   Prints a string or a list of strings. ...               
               ...
               Note that if you're storing FILEHANDLEs in an array, or if
               you're using any other expression more complex than a scalar
               variable to retrieve it, you will have to use a block returning
               the filehandle value instead:

                   print { $files[$i] } "stuff\n";
                   print { $OK ? STDOUT : STDERR } "stuff\n";

               Printing to a closed pipe or socket will generate a SIGPIPE
               signal.  See perlipc for more on signal handling.

dolinux

回复 4# jason680


    非常感谢，学习了～～