请问是our FH，还是our $FH,还是不用写。

spirit_12

1. our FH;  # 为了能在函数里面也用这个指针，在这个地方定义的话，是写our $FH,还是写our FH，还是不用写这个定义。
   
2. sub abc {
   
3.    print FH "输出abc";
   
4. }
   
5. 
   
6. sub main {
   
7.     my $open_result = open(FH,">$path");
   
8.     abc();
   
9. }
   
10. main;

复制代码

# 为了能在函数里面也用这个指针，在外面地方定义的话，是写our $FH,还是写our FH，还是不用写这个定义。

climby

看你的意思是想把文件句柄作为函数的参数来传递.其实你可以取文件句柄的引用,然后通过引用来传递.看如下代码

1. 
   
2. sub abc {
   
3.    my $file_ref = shift;
   
4.    print $file_ref  "abc";
   
5. }
   
6. 
   
7. sub main {
   
8.     my $open_result = open(FH,">test.txt");
   
9.     my $file_ref =\*FH;    # 新的写法在open时直接就用变量，就像这样 open(my $file_ref, ">test.txt")
   
10.     abc($file_ref);
    
11. }
    
12. 
    
13. main;
    

复制代码

午夜凋零

回复 2# climby

1. my $file_ref = \*FH;

复制代码

这句不太理解。
而且我试了试

1. print {FH} "abc";
   
2. print {*FH} "abc";
   
3. print {\*FH} "abc";

复制代码

输出的结果都是一样的，不过不太理解为什么加了引用以及typeglob时仍是可以的。
请解释一下吧。
谢谢~

zhlong8

因为 print 做了特殊处理，这里水很深还是用 open my $fh 这种的三参数形式最简明，不要用 bareword 或 typeglob

黑色阳光_cu

以前花了几天时间，把这些都搞明白了。