perl getopt 使用方法

我們在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;

輸出如下： [root@mail 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,

);下面是詳解

備註:在匹配引數名的時候，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:

在對一下上面輸入的引數，明白了吧。

（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 getopt 使用方法

Perl Getopt 使用模板

pythonpip使用方法 pip使用方法整理

使用方法離型劑使用方法

perl getopt 使用方法

Perl Getopt 使用模板

pythonpip使用方法 pip使用方法整理

使用方法 離型劑使用方法

相關推薦

使用方法離型劑使用方法