探讨一下：如何在一个几千行的perl脚本中快速找到总入口？

吹风筒

如何在一个几千行的perl程序中快速找到主程序，总入口？
我是新手，手头有个几千行的perl脚本，
里面代码大概是这样的

1. use strict;
   
2. ...
   
3. sub usag
   
4. {...}
   
5. ...
   
6. $var{DBServer} and $var{DBName} and $var{DBUser}
   
7. ...
   
8. 
   
9. 
   
10. sub main() {}
    
11. 1....
    
12. 2....
    
13. sub getRunStatusId{
    
14. return 0;
    
15. }

复制代码

我的疑问是 perf是否和c一样 程序入口是main函数呢
但是，如果是main函数的话 main里面是空的也不合理啊
莫非后面的1.2.等是main里面的内容？
求指教，吾乃新手 若问题问的太浅 请勿见怪！

吹风筒

补充：这里的main究竟是不是函数入口呢？如果不是 应该如何快速定位？

iakuf

在普通的 Perl 中，程序是从程序开头然后向后执行的（事件驱动之类除外）。所以并不需要 main 函数。使用 main 函数是很多从 C 转过来的新人，喜欢这样。

吹风筒

回复 3# iakuf


    介么说，无需使用main也可以；
但是 能否跟我说说上面我的代码 的入口究竟是在哪里呢？
还有，从上面的格式来说，1...2...这些内容是否是属于函数 sub main（）里面的内容？

jason680

回复 4# 吹风筒


main 无内容

1....
2....
均在外面

吹风筒

回复 5# jason680


    那么这段代码就是从第1行按顺序 从上往下执行下来咯？

jason680

回复 6# 吹风筒

yes, but......

置顶文: 响应CU号召建Perl版知识索引树

看书吧...

liuqiao007

把程序的sub 全部去掉   然后从上到下看到就是入口

tkgp

回复 1# 吹风筒

perl  -d 看第一步从哪里开始

flw

光看见总入口有个毛用。
第一行就是总入口。