[已解决]perl子程序名可以用变量代替吗

hwcomcn

以下的代码我不加strict就不会报错，正常执行，加了strict就报错，中途跳出，错误信息：thread failed to start: Can't use string ("proj_001") as a subroutine ref while "strict refs" in use at thread_02.pl line xxx.
perl子程序名可以用变量代替吗？如何修改？
（必须要加strict，因为程序比较大，需要严格语法检查，下面只是为了举例说明，实际情况有更多的proj_xxx，所以需要用数组来存储子程序名）

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. 
   
6. my @sublist = ("proj_001","proj_002","proj_003","proj_004","proj_005","proj_006","proj_007","proj_008");
   
7. 
   
8. while(@sublist>0)
   
9. {
   
10.   my $infosub = shift @sublist;
    
11.   &$infosub;
    
12. 
    
13. }
    
14. 
    
15. 
    
16. sub proj_001 {
    
17.     print "in sub proj_001","\n";
    
18. }
    
19. sub proj_002 {
    
20.     print "in sub proj_002","\n";
    
21. }
    
22. sub proj_003 {
    
23.     print "in sub proj_003","\n";
    
24. }
    
25. sub proj_004 {
    
26.     print "in sub proj_004","\n";
    
27. }
    
28. sub proj_005 {
    
29.     print "in sub proj_005","\n";
    
30. }
    
31. sub proj_006 {
    
32.     print "in sub proj_006","\n";
    
33. }
    
34. sub proj_007 {
    
35.     print "in sub proj_007","\n";
    
36. }
    
37. sub proj_008 {
    
38.     print "in sub proj_008","\n";
    
39. }
    

复制代码

stanley_tam

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. 
   
6. my @sublist = (\&proj_001, \&proj_002, \&proj_003, \&proj_004, \&proj_005, \&proj_006, \&proj_007, \&proj_008);
   
7. 
   
8. while(@sublist>0)
   
9. {
   
10.   my $infosub = shift @sublist;
    
11.   $infosub->();
    
12. 
    
13. }
    
14. 
    
15. 
    
16. sub proj_001 {
    
17.     print "in sub proj_001","\n";
    
18. }
    
19. sub proj_002 {
    
20.     print "in sub proj_002","\n";
    
21. }
    
22. sub proj_003 {
    
23.     print "in sub proj_003","\n";
    
24. }
    
25. sub proj_004 {
    
26.     print "in sub proj_004","\n";
    
27. }
    
28. sub proj_005 {
    
29.     print "in sub proj_005","\n";
    
30. }
    
31. sub proj_006 {
    
32.     print "in sub proj_006","\n";
    
33. }
    
34. sub proj_007 {
    
35.     print "in sub proj_007","\n";
    
36. }
    
37. sub proj_008 {
    
38.     print "in sub proj_008","\n";
    
39. }

复制代码

q1208c

我用过 hash, 数组应该一样吧.

stanley_tam

貌似这样也行{:3_193:}

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. 
   
6. my @sublist = ("proj_001","proj_002","proj_003","proj_004","proj_005","proj_006","proj_007","proj_008");
   
7. 
   
8. $_ = \&{$_} for @sublist;
   
9. 
   
10. while(@sublist>0)
    
11. {
    
12.   my $infosub = shift @sublist;
    
13.   &$infosub;
    
14. 
    
15. }
    
16. 
    
17. 
    
18. sub proj_001 {
    
19.     print "in sub proj_001","\n";
    
20. }
    
21. sub proj_002 {
    
22.     print "in sub proj_002","\n";
    
23. }
    
24. sub proj_003 {
    
25.     print "in sub proj_003","\n";
    
26. }
    
27. sub proj_004 {
    
28.     print "in sub proj_004","\n";
    
29. }
    
30. sub proj_005 {
    
31.     print "in sub proj_005","\n";
    
32. }
    
33. sub proj_006 {
    
34.     print "in sub proj_006","\n";
    
35. }
    
36. sub proj_007 {
    
37.     print "in sub proj_007","\n";
    
38. }
    
39. sub proj_008 {
    
40.     print "in sub proj_008","\n";
    
41. }

复制代码

substr函数

回复 4# stanley_tam

谢谢大神，谢谢
   

hwcomcn

谢谢大神们
2楼，4楼都都正解

但又遇到新问题：
普通数组可以定义成my $xxx : shared (比如我要同时多进程远程登陆多台主机，想并行登陆，还需要进程间共享变量)
普通数组比如

1. my @sublist : shared = ("proj_001","proj_002","proj_003","proj_004","proj_005","proj_006","proj_007","proj_008");

复制代码

是不会出错的
但是下面的两个若加上shared会报错

1. #my @sublist = (\&proj_001, \&proj_002, \&proj_003, \&proj_004, \&proj_005, \&proj_006, \&proj_007, \&proj_008);
   
2. my @sublist : shared = (\&proj_001, \&proj_002, \&proj_003, \&proj_004, \&proj_005, \&proj_006, \&proj_007, \&proj_008);

复制代码

或者

1. #my @sublist = ("proj_001","proj_002","proj_003","proj_004","proj_005","proj_006","proj_007","proj_008");
   
2. #$_ = \&{$_} for @sublist;
   
3. my @sublist : shared = ("proj_001","proj_002","proj_003","proj_004","proj_005","proj_006","proj_007","proj_008");
   
4. $_ = \&{$_} for @sublist;

复制代码

贴上代码：

1. #!/usr/bin/perl
   
2. use warnings;
   
3. #use strict;
   
4. use threads;
   
5. use threads::shared;
   
6. 
   
7. #my @sublist : shared = (\&proj_001, \&proj_002, \&proj_003, \&proj_004, \&proj_005, \&proj_006, \&proj_007, \&proj_008);
   
8. my @sublist  = (\&proj_001, \&proj_002, \&proj_003, \&proj_004, \&proj_005, \&proj_006, \&proj_007, \&proj_008);
   
9. 
   
10. 
    
11. my $t1 = threads->create( \&thread_a );
    
12. my $t2 = threads->create( \&thread_b );
    
13. 
    
14. 
    
15. 
    
16. sub thread_a
    
17. {
    
18.   while(@sublist>0)
    
19.   {
    
20.     my $infosub = shift @sublist;
    
21.     $infosub->();
    
22.     sleep 2;
    
23.   }
    
24. }
    
25. 
    
26. sub thread_b
    
27. {
    
28.   while(@sublist>0)
    
29.   {
    
30.     my $infosub = shift @sublist;
    
31.     $infosub->();
    
32.     sleep 2;
    
33.   }
    
34. }
    
35. 
    
36. $t1->join();
    
37. $t2->join();
    
38. 
    
39. 
    
40. sub proj_001 {
    
41.     print "in sub proj_001","\n";
    
42. }
    
43. sub proj_002 {
    
44.     print "in sub proj_002","\n";
    
45. }
    
46. sub proj_003 {
    
47.     print "in sub proj_003","\n";
    
48. }
    
49. sub proj_004 {
    
50.     print "in sub proj_004","\n";
    
51. }
    
52. sub proj_005 {
    
53.     print "in sub proj_005","\n";
    
54. }
    
55. sub proj_006 {
    
56.     print "in sub proj_006","\n";
    
57. }
    
58. sub proj_007 {
    
59.     print "in sub proj_007","\n";
    
60. }
    
61. sub proj_008 {
    
62.     print "in sub proj_008","\n";
    
63. }
    

复制代码

第7行和第8行的注释换一下就报错
想要的结果是每个进程执行一遍，不是执行2遍

hwcomcn

不好意思，可能浏览器多刷新一次，多发了一个回帖，见6楼

zhlong8

threads::shared 文档中说只能 share 简单的 scalar（应该就数字和字符串） array hash 及它们的引用，函数引用是不可以的。

你还是用多进程模型吧

hwcomcn

好。我开始学习下perl的多线程。大骆驼的16，17章是讲这个的。

q1208c

楼主能说明一下你要在多台主机上做什么事么? 非要并行这么严格?