perl文件句柄的问题

179147112

一个关于使用变量作为文件句柄得问题

1. for (1..5){
   
2.   open my $fh.$_, ">$_.txt";  
   
3. }

复制代码

大概意思就是新建5个输入文件，他们得文件句柄要分别不同，后续要做输入，
$fh1对应1.txt, $fh2对应2.txt......

出现错误信息：

1. Can't use string ("1") as a symbol ref while "strict refs" in use at test line 8.
   

复制代码

我又试了给文件句柄变量赋值打开文件，一样得出错：

1. my $fh='aa';
   
2. open $fh, ">123.txt";  

复制代码

1. Can't use string ("aa") as a symbol ref while "strict refs" in use at test line 7.

复制代码

我以前处理过循环使用变量文件句柄处理得，没出现过问题啊，是不是有些地方我记错了？？？

OS：ubuntu 11.10
Perl: 5.12.4

求大神解释具体原理
谢谢

yinyuemi

回复 1# 179147112

1.    my %fh;
   
2. for (1..5){
   
3.       open $fh{$_}, ">$_.txt";  
   
4.     }

复制代码

179147112

回复 2# yinyuemi


    能说说我哪不对吗？？ 我以前也这样处理过，没用指针，也没错过啊？不知道是不是perl自己的原因，求大家试下我的代码出错吗

zhlong8

open 后面跟的变量而不是 FH 这样的 bareword 时要求变量的值必须是 undef，所以一般都是 open my $fh 新声明的变量值显然是 undef。

你的思路是用字符串来访问变量，而不是创建个 container 来依次保存每个句柄，稍微长点的代码很容易重名冲突，在 use strict 下已经不允许这么做了。

179147112

回复 4# zhlong8


    可是你看我第一个程序，都是没赋值的变量啊,open my $fh1,$fh2之类的，为什么也出错呢？？？

zhlong8

回复 5# 179147112


    你不是有 $fh.$_  有个 . 连接字符串吗？相当于 open "1", '>...'

pitonas

谢谢
这个必须赞一个
回复 6# zhlong8


   

179147112

回复 6# zhlong8


    $fh.$_ 不应该是 $fh1吗？？？  为什么忽略了前面的$fh呢？？？

rubyish

回复 8# 179147112
$fh.$_ 不应该是 $fh1吗？


my $fh1 = 'XYZ';
my $fh = 'HELLO';
say $fh . '1';  # HELLO1
say $fh1;    # XYZ
   

wenhq

不错，学习哈。