[精讚] [會員登入]
10697

[PERL] 命令列傳入參數 argv

Perl 的外部傳參,是$ARGV[0]、$ARGV[1]、$ARGV[2].....

分享此文連結 //n.sfs.tw/10675

分享連結 [PERL] 命令列傳入參數 argv@新精讚
(文章歡迎轉載,務必尊重版權註明連結來源)
2023-10-24 15:46:30 最後編修
2017-01-24 09:22:45 By 張○○
 

自動目錄

Perl 的外部傳參

PERL若在命令列中有代入參數的話,可以直接用陣列@ARGV來取用,這裡的ARGV都得大寫

例如 t.pl

#!/usr/bin/perl -w

print "@ARGV";
print "\n". $ARGV[1];   #第2個傳參

執行

# ./t.pl 0 1 2 3 4
0 1 2 3 4
1

個別參數分別是$ARGV[0]、$ARGV[1]、$ARGV[2].....

判斷傳參是否存在的方法

如果該參數不存在,會出現這樣的錯誤:

Use of uninitialized value ...

所以取用前得先判斷該參數是否存在

if(  !$ARGV[0] )  {die  "請輸入第一個參數\r\n";}

#請注意'!' 因為,ARGV[0]並非undef,而是無初始值。
所以寫成下面這樣都是錯的:

if(  undef ($ARGV[0] ) ){...}  X
if( $ARGV[0]  eq ""  ){...} X
if( $ARGV[0]  == ""  ){...} X
if( $ARGV[0]  == undef  ){...} X

只有這樣是正確的
if(  !$ARGV[0] )  { ... } O

和PHP有點不一樣的在於要取得執行程式本身(含你指定的路徑),只要使用特殊變數 $0 即可:一個錢號和數字0,以上例而言:

print $0;  #./t.pl

 

參數帶有中文字的處理方式

當參數帶有中文字,到了系統中會變成亂碼:

# ./t.pl -n "這裡是精讚部落"
-n 這是一串中文字       <==中文字會變亂碼

t.pl為上面的範例程式,其中傳入兩個參數 "-n" 及"這裡是精讚部落"。中文字顯示部分會變亂碼

 

原本這是很棘手的問題,但只要用 decode來處理即可:

use Encode;
print "@ARGV";
print decode("utf8",$ARGV[1]);

結果

-n 這裡是精讚部落

 

 


編修原文 2009-10-21 13:39:42

END

你可能感興趣的文章

Perl 的列舉寫法(map list) 使用列舉的寫法來設定陣列,非常的強大

[PERL] 中文字字串拆解,把中文字串逐字拆開 中文字字串拆解是門學問

PERL一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

[PERL] 22-日期和時間 Perl 取得日期時間的方法整理,使用 localtime等多種函數

[PERL] 常態分配亂數產生函數 一般而言我們使用程式內建的 rand 函數取得的亂數是平均分配的,但如果需要常態分配的亂數產生器該怎麼做?

[PERL] 24-呼叫系統程式及評估 Perl 如何呼叫系統程式並取回結果?

隨機好文

HP SAS硬碟leds燈號說明 HP SAS硬碟leds燈號(hp g7/g6系統適用)說明

TFTP Server 安裝及使用 讓設備的網路設定檔或是韌體經由TFTP拷備出來,操作的方法

一個邏輯的錯誤刪了全部檔案的經驗 今天本來想做一件很簡單的事,但卻足足浪費我多一倍的時間,再加上刪掉我全部的檔案,原因只是因為我自己的邏輯錯誤。

[AS3] 我做的唯一一個Flash As3遊戲UFO INVADSION [AS3] 我做的唯一一個Flash As3遊戲,是第一個也是最後一個,後來就沒再寫as3,不過as3還滿好玩的。

[PHP] 檢查檔案是否是圖檔 使用getimagesize函數檢查檔案是否是圖檔