问个关于常量访问的问题

sotol

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use constant TUBE => 0;
   
6. use constant ELBO => 1;
   
7. 
   
8. my %com = (
   
9. "gtype" => "TUBE",
   
10. );
    
11. print TUBE."\n";
    
12. #想要通过$com{gtype}返回的字符串所代表的常量值控制输出，（比如说常量TUBE的值）怎么实现呢？
    
13. print "$com{gtype}\n" if $com{gtype};
    
14. 
    
15. 
    

复制代码

[ 本帖最后由 sotol 于 2007-12-28 18:52 编辑 ]

gsging

对于常量访问,是不需要加双引号的.

flw

又见符号引用。
死也不告诉你们怎么做。叫你不用 hash。

sotol

想用PERL构建一个化工管道元件的基础类，然后用它实现化工三维设计数据库的操作
困难重重哈

我问这个问题的背景是：
化工管件的端面数是不一样的，比如书ELBO有三个，而TEE有两个
想根据管件的类型来动态生成三个或者两个端面，具体类型在CLASS C才能确定的
第一层：CLASS A 管件基本描述类， CLASS B 管件端面信息类；
第二层：CLASS C 具体管件的某个管件（继承A ,use B）。

PS:有点C++的基础，第一次使用PERL实现面向对象编程，稍微看了看了一下《PERL语言编程》。

flw

那好，我来问你，如果是 C++，你该怎么做？

sotol

按照我问到的那种思路方式，用C++也是实现不了的,明白你的意思是叫我用hash代替constant使用。PERL实现面向对象搞得头都有点晕了，可能是没有充分明白它的思想吧。要找点比较典型一点的代码参考一下才行。谢谢版主！

cnncc

楼主的问题解决没？

我最近也遇到跟楼主一样的问题，就是需要根据一个外部传入的变量来访问一个常量，该变量的值是未知的，是其中一个常量名。

在楼主的代码中，%com 应该是不存在的，只是一个示例，目的也是通过一个变量来访问常量。

hp_truth

回复 1# sotol


试试这样:


#!/usr/local/bin/perl5

use warnings;
use strict;

use constant TUBE => 0;
use constant ELBO => 1;

my %com = ("gtype" => "TUBE");

no strict "refs";
print $com{gtype}(). "\n" if $com{gtype};



In the current implementation, scalar constants are actually inlinable subroutines. As of version 5.004 of Perl, the appropriate scalar constant is inserted directly in place of some subroutine calls, thereby saving the overhead of a subroutine call.

Constants are not private to the lexical scope in which they occur. Instead, they are simply argumentless subroutines in the symbol table of the package issuing the declaration.

cnncc

回复  sotol


试试这样:


#!/usr/local/bin/perl5

use warnings;
use strict;

use constan ...
hp_truth 发表于 2010-04-19 13:18

   
谢谢，这样的确可以，有没有其他更好的办法可以“用变量的值来访问常量”？

yybmsrs

1. use constant TUBE => 1;
   
2. 
   
3. my %com = (
   
4. "gtype" => TUBE
   
5. );
   
6. 
   
7. print TUBE."\n";
   
8. print "$com{gtype}\n";

复制代码

1. 1
   
2. 1

复制代码

二楼说的不用引号不就可以了吗?