求助： 文件名(Var)对应文件内容(array)，如何存入hash

nine8

请教大家一个问题， 假如我有多个文件， 每个文件的内容存入对应名字的 array中，最后将 文件名作为 key, array ref作为 value存入 hash中，该如何做呢?

下面是我写的代码，提示有问题：Can't use string ("adder") as an ARRAY ref while "strict refs"

代码如下：

1. 
   
2. # declare
   
3.     my %filetext_hash;
   
4. 
   
5.     # get the array reference of file list
   
6.     my $filelist_ref = shift;
   
7. 
   
8.     # read in the file content
   
9.     for my $filename (@$filelist_ref) {
   
10.         my $module_name = $filename;
    
11.         $module_name =~ s/^([\w][\w\d]*)\.v$/$1/;
    
12. 
    
13.         open FH, "$filename" or die "Open Failed.$!";
    
14.         while (<FH>) {
    
15.             my $line = $_;
    
16.             push @{$module_name}, $line;
    
17.         }
    
18.         close FH;
    
19.         # Save in hash, filename=>file content
    
20.         $filetext_hash{$module_name} = \@{$module_name};   
    
21.     }

复制代码

yashiro_lj

应该是传进入的参数有问题，你看看$filelist_ref是不是期望的array reference？

nine8

感觉好想事不能将 变量作为 arry名吗？

是不是 不能 @{$array_name}这样？ 不知道该怎么做呢？

yashiro_lj

如果$array_name是一个array的reference就能这样做，其他情况下不推荐这么干

nine8

$array_name 只是这变量 ，所以这里不知道怎么处理了

就是想读取文件的内容放入 array, 但是 文件名不确定，需要通过参数来获取，这样就不知道该怎么声明array了