問個(gè)關(guān)于常量訪問的問題

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的值）怎么實(shí)現(xiàn)呢？
    
13. print "$com{gtype}\n" if $com{gtype};
    
14. 
    
15. 
    

復(fù)制代碼

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

gsging

對(duì)于常量訪問,是不需要加雙引號(hào)的.

flw

又見符號(hào)引用。
死也不告訴你們?cè)趺醋觥＝心悴挥?hash。

sotol

想用PERL構(gòu)建一個(gè)化工管道元件的基礎(chǔ)類，然后用它實(shí)現(xiàn)化工三維設(shè)計(jì)數(shù)據(jù)庫的操作
困難重重哈

我問這個(gè)問題的背景是：
化工管件的端面數(shù)是不一樣的，比如書ELBO有三個(gè)，而TEE有兩個(gè)
想根據(jù)管件的類型來動(dòng)態(tài)生成三個(gè)或者兩個(gè)端面，具體類型在CLASS C才能確定的
第一層：CLASS A 管件基本描述類， CLASS B 管件端面信息類；
第二層：CLASS C 具體管件的某個(gè)管件（繼承A ,use B）。

PS:有點(diǎn)C++的基礎(chǔ)，第一次使用PERL實(shí)現(xiàn)面向?qū)ο缶幊蹋�稍微看了看了一下《PERL語言編程》。

flw

那好，我來問你，如果是 C++，你該怎么做？

sotol

按照我問到的那種思路方式，用C++也是實(shí)現(xiàn)不了的,明白你的意思是叫我用hash代替constant使用。PERL實(shí)現(xiàn)面向?qū)ο蟾愕妙^都有點(diǎn)暈了，可能是沒有充分明白它的思想吧。要找點(diǎn)比較典型一點(diǎn)的代碼參考一下才行。謝謝版主！

cnncc

樓主的問題解決沒？

我最近也遇到跟樓主一樣的問題，就是需要根據(jù)一個(gè)外部傳入的變量來訪問一個(gè)常量，該變量的值是未知的，是其中一個(gè)常量名。

在樓主的代碼中，%com 應(yīng)該是不存在的，只是一個(gè)示例，目的也是通過一個(gè)變量來訪問常量。

hp_truth

回復(fù) 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

回復(fù)  sotol


試試這樣:


#!/usr/local/bin/perl5

use warnings;
use strict;

use constan ...
hp_truth 發(fā)表于 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";

復(fù)制代碼

1. 1
   
2. 1

復(fù)制代碼

二樓說的不用引號(hào)不就可以了嗎?