我們在linux常常用到一個程式需要加入引數,現在瞭解一下 perl 中的有關控制引數的模組 Getopt::Long ,比直接使用 @ARGV 的陣列強大多了.我想大家知道在 Linux 中有的引數有二種形式.

•長引數  –help
•短引數   -h
也就是-和–的分別.–表示完整引數.-表示簡化引數.在 Perl 的這個模組中也支援這二種方法.
這要介紹的二 Getopt 其實有二個模組,一個叫 Getopt::Long 一個叫 Getopt::Std.下面就只介紹 Getopt::Long 了.因為這個模組更加強大

Getopt::Long 模組
初始化 Perl命令列中所接受的引數,簡化了命令列引數的解析.下面看程式的例子

複製程式碼程式碼如下:
#!/usr/bin/perl 
use strict; 
use Getopt::Long; 
use Smart::Comments; 

my @libs    = ();  
my %flags   = ();  
my ( $verbose, $all, $more, $diam, $debug, $test, $step); 

GetOptions( 
        'verbose+'  => \$verbose, 
        'more!'     => \$more, 
        'debug:i'   => \$debug, 
        'lib=s'     => \@libs, 
        'flag=s'    => \%flags, 
        'test|t'    => \$test, 
        'all|everything|universe' => $all, 
); 

### $verbose 
### $more 
### $debug 
### $test 
### @libs; 
### %flags

這就是使用的方法,下面是詳細解釋,注意看 GetOptions 中的 => 前面的部分.下面是詳解

•‘verbose+'  接有 + 的選項不接收變數,後面不需要加內容.直接使用就行了,會在每次出現時增加一次變數,就是講命行時在引數中 -verbose -verbose 出現二次時 verbose 的值就會變成 2.
•‘more!'        接有 ! 的選項不接收變數(也就是講後面不需要加引數 –more 來使用就行了),只要命令列中出現了這個引數,就會預設是 1 ,是用來設定開啟和關掉一個功能的>.可以在引數前加 no 變成負的例如-nomore.
•‘flag=s'        接有 = 的字串要求接字串（s）、整數（i）,或者浮點（f）等型別的變數.
•‘debug:i'      接有 : 的選項會接受預設為0或者為空字串的可選變數 
•‘test|t'          接有 | 的選項表示可以給 –test 簡寫為 -t.
•‘lib=s'     => @libs    如果相關聯的變數是個陣列, 如這個地方的 @libs, 那麼選項可以多次出現, 值可以被推到數組裡.
•‘flag=s'    => %flags  如果相關聯的變數是個雜湊, 那麼就要求一個鍵=值（key=value）對, 並被插入到雜湊裡.

備註:
     在匹配引數名的時候,GetOptions 在預設設定下會忽略大小寫,預設引數被簡寫為唯一的最短字串(首字母)（例如,-m 代表 -more. 相同的首字母時,會加上第二個字母來區分)

Getopt 模組的程式使用的方法：

根據上面的例子,比如我們寫了一個程式叫 test.pl .我們只需要在命令列中加如下引數:

複製程式碼程式碼如下: $ ./test.pl  --verbose --verbose -v --more \       --lib='/lib' -l '/lib64' --f a=1 --flag b=2  --debug 2 -t fukai

有點小長,在看看上面的,就會明白意思了.在這個地方,我使用了 Smart::Comment 模組,所以在最下面的 ###  是會輸出這個變數本身的內容的.這也是一個超級強大的模組.我們來看看輸入這些引數後.會輸出什麼內容吧.

複製程式碼程式碼如下:
### $verbose: 3 
### $more: 1 
### $debug: 2 
### @libs: [ 
###          '/lib', 
###          '/lib64' 
###        ] 
### %flags: { 
###           a => '1', 
###           b => '2' 
###         }

在對一下上面輸入的引數,明白了吧.

Getopt 模組的簡單總結

（1. 帶值引數傳入程式內部

※引數型別：整數, 浮點數, 字串

複製程式碼程式碼如下:
GetOptions( 
    'tag=s' => \$tag
); 

‘='表示此引數一定要有引數值, 若改用':'代替表示引數不一定要有引數值
‘s'表示傳遞字串引數, 若為'i'表傳遞整數引數, 若為'f'表傳遞浮點數.

帶值引數使用的方法

複製程式碼程式碼如下:
$ test.pl --tag=string 
$ test.pl --tag string 

（2. 需要傳送多個值的引數到程式中.

比如需要傳幾個值到 @libfiles 中的操作方法.

複製程式碼程式碼如下:
GetOptions ("library=s" => \@libfiles); 
GetOptions ("[email protected]" => \$libfiles); 

引數傳到 @$tag
使用的方法

複製程式碼程式碼如下: $ test.pl --library lib/stdlib --library lib/extlib

（3. 對鍵值對的引數傳遞

有時我們需要傳送一些鍵值對到程式中進行處理,就需要使用到這個功能了.

複製程式碼程式碼如下:
GetOptions ("define=s" => \%defines); 
GetOptions ("define=s%" => \$defines); 

使用的方法

複製程式碼程式碼如下: $ test.pl --define os=linux --define vendor=redhat

  (4. 引數的別名
我們需要引數加個簡寫之類的別名時,可以使用下面的方法

複製程式碼程式碼如下: GetOptions ('length|height=f' => \$length);

第一個名稱為 primary name, 其他的名稱為 alias(可有多個alias名稱) ,當使用hash引數時, 使用primary name作為key值

Storing options values in a hash：

Sometimes, for example when there are a lot of options, having a separate variable for each of them can be cumbersome. GetOptions() supports, as an alternative mechanism, storing options values in a hash.To obtain this, a reference to a hash must be passed as the first argument to GetOptions(). For each option that is specified on the command line, the option value will be stored in the hash with the option name as key. Options that are not actually used on the command line will not be put in the hash, on other words, exists($h{option}) (or defined()) can be used to test if an option was used. The drawback is that warnings will be issued if the program runs under use strict and uses $h{option} without testing with exists() or defined() first。

my %h = ();
GetOptions (\%h, 'length=i');# will store in $h{length}
For options that take list or hash values, it is necessary to indicate this by appending an @ or % sign after the type:
GetOptions (\%h, '[email protected]');# will push to @{$h{colours}}
To make things more complicated, the hash may contain references to the actual destinations, for example:
my $len = 0;
my %h = ('length' => \$len);
GetOptions (\%h, 'length=i');# will store in $len
This example is fully equivalent with:
my $len = 0;
GetOptions ('length=i' => \$len);# will store in $len
Any mixture is possible. For example, the most frequently used options could be stored in variables while all other options get stored in the hash:
my $verbose = 0;# frequently referred
my $debug = 0;# frequently referred
my %h = ('verbose' => \$verbose, 'debug' => \$debug);
GetOptions (\%h, 'verbose', 'debug', 'filter', 'size=i');
if ( $verbose ) { ... }
if ( exists $h{filter} ) { ... option 'filter' was specified ... }