• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

perl的Getopt::Long和pod::usage

原作者: [db:作者] 来自: [db:来源] 收藏 邀请


代码:

需要显式地定义变量且初始化。例如optionX。

如果没有定义变量且显式初始化,且没有在命令行指定选项,则选项对应的变量将为未定义。

 

#!/bin/perl-5.8.3/bin/perl$
use warnings;$
use strict;$

use Data::Dumper;$
use Getopt::Long;$
use Pod::Usage;$

our $g_opts;
our $optionX=''#if not defined in command line, it will be empty string
sub parse_opts{
    my $result = GetOptions(
                    "optionA=s" => \$g_opts->{'optionA'},#string
                    "optionB=s" => \$g_opts->{'optionB'},#string
                    "optionC=i" => \$g_opts->{'optionC'},#integer
                    "optionD=f" => \$g_opts->{'optionD'},#float
                    "optionX=f" => \$optionX,
                    "optionY=f" => \$optionY,
                    "verbose"   => \$g_opts->{'verbose'},#flag
                    "quiet"     => sub { $g_opts->{'verbose'} = 0 },
                    "help|?"    => \$g_opts->{'help'}
                  );
    if(!($g_opts->{'optionA'})){
        &pod2usage( -verbose => 1);#exit status will be 1
    }
    if($g_opts->{'help'}){
        &pod2usage( -verbose => 1);#exit status will be 1
    }
}

&parse_opts();
print("\n$optionX\n");
print($optionY); #if not defined in command line, it will be undefined
print($g_opts->{"optionB"});

foreach my $key (keys %{$g_opts}){$
  if(!$g_opts->{$key}) {next;} $
  print($key . "=" . $g_opts->{$key} . "\n");$
  }$
$
exit(0);$
$

$
__END__$
$
=head1 NAME$
$
sample - Using Getopt::Long and Pod::Usage$
$
=head1 SYNOPSIS$
$
sample [options] [args ...]$
$
Options: $
$
   -optionA         optionA $
   -optionB         optionB$
   -optionC         optionC $
   -optionD         optionD $
   -verbose         verbose $
   -quiet           noverbose $
   -help            brief help message$
$
=head1 OPTIONS$
$
=over 8$
$
=item B<-help>$
$
Print a brief help message and exits.$
$
=back$
$
=head1 DESCRIPTION$
$
B<This program> will read the given input file(s) and do something$
useful with the contents thereof.$
$
=cut$


 

完! 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Perl对中文的处理问题发布时间:2022-07-22
下一篇:
Perl篇:递归遍历及拷贝文件共享服务器中目录发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap