请教一个程序顺序问题

lxb456811

    有个程序，初始化全局变量有几百行。我想把我运行的程序放在全局编程前面，这样方便查找，怎么弄？

如下，我想先运行two部分，因为都是全局变量。但是one放在two前面，因为这样全局变量太多，不然我发给同学后，他要找很久，有没有什么办法？



####one
$aaa="ATGC";
$bbb="TCGA";
get_tm($aaa, $bbb);

####two
my $a=0;
my $b=1;
my $c=2;
my $d=3;
...
...
...

####three
sub get_tm{
...
}

lxb456811

版主，只能靠你了

zhlong8

想要改变程序运行顺序只有 BEGIN INIT CHECK 这些块。在最开始声明下变量然后 TWO 用 BEGIN 圈起来

zhlong8

或者用 vim 把 TWO 部分给折叠起来

lxb456811

回复 4# zhlong8


    这样是可以，但是这样感觉不是很好吧，我记得有begin什么的应该也能实现。  其实我想过用子函数，关键是这是全局变量，括起来就不是全局变量了。

lxb456811

回复 3# zhlong8


    begin圈起来也失去了全局变量的效果吧？如果在前面定义，那还是很大一块，况且还有哈希，还有嵌套的变量，也不简单。

    实在不行，只能做成包了。。。。。。

    非常感谢zhlong8一直帮助。

zhlong8

回复 5# lxb456811


    用 BEGIN 要注意作用域的问题，必须要在开始声明除非你不用 strict。可以考虑重构下提供个 OO 的接口把初始化部分给抽象出来也方便重用

Perl_Er

1. goto label2;
   
2. 
   
3. label1:
   
4. my $par1 = 111;
   
5. 
   
6. goto label3;
   
7. 
   
8. label2:
   
9. my $par2 = 222;
   
10. 
    
11. goto label1;
    
12. 
    
13. label3:
    
14. my $par3 = 333;
    

复制代码

回复 1# lxb456811


   

lxb456811

回复 7# zhlong8

thanks.
   

lxb456811

回复 8# Perl_Er


    这代码很有趣，学习了，非常好。。。。。。。
    不过看起来不专业，做项目不敢这样搞来搞去，好像在讲笑话。。。。。
    非常感谢您的帮助，谢谢，学习了