Hash ref while "strict refs" in use

wzh330

各位牛人，帮忙看一下 这个提示错误的信息怎么处理呢

use strict;
my ( %param_item) = ();
open ( HANDLE, "$Start_dir") || die "can not open the file $Start_dir : $! \n";   $Start_dir是一个文件
while ( <HANDLE> ) {
  if ( m/（Random）/i ) {
    $param_item{'s_var1'} = $1;     在这里就报题目的错误，是怎么回事呢。          Can't use string <"Random"> as a hash ref while "strict refs" in use???
    $param_item{'s_var1'}->{'file'} = "taf09a.htm";
  }
}

谢谢了   难道hash不能直接赋值吗？   不太懂啊

MMMIX

wzh330 发表于 2012-03-28 12:24
    $param_item{'s_var1'} = $1;     在这里就报题目的错误，是怎么回事呢。          Can't use string <"Random"> as a hash ref while "strict refs" in use???
    $param_item{'s_var1'}->{'file'} = "taf09a.htm";

错误其实是下一行代码引起的。

wzh330

回复 2# MMMIX


    下一行代码，也是赋值啊  有什么问题呢

yinyuemi

回复 3# wzh330


    $param_item{'s_var1'}={$1}

jason680

回复 1# wzh330

please write down what you want?

or you just want it as below?
    $param_item{$1}->{'file'} = "taf09a.htm";   

wzh330

回复 5# jason680


    我只是想定义一个hash然后给里面的key赋值

MMMIX

wzh330 发表于 2012-03-28 12:38
回复 2# MMMIX

下一行代码，也是赋值啊  有什么问题呢

是赋值没错，但关键是给什么东西赋值。

1. 
   
2. $param_item{'s_var1'}->{'file'} = "taf09a.htm";
   

复制代码

这行代码的意思是，把 $param_item{'s_var1'} 的值当作一个到 hash 的引用，可你前面给它赋的值是个字符串，这就是那个报错的意思。

kk861123

wzh330 发表于 2012-03-28 12:58
回复 5# jason680

1. $param_item{'s_var1'}->{'file'} = "taf09a.htm";
   

复制代码

这句是给hash的hash赋值

wzh330

回复 7# MMMIX


    嗯 明白你说的意思了 非常感谢啊。
    知道错在哪里了 呵呵