Perl 模块 Getopt::Std 和 Getopt::Long

朱雀 2021-10-20 00:14 382阅读 0赞

示例程序:

getopt.pl;

<table> 
 <tbody> 
  <tr> 
   <td><code>2</code></td> 
   <td><code>#use strict;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>3</code></td> 
   <td><code>use</code> <code>Getopt::Std;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>5</code></td> 
   <td><code>getopts(</code><code>'a:b:c'</code><code>);</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>6</code></td> 
   <td><code>print</code> <code>"opt_a =&gt;;$opt_a\n"</code> <code>if</code> <code>$opt_a</code><code>;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>7</code></td> 
   <td><code>print</code> <code>"opt_b =&gt;;$opt_b\n"</code> <code>if</code> <code>$opt_b</code><code>;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>8</code></td> 
   <td><code>print</code> <code>"opt_c =&gt;;$opt_c\n"</code> <code>if</code> <code>$opt_c</code><code>;</code></td> 
  </tr> 
 </tbody> 
</table>

注释:'a:b:c',a和b后有冒号,表示-a,-b后面要跟参数.c后面没有冒号,表示-c后面不带参数.

而且-a,-b后所跟的参数分别赋给变量$opt\_a和$opt\_b,对于变量$opt\_c,若命令行加了-c,则$opt\_c=1,否则为0.

如:

perl getopt.pl -a aa -b bb -c cc

显示:

opt\_a =>;aa  
opt\_b =>;bb  
opt\_c =>;1

如:

perl getopt.pl -a aa -b bb  
opt\_a =>;aa  
opt\_b =>;bb

(因为加了if判断,所以$opt\_c没有显示);

上面的例子,用Getopt::Long可以这样实现

上面的例子，用Getopt::Long可以这样实现

getoptions.pl

<table> 
 <tbody> 
  <tr> 
   <td><code>2</code></td> 
   <td><code>use</code> <code>Getopt::Long;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>4</code></td> 
   <td><code>GetOptions(</code><code>"a=s"</code><code>=&gt;\</code><code>$opt_a</code><code>,</code><code>"b|opt_b:i"</code><code>=&gt;\</code><code>$opt_b</code><code>,</code><code>"c"</code><code>=&gt;\</code><code>$opt_c</code><code>);</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>5</code></td> 
   <td><code>print</code> <code>"opt_a =&gt;;$opt_a\n"</code> <code>if</code> <code>$opt_a</code><code>;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>6</code></td> 
   <td><code>print</code> <code>"opt_b =&gt;;$opt_b\n"</code> <code>if</code> <code>$opt_b</code><code>;</code></td> 
  </tr> 
 </tbody> 
</table>

<table> 
 <tbody> 
  <tr> 
   <td><code>7</code></td> 
   <td><code>print</code> <code>"opt_c =&gt;;$opt_c\n"</code> <code>if</code> <code>$opt_c</code><code>;</code></td> 
  </tr> 
 </tbody> 
</table>

a=s表示可以用-a aa的形式,即变量-a 类型是字符串
    b|opt_b:i表示可以用-b或者-opt_b来取得变量,类型为整型
    c表示如果有-c的参数值则$opt_c等于1,否则等于0
    
    其中
    s表示字符串,i表整型,f表示浮点型
    =表示要有参数值或者没有这个参数如:perl getoptions.pl -a aa -b bb或者perl getoptions.pl -b bb
    :表示可有参数值也可以没有参数值
    如:
    perl getoptions.pl -a aa -b 2 -c cc
    opt_a =>;aa
    opt_b =>;2
    opt_c =>;1

转载于:https://www.cnblogs.com/jasonliu/archive/2011/10/27/2226489.html