在Perl中实现CLI工具的最佳实践是什么？
我正在使用Perl实现一个CLI工具。 我们在这里可以遵循哪些最佳实践？您应该使用这些实践来使代码可重用且易于理解。在Perl中实现CLI工具的最佳实践是什么？,perl,command-line,Perl,Command Line,我正在使用Perl实现一个CLI工具。 我们在这里可以遵循哪些最佳实践？您应该使用这些实践来使代码可重用且易于理解。 应该看看使用POD来记录您的工具，遵循手册页的指导原则；至少包括以下部分：姓名、大纲、描述、作者。一旦有了合适的POD，就可以使用pod2man生成手册页，在控制台上使用perldoc your-script.pl查看文档 使用为您处理命令行选项的模块。我真的很喜欢结合使用这种方式调用--help将显示一条很好的帮助消息 确保脚本在成功与否时返回正确的退出值 下面是一个脚本的小框
应该看看使用POD来记录您的工具，遵循手册页的指导原则；至少包括以下部分：姓名、大纲、描述、作者。一旦有了合适的POD，就可以使用pod2man生成手册页，在控制台上使用perldoc your-script.pl查看文档 使用为您处理命令行选项的模块。我真的很喜欢结合使用这种方式调用--help将显示一条很好的帮助消息 确保脚本在成功与否时返回正确的退出值 下面是一个脚本的小框架，它可以完成所有这些任务：
#!/usr/bin/perl
=head1 NAME
simplee - simple program
=head1 SYNOPSIS
simple [OPTION]... FILE...
-v, --verbose use verbose mode
--help print this help message
Where I<FILE> is a file name.
Examples:
simple /etc/passwd /dev/null
=head1 DESCRIPTION
This is as simple program.
=head1 AUTHOR
Me.
=cut
use strict;
use warnings;
use Getopt::Long qw(:config auto_help);
use Pod::Usage;
exit main();
sub main {
# Argument parsing
my $verbose;
GetOptions(
'verbose' => \$verbose,
) or pod2usage(1);
pod2usage(1) unless @ARGV;
my (@files) = @ARGV;
foreach my $file (@files) {
if (-e $file) {
printf "File $file exists\n" if $verbose;
}
else {
print "File $file doesn't exist\n";
}
}
return 0;
}
#/usr/bin/perl
=标题1名称
简单程序
=总目1概要
简单[选项]。。。文件
-v、 --详细使用详细模式
--帮助打印此帮助消息
其中I是一个文件名。
示例：
simple/etc/passwd/dev/null
=标题1说明
这是一个简单的程序。
=第一作者
我
=切割
严格使用；
使用警告；
使用Getopt:：Long qw（：config auto_help）；
使用Pod：：用法；
退出main（）；
副总管{
#参数解析
我的$verbose；
获取选项(
'verbose'=>\$verbose，
)或POD2用法（1）；
POD2用法（1），除非@ARGV；
我的（@files）=@ARGV；
foreach my$文件（@files）{
如果（-e$file）{
如果$verbose，则printf“File$File exists\n”；
}
否则{
打印“文件$File不存在\n”；
}
}
返回0；
}
5） 将您正在做的事情的逻辑分离到模块中，并尽可能地保留实际的.pl脚本；解析选项、显示帮助、调用基本方法等等。您不可避免地会找到一些您想要重用的东西，这使它变得非常简单 以下几点不是Perl特有的，但我发现许多Perl CL脚本在这些方面存在缺陷：
上有两个模块可以使编写CLI程序变得更容易：
如果你的应用程序是基于Moose的，你也可以看看，最重要的是要有标准选项 不要试图变得聪明，只是简单地保持一致 如何实现这一点也很重要，但只能排在第二位
实际上，这对于所有CLI接口来说都是非常通用的。作为序言，我花了3年时间为一家大型金融公司设计并实现了一个非常复杂的Perl命令行工具集。以下想法基本上是我们团队设计指南的一部分 用户界面