1、可以使用getopt::std模組來實現。
quotes
use getopt::std;
# -v, -d, -o arg, sets $opt_v, $opt_d, $opt_o
getopts("vdo:");
# -v, -d, -o arg, sets $args, $args, $args
getopts("vdo:", /%args);
2、或者使用getopt::long來允許命名引數：
quotes
use getopt::long;
getoptions( "verbose" => /$verbose, # --verbose
"debug" => /$debug, # --debug
"output=s" => /$output );
3、如果不想對模組有所依賴，那麼我們可以自己實現：
quotes
my $var_name = "";
foreach (@argv)
perl 時間處理
usr bin perl use posix qw strftime my day ymd strftime y m d localtime time 86400 days my day ymd strftime y m d localtime time 86400 days print day y...
perl處理中文
perl從5.6開始已經開始在內部使用utf8編碼來表示字元，也就是說對中文以及其他語言字元的處理應該是完全沒有問題的。我們只需要利用好encode這個模組便能充分發揮perl的utf8字元的優勢了。下面就以中文文字的處理為例進行說明，比如有乙個字串 測試文字 我們想要把這個中文字串拆成單個字元，可...
perl時間處理
1 格式化輸出當前時間 perl e use strict use posix qw strftime print strftime y m d h m s n localtime time 2 時間格式轉換 perl e use time local use time piece s 2011 0...