+ -
当前位置:首页 → 问答吧 → 关于引用的一个初级问题

关于引用的一个初级问题

时间:2011-02-17

来源:互联网

  1. #!/usr/bin/perl -w
  2. use strict;
  3. my $a = "fadhjhafkjhasdkfhksdjahfajhfkasdjhfasdjkfh";
  4. my %hash;
  5. my $b = "name1";
  6. @$hash{$b} = split //, $a;
  7. print "@$hash{$b}\n";
复制代码
我想知道,如何实现,将一个新产生的数组赋值给一个哈希的key;
修改后
  1. #!/usr/bin/perl -w
  2. use strict;
  3. my $a = "fadhjhafkjhasdkfhksdjahfajhfkasdjhfasdjkfh";
  4. my %hash;
  5. my $b = "name1";
  6. $hash{$b} = [split //, $a];
  7. my @a = @$hash{$b};
  8. print "@a\n";
复制代码
它在my @a = @$hash{$b};报错,说什么没定义,我实在看不懂了,
对数组解引用不就是在前面加一个@么?
求路过的大侠指教,谢谢!

作者: 长生天一   发布时间: 2011-02-17

加个大括号  @a = @{$hash{$b}};

作者: qinglangee   发布时间: 2011-02-17