求救：问什么存进去的数据取不出来？

yjh777

my @bar_list;
share(@bar_list);

    if ($cmd eq "register") {
        printf("%d, %s\n", $port, inet_ntoa($packedIp));
        $bar_list[$barId] = share( @{[ $port, $packedIp, "time" ]} );
        printf("%d, %x\n", $bar_list[$barId][0], $bar_list[$barId][1]);
    }

输出结果
7777, 127.0.0.1
0, 0

为什么读 $bar_list[$barId][0] 值是0， 而不是赋进去的7777
这种赋值方法有问题吗？ $bar_list[$barId] = share( @{[ $port, $packedIp, "time" ]} );


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


[ 本帖最后由 yjh777 于 2009-9-25 01:00 编辑 ]

ulmer

原帖由 yjh777 于 2009-9-24 13:29 发表
    ...
    printf("%d, %s\n", $port, inet_ntoa($packedIp));

    ....
       Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at ./svrp_rtmd.pl line 36.
...

Do you understand this error message in English?

pls check the value from  $packedIp!

shaneqi

参数数量不对。

yjh777

原帖由 ulmer 于 2009-9-24 16:10 发表


Do you understand this error message in English?

pls check the value from  $packedIp!

请仔细看看我问的问题！！！

我问的就是我把正确的值$packeIp通过这种方式赋值到 $bar_list[$barId][2] 中
        $bar_list[$barId] = share( @{[ $port, $packedIp, "time" ]} );
但是我通过 $bar_list[$barId][2] 取值时取不到，就是想问问大家为什么取不到？？？

dahe_1984

你这里share 是什么意思啊？

yjh777

原帖由 dahe_1984 于 2009-9-25 11:43 发表
你这里share 是什么意思啊？

多线程共享。

我也是在文档里查的，不知道是不是用错了；大家都帮看看，会的给指导指导啊！！

wxlfh

有时候态度很重要，比如谦虚一点，毕竟是自己不懂来请教别人......

你说，对么？楼主，呵呵

yjh777

原帖由 wxlfh 于 2009-9-26 07:21 发表
有时候态度很重要，比如谦虚一点，毕竟是自己不懂来请教别人......

你说，对么？楼主，呵呵

哦 谢谢提醒，太着急了，自己描述不清楚还怪别人真是不应该，道歉道歉。
其实是很虔诚的来发帖求助的，非常感谢大家热心回复，

问题还没有解决，那个 share (@{ [ ] }) 用法是不是有问题，为什么赋值后取值不到？还望各位大牛不吝赐教，谢谢啦。