求解perl中的$$问题

xjqun1122

在perl中遇到一个问题：

no strict;
my $A = 'B';

my $B = 10;

print $$A;

这个时候得到的$$A是空。

代码怎么写才能得到值10呢？


谢谢~

grshrd49

$$不是系统变量嘛？输出当前脚本的进程号pid

yybmsrs

our $B = 10;

xjqun1122

问题解决了，非常感谢，正在研究区别~~~回复 3# yybmsrs


   

xjqun1122

我只是想得到一个值回复 2# grshrd49


   

bikong0411

perl -e '$a="b";$b=10;print ${$a};'

xjqun1122

我用our解决了这个问题。
感谢你的回复~

回复 6# bikong0411


   

registcn

为什么our就可以？另外，请楼主推荐本书吧！perl的，入门的骆驼书看过了，算是有基础回复 7# xjqun1122


   

qq27898

回复 8# registcn


    多在论坛里转悠转悠，把别人写的程序研究研究，跟着别人学习吧

dqw233

回复 8# registcn


    perl里面可以通过字符串访问包变量
    像our abc;${'abc'} = 1这样。

不过use strict时禁止这样做，你可以通过no strict 'refs'打开这个限制。