#!/usr/bin/perl
use Getopt::Long;
$Getopt::Long::ignorecase = 0;
my %opt; #声明一个哈希,用于存放从命令行提取到的option
GetOptions
(
\%opt,
'--null',
'--string=s',
'--integer=i',
'--float=f'
);
#执行命令时,可以带下面这几个选项
#-null ,没有参数
#-string ,带参数,参数为字符串类型
#-integer ,带参数,参数为整数类型
#-float ,带参数,参数为浮点类型
if( $opt{'null'})
{
print"opt null exist."."\n";
}
if( $opt{'string'})
{
print"opt string exist:".$opt{'string'}."\n";
}
if( $opt{'integer'})
{
print"opt integer exist:".$opt{'integer'}."\n";
}
if( $opt{'float'})
{
print"opt float exist:".$opt{'float'}."\n";
}
执行后: