perl新手,请教一个%hash问题,感谢高手指点迷津

howdoyoudoworld

#! /usr/bin/perl
use strict;
use warnings;

my %hash;
dbmopen(%hash,"hi",0666)||die "cannot open!";
$hash{"cache"}=['11','2','4','5','6'];
while (my ($key,$val)= each(%hash))
{
print $key."=".$hash{$key}[0];
}
dbmclose(%hash);
老是显示Can't use string ("ARRAY(0x3f3db0)" as an ARRAY ref while "strict refs" in use at 这行print $key."=".$hash{$key}[0];

howdoyoudoworld

在线等..

黑色阳光_cu

hash的key只能是字符串，你把一个引用当key，那存下来的就是那个引用的字符串表示形式。


dbmopen我没有用过。

howdoyoudoworld

回复 3# 黑色阳光_cu


谢谢   
但这个key "cache"不是字符串么？

黑色阳光_cu

回复  黑色阳光_cu


谢谢   
但这个key "cache"不是字符串么？
howdoyoudoworld 发表于 2010-08-24 17:08

   
不明白你意思。鸡同鸭讲了~

flw

dbm 里面不能存引用。

climby

不谈代码的逻辑，单从警告来看。
因为你使用了use strict; 系统会要求变量先声明后使用，如果使用 $hash{$key}[0] 这种形式，系统会认为没有声明数组，却使用了数组的元素。所以应该改成使用引用的方式来访问数组元素。

1. 
   
2. #! /usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %hash;
   
7. dbmopen(%hash,"hi",0666)||die "cannot open!";
   
8. $hash{"cache"}=['11','2','4','5','6'];
   
9. while (my ($key,$val)= each(%hash))
   
10. {
    
11. print $key."=".$hash{$key} -> [0];   # 使用引用的方式调用数组元素
    
12. }
    
13. dbmclose(%hash);
    

复制代码

howdoyoudoworld

回复 6# flw


我想把一些信息例如$hash{'cache'}=['1','2','3'] ..$hash{'file'}=['4','5','6']存入dbm中，以后再打开dbm提取$hash{'cache'}[0]得到1使用..请问怎么弄..
是不是这样：

1. #将hash存入dbm中
   
2. dbmopen(%hash,"hi",0666)||die "cannot open!";
   
3. $hash{"cache"}=['11','2','4','5','6'];
   
4. dbmclose(%hash);
   
5. 
   
6. #读取hash
   
7. dbmopen(%hash,"hi",0666)||die "cannot open!";
   
8. while (my ($key,$val)= each(%hash))
   
9. {
   
10. print $key."=".$hash{$key} [0];
    
11. }
    
12. dbmclose(%hash);

复制代码

请各位大牛哥明示..

howdoyoudoworld

回复 7# climby


    貌似还显示Can't use string ("ARRAY(0x3f3db0)" as an ARRAY ref while "strict refs" in use at...

Mr-Summer

呃，搜出大大的老贴来了
http://bbs2.chinaunix.net/thread-792340-1-1.html