perl如何用变量的值当另一个变量的变量名 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

perl如何用变量的值当另一个变量的变量名

perl如何用变量的值当另一个变量的变量名# Programming - 葵花宝典

h*y2007-11-11 08:11

1 楼

一个哈希数组，在程序运行中自动创建：
$a{b}
其中的a和b希望从别的变量的值中得到，比如当$c="china", $d="heilongjiang"时，
我的这个$a{b}就时$china{heilongjiang}。
我实在是查不到了，教程上没有。老大们请帮忙，谢谢。

s*e2007-11-11 08:11

2 楼

for $b, it is ok, but i do not know for $a
tcl supports that, but i dont't know whether perl supports that.
but anyway, u can use two layer hash.
first hash store the pointer of the second hash

【在 h******y 的大作中提到】

: 一个哈希数组，在程序运行中自动创建：
: $a{b}
: 其中的a和b希望从别的变量的值中得到，比如当$c="china", $d="heilongjiang"时，
: 我的这个$a{b}就时$china{heilongjiang}。
: 我实在是查不到了，教程上没有。老大们请帮忙，谢谢。

h*y2007-11-11 08:11

3 楼

谢谢，的确$b可以，教程上也有，就是那个a不行，加引号圆括号花括号都不行。
我是个新手，指针还没学呢:)

s*e2007-11-11 08:11

4 楼

use two layer hash, it might look like this
my %a;
$a{"heilongjiang"}="haerbin";
my %b;
$b{"china"}=\%a;
print %{$b{"china"}}->{"heilongjiang"};
for reference in perl,
http://affy.blogspot.com/p5be/ch08.htm

【在 h******y 的大作中提到】

: 谢谢，的确$b可以，教程上也有，就是那个a不行，加引号圆括号花括号都不行。
: 我是个新手，指针还没学呢:)

h*y2007-11-11 08:11

5 楼

谢谢，学习学习。

h*y2007-11-11 08:11

6 楼

今天又试验了，发现是可以的。不知道昨天是怎么回事，可能是括号加得不对。
试验的代码如下：
#!/usr/bin/perl
@name=("classmate","worker","boss");
@where=("harbin","changchun","shenyang","tianjin");
$name_number=0;
$where_number=3;
%{$name[0]}=(harbin => "zhao",
changchun => "qian",
shenyang => "sun",
);
print "$classmate{$where[1]}\n";
print "${$name[0]}{shenyang}\n";
${$name[$name_number]}{$where[$where_number]}="li";
print "${$name[$name_number]}{$where[$where_number]}\n";

【在 s***e 的大作中提到】

: use two layer hash, it might look like this
: my %a;
: $a{"heilongjiang"}="haerbin";
: my %b;
: $b{"china"}=\%a;
: print %{$b{"china"}}->{"heilongjiang"};
: for reference in perl,
: http://affy.blogspot.com/p5be/ch08.htm

s*e2007-11-11 08:11

7 楼

nice

【在 h******y 的大作中提到】

: 今天又试验了，发现是可以的。不知道昨天是怎么回事，可能是括号加得不对。
: 试验的代码如下：
: #!/usr/bin/perl
: @name=("classmate","worker","boss");
: @where=("harbin","changchun","shenyang","tianjin");
: $name_number=0;
: $where_number=3;
: %{$name[0]}=(harbin => "zhao",
: changchun => "qian",
: shenyang => "sun",