perl - 构建相当小的脚本

Question

我写了很多相当小的 perl 脚本。它们的范围从 10 行到 1,000 行不等，但中位数可能只有 100 行左右。当我开始编写脚本时，我倾向于将内容分解成 block 并创建子例程。结果是我最终写了很多看起来像这样的脚本

sub mkdir {
    ... directory testing logic ...
    ... mkdir ...
}
sub createFile {
    ... check for directory ...
    ... try and create the file, exit if failure ...
}
sub somethingElse {
    .... do stuff with the file that was created ...
}
sub yetAnotherThing {
    ... do even more stuff ...
}

&mkdir;
&createFile;
&somethingElse
&yetAnotherThing

我一直觉得这很奇怪。我喜欢它最终是模块化的，我可以轻松地注释掉某些任务，但我不确定这是构建此类小程序的最佳方式。

我的问题是:

1. 有没有人有任何具体理由说明我不应该以这种方式构建脚本？我没有看到很多其他人这样做，所以我觉得我做错了什么。
2. 谁能建议一种更好的方法来构建较小的脚本？我是否应该完全跳过创建子例程并按顺序写出我希望脚本执行的操作？我是不是想多了？ :)

谢谢!

Answer 1

您所做的是正确的，这被认为是编程中的良好做法。这称为功能分解 - 您将任务分解为更小的功能。

事实上，在这个行业中，人们往往会开始编写大量的内联代码，然后当代码变得难以管理时开始重构代码，使其更像您正在做的事情。

以 CPAN 中的项目为例。他们中的大多数被分解为小功能。事实上，它们中的大多数被进一步分解成相关功能的模块。

这是良好的开端。下一步是编写您可以在代码中使用 的相关函数的.pm 文件。下一步是编写面向对象的代码。