如何自动整理Perl源代码？

Question

我公司的一只猫走过键盘,留下了有效的1000多行可执行Perl代码供我维护.

感谢Perl的TMTOWTDI理念,我发现自己正在搜索Google,以了解她所生成的每一行代码.

为了增加我的痛苦,代码没有缩进,并且在一行中发现两个语句频繁出现,无法确定循环是外/内.

如何自动将此Perl代码置于健全状态？是的,我打赌会有一些CPAN模块可以做到这一点.一些外部工具怎么样？有线索吗？

Answer 1

Perl::Tidy可以做到这一点,等等.它通常通过perltidy它安装的可执行文件使用.

Answer 2

Perl Tidy是一个非常有用的实用程序.它配备了一系列选项.http://perltidy.sourceforge.net/和http://perltidy.sourceforge.net/tutorial.html上
有一些指导.

例如,-i=8覆盖要缩进的空格数(默认值= 4) -bl并将大括号放在新行上:

 if ( $something )
 {
     print ".....";
 }

我建议玩一个代码副本,看看你最喜欢哪个选项.

您可以从CPAN安装它,也可以在http://perltidy.sourceforge.net/上更改其他选项,具体取决于您的平台和品味!

Answer 3

以下是如何使用perltidy非默认行为的几个示例:

• 启用cuddled-elses(例如} else {),将所有.pl文件的行长度限制为300个字符

  $ perltidy -ce -l=300 *.pl
  

• 保持旧的逗号断点,冻结script.pl中的现有空格

  $ perltidy -boc -fws script.pl
  

• 备份脚本并就地修改script1.pl,script2.pl

  $ perltidy -b script1.pl script2.pl
  

• 通过剥离尽可能多的空白来"混淆"脚本.

  $ perltidy --mangle scipt.pl