问个关于常量访问的问题

hp_truth

谢谢，这样的确可以，有没有其他更好的办法可以“用变量的值来访问常量”？
cnncc 发表于 2010-04-19 13:37

那就用Readonly模块吧, 不过这个模块速度要慢一些, Readonly::XS 可以加快点速度
这样可以用符号表来访问变量, 可惜是全局变量.

#!/usr/local/bin/perl5

use warnings;
use strict;
use Readonly;

use constant TUBE => 0;
Readonly our $ELBO => 1;

my %com1 = ("gtype" => "TUBE" );
my %com2 = ("gtype" => "ELBO" );

print "$com1{gtype}\n";   # does not work

no strict "refs";
print ${"main::" . $com2{gtype}}, "\n";  # this is ok

cnncc

二楼说的不用引号不就可以了吗?
yybmsrs 发表于 2010-04-19 13:51

   
如果这样，还用常量做什么？不多此一举吗？

前面都说了，%com只是一个示例，实际上是不存在的。

或者换个方式说吧：

$gtype 的 值是 TUBE，如何通过 $gtype 获得 TUBE 这个常量的值？

我这里不写：$gtype = "TUBE"，免得你又叫我拿掉引号

cnncc

那就用Readonly模块吧, 不过这个模块速度要慢一些, Readonly::XS 可以加快点速度
这样可以用符号表来访 ...
hp_truth 发表于 2010-04-19 14:12

   
恩，看来还是第一个方法好些！

这样看来跟调用子方法是一样的

toniz

回复 1# sotol


    {:3_204:}

1. print eval $com{gtype}."\n" if $com{gtype};

复制代码

sotol

Perl的确很强大，真实粉丝也不减