Perl能否支持通过在字符串来调用函数，类似于C的函数指针

finixlei

看代码吧，想知道Perl是否支持类似的功能：
下面代码当然是不对的，但是否支持类似的呢？

1. 
   
2. sub fuc
   
3. {
   
4.         my $str = shift;
   
5.         print "Hello, $str!\n";
   
6. }
   
7. 
   
8. my $cmd_str = "fuc";
   
9. $cmd_str "World";
   

复制代码

flw

C 不支持吧。

wfnh

可以的··不过好像要显示&调用~~~不知道有没有其他方法··不用&行不行~~

1. 
   
2. 
   
3. sub a
   
4. {
   
5. print $a = shift;
   
6. }
   
7. $fun = 'a';
   
8. &$fun('sdfsd');
   

复制代码

finixlei

哦，谢谢各位！先别管C了，函数指针当然不是那么写，先别管它。

试了一下3楼的写法，是可以的，但加上“use strict;”就不行了，请问有啥办法加上use strict也可以呢？

1. 
   
2. sub fuc
   
3. {
   
4.         my $str = shift;
   
5.         print "Hello, $str!\n";
   
6. }
   
7. 
   
8. my $cmd_str = "fuc";
   
9. &$cmd_str("World");
   

复制代码

wfnh

回复 4# finixlei

本来这个就是perl的符号引用~~因为符号引用容易出问题~~strict模式下世不行的·····

所以···一般不这样做···当你需要的时候··可以暂时的打开软引用：
no strict 'refs';
最好再闭合括号里边啦~这样，出了闭合括号又会关闭这个功能~

finixlei

回复 5# wfnh

very good！ Thanks！

1. 
   
2. use strict;
   
3. 
   
4. sub fuc
   
5. {
   
6.         my $str = shift;
   
7.         print "Hello, $str!\n";
   
8. }
   
9. 
   
10. my $cmd_str = "fuc";
    
11. 
    
12. no strict 'refs';
    
13. &$cmd_str("World");
    
14. $cmd_str->("CAT");
    
15. use strict;
    

复制代码

nuclearxin

相当于
soft reference
为啥 strict 要限制它呢？
soft reference 只能访问 symbal table的dd
那个表必须是 global 的。
所以看你的那个 函数定义的位置了
在作外层的main里 当然可以了

nuclearxin

...擦
是不是所有sub 都要进入 symbal table呢