在Perl中使用Getopt::Long模塊來(lái)接收用戶命令行參數(shù)
我們?cè)趌inux常常用到一個(gè)程序需要加入?yún)?shù),現(xiàn)在了解一下 perl 中的有關(guān)控制參數(shù)的模塊 Getopt::Long ,比直接使用 @ARGV 的數(shù)組強(qiáng)大多了.我想大家知道在 Linux 中有的參數(shù)有二種形式.
•長(zhǎng)參數(shù) –help
•短參數(shù) -h
也就是-和–的分別.–表示完整參數(shù).-表示簡(jiǎn)化參數(shù).在 Perl 的這個(gè)模塊中也支持這二種方法.
這要介紹的二 Getopt 其實(shí)有二個(gè)模塊,一個(gè)叫 Getopt::Long 一個(gè)叫 Getopt::Std.下面就只介紹 Getopt::Long 了.因?yàn)檫@個(gè)模塊更加強(qiáng)大
Getopt::Long 模塊
初始化 Perl命令行中所接受的參數(shù),簡(jiǎn)化了命令行參數(shù)的解析.下面看程序的例子
#!/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
這就是使用的方法,下面是詳細(xì)解釋,注意看 GetOptions 中的 => 前面的部分.下面是詳解
•‘verbose+' 接有 + 的選項(xiàng)不接收變量,后面不需要加內(nèi)容.直接使用就行了,會(huì)在每次出現(xiàn)時(shí)增加一次變量,就是講命行時(shí)在參數(shù)中 -verbose -verbose 出現(xiàn)二次時(shí) verbose 的值就會(huì)變成 2.
•‘more!' 接有 ! 的選項(xiàng)不接收變量(也就是講后面不需要加參數(shù) –more 來(lái)使用就行了),只要命令行中出現(xiàn)了這個(gè)參數(shù),就會(huì)默認(rèn)是 1 ,是用來(lái)設(shè)置打開和關(guān)掉一個(gè)功能的>.可以在參數(shù)前加 no 變成負(fù)的例如-nomore.
•‘flag=s' 接有 = 的字符串要求接字符串（s）、整數(shù)（i）,或者浮點(diǎn)（f）等類型的變量.
•‘debug:i' 接有 : 的選項(xiàng)會(huì)接受缺省為0或者為空字符串的可選變量
•‘test|t' 接有 | 的選項(xiàng)表示可以給 –test 簡(jiǎn)寫為 -t.
•‘lib=s' => @libs 如果相關(guān)聯(lián)的變量是個(gè)數(shù)組, 如這個(gè)地方的 @libs, 那么選項(xiàng)可以多次出現(xiàn), 值可以被推到數(shù)組里.
•‘flag=s' => %flags 如果相關(guān)聯(lián)的變量是個(gè)散列, 那么就要求一個(gè)鍵=值（key=value）對(duì), 并被插入到散列里.
備注:
在匹配參數(shù)名的時(shí)候,GetOptions 在缺省設(shè)置下會(huì)忽略大小寫,默認(rèn)參數(shù)被簡(jiǎn)寫為唯一的最短字符串(首字母)（例如,-m 代表 -more. 相同的首字母時(shí),會(huì)加上第二個(gè)字母來(lái)區(qū)分)
Getopt 模塊的程序使用的方法：
根據(jù)上面的例子,比如我們寫了一個(gè)程序叫 test.pl .我們只需要在命令行中加如下參數(shù):
有點(diǎn)小長(zhǎng),在看看上面的,就會(huì)明白意思了.在這個(gè)地方,我使用了 Smart::Comment 模塊,所以在最下面的 ### 是會(huì)輸出這個(gè)變量本身的內(nèi)容的.這也是一個(gè)超級(jí)強(qiáng)大的模塊.我們來(lái)看看輸入這些參數(shù)后.會(huì)輸出什么內(nèi)容吧.
### $verbose: 3
### $more: 1
### $debug: 2
### @libs: [
### '/lib',
### '/lib64'
### ]
### %flags: {
### a => '1',
### b => '2'
### }
在對(duì)一下上面輸入的參數(shù),明白了吧.
Getopt 模塊的簡(jiǎn)單總結(jié)
（1. 帶值參數(shù)傳入程序內(nèi)部
※參數(shù)類型：整數(shù), 浮點(diǎn)數(shù), 字串
GetOptions(
'tag=s' => \$tag
);
‘='表示此參數(shù)一定要有參數(shù)值, 若改用':'代替表示參數(shù)不一定要有參數(shù)值
‘s'表示傳遞字串參數(shù), 若為'i'表傳遞整數(shù)參數(shù), 若為'f'表傳遞浮點(diǎn)數(shù).
帶值參數(shù)使用的方法
$ test.pl --tag=string
$ test.pl --tag string
（2. 需要傳送多個(gè)值的參數(shù)到程序中.
比如需要傳幾個(gè)值到 @libfiles 中的操作方法.
GetOptions ("library=s" => \@libfiles);
GetOptions ("library=s@" => \$libfiles);
參數(shù)傳到 @$tag
使用的方法
（3. 對(duì)鍵值對(duì)的參數(shù)傳遞
有時(shí)我們需要傳送一些鍵值對(duì)到程序中進(jìn)行處理,就需要使用到這個(gè)功能了.
GetOptions ("define=s" => \%defines);
GetOptions ("define=s%" => \$defines);
使用的方法
(4. 參數(shù)的別名
我們需要參數(shù)加個(gè)簡(jiǎn)寫之類的別名時(shí),可以使用下面的方法
第一個(gè)名稱為 primary name, 其他的名稱為 alias(可有多個(gè)alias名稱) ,當(dāng)使用hash參數(shù)時(shí), 使用primary name作為key值
相關(guān)文章
perl中創(chuàng)建數(shù)組時(shí)，可以使用到qw。但考慮到英文名稱中間的空格等情況就需要單獨(dú)處理了2013-03-03
php是用了很久了,python和ruby與用過(guò),經(jīng)典腳本語(yǔ)言就perl沒(méi)摸過(guò)，現(xiàn)在在像小學(xué)生一樣抱著教科書啃。2008-09-09
Perl語(yǔ)言的循環(huán)實(shí)現(xiàn)方法小結(jié)
Perl語(yǔ)言中提供了多種循環(huán)結(jié)構(gòu),包括for、while、do...while和foreach循環(huán),每種循環(huán)都有其特定的應(yīng)用場(chǎng)景和用法,循環(huán)控制語(yǔ)句如last、next和redo進(jìn)一步提升了循環(huán)的靈活性,通過(guò)靈活運(yùn)用這些循環(huán),可以編寫高效而簡(jiǎn)潔的代碼,感興趣的朋友跟隨小編一起看看吧2025-01-01
perl如何避免腳本在windows中閃一下就關(guān)閉
寫好了perl程序，運(yùn)行后，準(zhǔn)備等待結(jié)果輸出時(shí)，結(jié)果雙擊后，看到屏幕閃了一下，然后什么都沒(méi)有了，根本沒(méi)有機(jī)會(huì)然你看到輸出的結(jié)果2013-03-03
perl運(yùn)算符使用介紹與簡(jiǎn)單應(yīng)用
本文向大家簡(jiǎn)單介紹一下Perl語(yǔ)法中Perl運(yùn)算符的概念，Perl語(yǔ)言中Perl運(yùn)算符有很多值得學(xué)習(xí)的地方，這里和大家分享一下它的概念和用法2013-03-03
這篇文章主要介紹了Perl中的特殊內(nèi)置變量詳細(xì)介紹,需要的朋友可以參考下2014-05-05
本文和大家重點(diǎn)討論一下Perl方法的概念，Perl方法定義不提供任何特殊語(yǔ)法，但規(guī)定Perl方法的第一個(gè)參數(shù)為對(duì)象或其被引用的包。Perl有兩種Perl方法：靜態(tài)Perl方法和虛P(yáng)erl方法2013-03-03
用perl實(shí)現(xiàn)生物突變的隨機(jī)模擬程序代碼
perl寫的生物突變的隨機(jī)模擬程序，有需要的朋友可以參考下2013-03-03
這兩天在用Perl編寫一些監(jiān)控腳本，其實(shí)寫代碼也是一件挺有意思的事情，就是挺廢時(shí)間的。而且，由于語(yǔ)法不太熟，基本想到一個(gè)東西都要先Google一下看怎么實(shí)現(xiàn)。2008-06-06
在Perl中使用Getopt::Long模塊來(lái)接收用戶命令行參數(shù)
我們?cè)趌inux常常用到一個(gè)程序需要加入?yún)?shù),現(xiàn)在了解一下perl中的有關(guān)控制參數(shù)的函數(shù).getopt.在linux有的參數(shù)有二種形式.一種是–help,另一種是-h.也就是-和–的分別.–表示完整參數(shù).-表示簡(jiǎn)化參數(shù)2013-03-03