当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 4 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : [问题]请问这段perl代码哪有问题?
帖子发表于 : 2008-02-01 14:23 

注册: 2006-05-14 13:31
帖子: 25
送出感谢: 0 次
接收感谢: 0 次
代码:
#!/usr/bin/perl

my %sue = (
   "name" => "sue",
   age => 45,
);
%john = (
              "name" => "john",
   age => 20,
   );
%peggy = (
   "name" => "peggy",
   age => 16,
   );
#$sue{children} = [\%john, \%peggy];
@son = [\%john, \%peggy];
$sue{children} = \@son;
print "hello  $sue{children}->[1]->{age}";

为什么得不到我想要的值,怎样才能实现打印该值??谢谢


页首
 用户资料  
 
2 楼 
 文章标题 : Re: [问题]请问这段perl代码哪有问题?
帖子发表于 : 2008-02-06 2:03 

注册: 2006-05-01 12:29
帖子: 60
地址: zju
送出感谢: 0 次
接收感谢: 0 次
enzo1985 写道:
代码:
#!/usr/bin/perl

my %sue = (
   "name" => "sue",
   age => 45,
);
%john = (
              "name" => "john",
   age => 20,
   );
%peggy = (
   "name" => "peggy",
   age => 16,
   );
#$sue{children} = [\%john, \%peggy];
@son = [\%john, \%peggy];
$sue{children} = \@son;
print "hello  $sue{children}->[1]->{age}";

为什么得不到我想要的值,怎样才能实现打印该值??谢谢

问题出在这一句
代码:
@son = [\%john, \%peggy];

你在这里多引用了一层,按照你的意思,你想造一个引用数组@son
正确的方法是
代码:
@son = (\%john, \%peggy);


ps:最好加上
代码:
use strict;
use warnings;


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2008-02-06 2:07 

注册: 2006-05-01 12:29
帖子: 60
地址: zju
送出感谢: 0 次
接收感谢: 0 次
或者你直接将匿名数组赋值给hash也是可以的
代码:
#!/usr/bin/perl
use strict;
use warnings;
my %sue = (
   "name" => "sue",
      age => 45,
      );
my %john = (
      "name" => "john",
       age => 20,
        );
my %peggy = (
     "name" => "peggy",
      age => 16,
   );
#$sue{children} = [\%john, \%peggy];
$sue{children} =[\%john, \%peggy];
print "hello  $sue{children}->[1]->{age}";


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2008-02-07 0:03 

注册: 2006-05-14 13:31
帖子: 25
送出感谢: 0 次
接收感谢: 0 次
的确是那个地方的问题,非常感谢


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 4 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译