我們在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 ("library=s@" => \$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值
您可能感興趣的文章:- PERL腳本 學習筆記
- Perl5 OOP學習筆記
- perl腳本實現限制ssh最大登錄次數（支持白名單）
- Perl使用Tesseract-OCR實現驗證碼識別教程
- perl與shell獲取昨天、明天或多天前的日期的代碼
- 為Java程序員準備的10分鐘Perl教程
- perl批量查詢ip歸屬地的方法代碼
- perl去除重復內容的腳本代碼(重復行+數組重復字段)
- perl中單行注釋和多行注釋使用介紹
- perl腳本學習指南--讀書筆記
