perl getopt 使用方法

標籤：style   color   使用   strong   os   art   

我們在linux常常用到一個程式需要加入參數,現在瞭解一下perl中的有關控制參數的函數.getopt.在linux有的參數有二種形式.一種是--help,另一種是-h.也就是-和--的分別。--表示完整參數.-表示簡化參數.

在perl中也分這二種.

Getopt::Std模組的功能: 初始化perl命令列中所接受的參數，簡化了命令列參數的解析。 簡化參數例子：

 #!/usr/bin/perl -w
use strict;
use Getopt::Std;
 
use vars qw($opt_a $opt_b $opt_c);
getopts(‘d:f:p:‘);
 
print "\$opt_a =>; $opt_a\n" if $opt_a;
print "\$opt_b =>; $opt_b\n" if $opt_b;
print "\$opt_c =>; $opt_c\n" if $opt_c;

輸出如下： [[email protected] test]# ./getopt.pl -a aa -b bb -c cc $opt_a =>; aa $opt_b =>; bb $opt_c =>; cc

 [ 解釋一下"d:f:p"，d和f後有冒號，表示-d，-f後面要跟參數。p後面沒有冒號，表示-p後面不帶參數。
而且-d，-f後所跟的參數分別賦給變數$opt_d和$opt_f。對於變數$opt_p，若命令列加了-p，則$opt_p=1，否則為0]

完整參數

 Getopt::Long ,比直接使用 @ARGV 的數組強大多了.

初始化 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+’  接有 + 的選項不接收變數,後面不需要加內容。直接使用就行了，會在每次出現時增加一次變數,就是講命行時在參數中 -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值。