本文主要為了方便閱讀、編寫perl腳本而記錄的常用的命令、語法。

一、條件判斷語法

注意，數字 0, 字符串 '0' 、 "" , 空 list () , 和 undef 為 false ，其他值均為 true。 true 前面使用 ! 或 not則返回 false

語句描述

if 語句	一個 if 語句 由一個布爾表達式后跟一個或多個語句組成。
if...else 語句	一個 if 語句 后可跟一個可選的 else 語句，else 語句在布爾表達式為假時執行。
if...elsif...else 語句	您可以在一個 if 語句后可跟一個可選的 elsif 語句，然后再跟另一個 else 語句。
unless 語句	一個 unless 語句 由一個布爾表達式后跟一個或多個語句組成。
unless...else 語句。	一個 unless 語句 后可跟一個可選的 else 語句。
unless...elsif..else statement	一個 unless 語句 后可跟一個可選的 elsif 語句，然后再跟另一個 else 語句。
switch 語句	在最新版本的 Perl 中，我們可以使用 switch 語句。它根據不同的值執行對應的代碼塊。

1.IF語句

語法：

if(boolean_expression){# 在布爾表達式 boolean_expression 為 true 執行 }

示例：

#!/usr/bin/perl $a=20;if($a>=20){printf "a 大于等于 20 \n"; } printf "變量a的值為:$a\n"

結果：

2.IF...ELSE 語句

?語法：

if(boolean_expression){# 在布爾表達式 boolean_expression 為 true 執行 }else{# 在布爾表達式 boolean_expression 為 false 執行 }

示例：

#!/usr/bin/perl $a=10;if($a>=20){printf "a 大于等于 20 \n"; }else{printf "a 小于 20\n"; } printf "變量a的值為:$a\n";

輸出結果：

3.IF...ELSIF...else 語句

語法：

if(boolean_expression 1){# 在布爾表達式 boolean_expression 1 為 true 執行 } elsif( boolean_expression 2){# 在布爾表達式 boolean_expression 2 為 true 執行 } elsif( boolean_expression 3){# 在布爾表達式 boolean_expression 3 為 true 執行 } else{# 布爾表達式的條件都為 false 時執行 }

示例：

#!/usr/bin/perl $a=10;if($a>10){printf "a 大于 10 \n"; }elsif($a=10){printf "a 等于 10\n"; }else{printf "a 小于 10\g"; }printf "變量a的值為:$a\n";

結果：

4.switch 語句

?語法：

use Switch;switch(argument){case 1 { print "數字 1" }case "a" { print "字符串 a" }case [1..10,42] { print "數字在列表中" }case (\@array) { print "數字在數組中" }case /\w+/ { print "正則匹配模式" }case qr/\w+/ { print "正則匹配模式" }case (\%hash) { print "哈希" }case (\&sub) { print "子進程" }else { print "不匹配之前的條件" } }

示例：

#!/usr/bin/perluse Switch;$var = 10; @array = (10, 20, 30); %hash = ('key1' => 10, 'key2' => 20);switch($var){case 10 { print "數字 10\n" }case "a" { print "字符串 a" }case [1..10,42] { print "數字在列表中" }case (\@array) { print "數字在數組中" }case (\%hash) { print "在哈希中" }else { print "沒有匹配的條件" } }

結果：

5.三元運算

?語法：

Exp1 ? Exp2 : Exp3;

示例：

#!/usr/bin/perl$a=1>2?false:true;print "$a\n"

結果：

二、循環語句語法

循環類型描述

while 循環	當給定條件為 true 時，重復執行語句或語句組。循環主體執行之前會先測試條件。
until 循環	重復執行語句或語句組，直到給定的條件為 true。 循環主體執行之前會先測試條件。
for 循環	多次執行一個語句序列，簡化管理循環變量的代碼。
foreach 循環	foreach 循環用于迭代一個列表或集合變量的值。
do...while 循環	除了它是在循環主體結尾測試條件外，其他與 while 語句類似。
嵌套循環	您可以在 while、for 或 do..while 循環內使用一個或多個循環。

1.while循環

語法：

while(condition) {statement(s); }

示例：

#!/usr/bin/perl$a = 10;while( $a < 20 ){printf "a 的值為 : $a\n";$a = $a + 1; }

結果：

2.for循環

語法：

for ( init; condition; increment ){statement(s); }

示例：

#!/usr/bin/perlfor( $a = 0; $a < 10; $a = $a + 1 ){print "a 的值為: $a\n"; }

結果：

3.循環控制語句

控制語句描述

next 語句	停止執行從next語句的下一語句開始到循環體結束標識符之間的語句，轉去執行continue語句塊，然后再返回到循環體的起始處開始執行下一次循環。
last 語句	退出循環語句塊，從而結束循環
continue 語句	continue 語句塊通常在條件語句再次判斷前執行。
redo 語句	redo 語句直接轉到循環體的第一行開始重復執行本次循環，redo語句之后的語句不再執行，continue語句塊也不再執行；
goto 語句	Perl 有三種 goto 形式：got LABLE，goto EXPR，和 goto &NAME。

?三、perl運算符

1.算數運算符

運算符描述實例

+	加法運算	$a + $b 結果為 30
-	減法運算	$a - $b 結果為 -10
*	乘法運算	$a * $b 結果為 200
/	除法運算	$b / $a 結果為 2
%	求余運算，整除后的余數	$b % $a 結果為 0
**	乘冪	$a**$b 結果為 10 的 20 次方

2.比較運算符

運算符描述實例

==	檢查兩個操作數的值是否相等，如果相等則條件為 true，否則為 false。	($a == $b) 為 false
!=	檢查兩個操作數的值是否相等，如果不相等則條件為 true，否則為 false。	($a != $b) 為 true。
<=>	檢查兩個操作數的值是否相等, 如果左邊的數小于右邊的數返回 -1，如果相等返回 0, 如果左邊的數大于右邊的數返回 1 。	($a <=> $b) 返回 -1。
>	檢查左操作數的值是否大于右操作數的值，如果是則條件為 true，否則為 false。	($a > $b) 返回 false。
<	檢查左操作數的值是否小于右操作數的值，如果是則條件為 true，否則返回 false。	($a < $b) 返回 true。
>=	檢查左操作數的值是否大于或等于右操作數的值，如果是則條件為 true，否則返回 false。	($a >= $b) 返回 false。
<=	檢查左操作數的值是否小于或等于右操作數的值，如果是則條件為 true，否則返回 false。。	($a <= $b) 返回 true。

運算符描述實例

lt	檢查左邊的字符串是否小于右邊的字符串，如果是返回 true，否則返回 false。	($a lt $b) 返回 true。
gt	檢查左邊的字符串是否大于右邊的字符串，如果是返回 true，否則返回 false。	($a gt $b) 返回 false。
le	檢查左邊的字符串是否小于或等于右邊的字符串，如果是返回 true，否則返回 false。	($a le $b) 返回 true
ge	檢查左邊的字符串是否大于或等于右邊的字符串，如果是返回 true，否則返回 false。	($a ge $b) 返回 false。
eq	檢查左邊的字符串是否等于右邊的字符串，如果是返回 true，否則返回 false。	($a eq $b) 返回 false。
ne	檢查左邊的字符串是否不等于右邊的字符串，如果是返回 true，否則返回 false。	($a ne $b) 返回 true
cmp	如果左邊的字符串大于右邊的字符串返回 1，如果相等返回 0，如果左邊的字符串小于右邊的字符串返回 -1。	($a cmp $b) 返回 -1。

3.邏輯運算符

運算符描述實例

and	邏輯與運算符符。如果兩個操作數都為 true，則條件為 true。	($a and $b) 為 false。
&&	C 風格的邏輯與運算符符。如果兩個操作數都為 true，則條件為 true	($a && $b) 為 false。
or	邏輯或運算符。如果兩個操作數中有任意一個非零，則條件為 true。	($a or $b) 為 true。
||	C 風格邏輯或運算符。如果兩個操作數中有任意一個非零，則條件為 true。	($a || $b) 為 true。
not	邏輯非運算符。用來反轉操作數的邏輯狀態。如果條件為 true，則邏輯非運算符將使其為 false。	not($a and $b) 為 tru

4.賦值運算符

運算符描述實例

=	簡單的賦值運算符，把右邊操作數的值賦給左邊操作數	$c = $a + $b 將把 $a + $b 的值賦給 $c
+=	加且賦值運算符，把右邊操作數加上左邊操作數的結果賦值給左邊操作數	$c += $a 相等于 $c = $c + $a
-=	減且賦值運算符，把左邊操作數減去右邊操作數的結果賦值給左邊操作數	$c -= $a 相等于 $c = $c - $a
*=	乘且賦值運算符，把右邊操作數乘以左邊操作數的結果賦值給左邊操作數	$c *= $a 相等于 $c = $c * $a
/=	除且賦值運算符，把左邊操作數除以右邊操作數的結果賦值給左邊操作數	$c /= $a 相等于 $c = $c / $a
%=	求模且賦值運算符，求兩個操作數的模賦值給左邊操作數	$c %= $a 相等于 $c = $c % a
**=	乘冪且賦值運算符，求兩個操作數的乘冪賦值給左邊操作數	$c **= $a 相等于 $c = $c ** $a

5.位運算符

運算符描述實例

&	如果同時存在于兩個操作數中，二進制 AND 運算符復制一位到結果中。	($a & $b) 將得到 12，二進制為 0000 1100
|	如果存在于任一操作數中，二進制 OR 運算符復制一位到結果中。	($a | $b) 將得到 61 ，二進制為 0011 1101
^	如果存在于其中一個操作數中但不同時存在于兩個操作數中，二進制異或運算符復制一位到結果中。	($a ^ $b) 將得到 49，二進制為 0011 0001
~	二進制補碼運算符是一元運算符，具有"翻轉"位效果，即0變成1，1變成0。	(~$a ) 將得到 -61 ，二進制為 1100 0011 ，一個有符號二進制數的補碼形式。
<<	二進制左移運算符。左操作數的值向左移動右操作數指定的位數。	$a << 2 將得到 240 ，二進制為 1111 0000
>>	二進制右移運算符。左操作數的值向右移動右操作數指定的位數。	$a >> 2 將得到 15 ，二進制為 0000 1111

6.引號運算符

q{ }	為字符串添加單引號	q{abcd} 結果為 'abcd'
qq{ }	為字符串添加雙引號	qq{abcd} 結果為 "abcd"
qx{ }	為字符串添加反引號	qx{abcd} 結果為 `abcd`

7.其他運算符

運算符描述實例

.	點號 (.) 用于連接兩個字符串。	如果 $a="run", $b="oob" ， $a.$b 結果為 "runoob"
x	x 運算符返回字符串重復的次數。	('-' x 3) 輸出為 ---。
..	.. 為范圍運算符。	(2..5) 輸出結果為 (2, 3, 4, 5)
++	自增運算符，整數值增加 1	$a =10, $a++ will 輸出為 11
--	自減運算符，整數值減少 1	$a =10, $a-- 輸出為 9
->	箭號用于指定一個類的方法	$obj->$a 表示對象 $obj 的 $a 方法。

8.運算符優先級

運算符符結合性

++,?--	無
-,?~,?!	從右到左
**	從右到左
=~,?!~	從左到右
*,?/,?%,?x	從左到右
+,?-,?.	從左到右
<<,?>>	從左到右
-e,?-r,	無
<,?<=,?>,?>=,?lt,?le,?gt,?ge	從左到右
==,?!=,?<=>,?eq,?ne,?cmp	從左到右
&	從左到右
|,?^	從左到右
&&	從左到右
||	從左到右
..	從左到右
??and?:	從右到左
=,?+=,?-=,?*=,	從右到左
其他
,	從左到右
not	從左到右
and	從左到右
or,?xor	從左到右

四、perl時間格式

time() 函數：返回從1970年1月1日起累計的秒數 localtime() 函數：獲取本地時區時間 gmtime() 函數： 獲取格林威治時間

1.localtime對應時間變量

sec, # 秒， 0 到 61 min, # 分鐘， 0 到 59 hour, # 小時， 0 到 24 mday, # 天， 1 到 31 mon, # 月， 0 到 11 year, # 年，從 1900 開始 wday, # 星期幾，0-6,0表示周日 yday, # 一年中的第幾天,0-364,365 isdst # 如果夏令時有效，則為真

2.格式化時間輸出

1)通過時間變量格式化輸出

#!/usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();printf("格式化時間：YYYY-mm-DD HH:MM:SS\n"); printf("%04d-%02d-%02d %02d:%02d:%02d\n",$year+1900,$mon+1,$mday,$hour, $min, $sec);

2)通過POSIX 函數 strftime()格式化時間輸出

#!/usr/bin/perl use POSIX qw(strftime); $datestring = strftime "%Y-%m-%d %H:%M:%S", localtime; printf("時間日期 - $datestring\n");

3.POSIX 函數 strftime()格式

符號描述實例

%a	星期幾的簡稱（ Sun..Sat） *	Thu
%A	星期幾的全稱（ Sunday..Saturday） *	Thursday
%b	月的簡稱（Jan..Dec） *	Aug
%B	月的全稱（January..December） *	August
%c	日期和時間 *	Thu Aug 23 14:55:02 2001
%C	年份除于100，并取整 (00-99)	20
%d	一個月的第幾天 (01-31)	23
%D	日期, MM/DD/YY 相等于%m/%d/%y	08/23/01
%e	一個月的第幾天，使用空格填充個位數 ( 1-31)	23
%F	YYYY-MM-DD 的簡寫類似于 %Y-%m-%d	2001-08-23
%g	年份的最后兩位數 (00-99)	01
%g	年	2001
%h	月的簡稱 * (和%b選項相同)	Aug
%H	24 小時制 (00-23)	14
%I	12 小時制 (01-12)	02
%j	一年的第幾天 (001-366)	235
%m	月 (01-12)	08
%M	分鐘 (00-59)	55
%n	新行 ('\n')	?
%p	顯示出AM或PM	PM
%r	時間（hh：mm：ss AM或PM），12小時 *	02:55:02 pm
%R	24 小時 HH:MM 時間格式,相等于 %H:%M	14:55
%S	秒數 (00-61)	02
%t	水平制表符 ('\t')	?
%T	時間（24小時制）（hh:mm:ss），相等于%H:%M:%S	14:55
%u	ISO 8601 的星期幾格式，星期一為1 (1-7)	4
%U	一年中的第幾周，星期天為第一天(00-53)	33
%V	ISO 8601 第幾周 (00-53)	34
%w	一個星期的第幾天（0代表星期天） (0-6)	4
%W	一年的第幾個星期，星期一為第一天 (00-53)	34
%x	顯示日期的格式（mm/dd/yy） *	08/23/01
%X	顯示時間格式 *	14:55:02
%y	年，兩位數 (00-99)	01
%Y	年	2001
%z	ISO 8601與UTC的時區偏移(1 minute=1, 1 hour=100) ?	+100
%Z	當前時區的名稱,如"中國標準時間" * ?	CDT
%%	% 符號	%

五、perl中$組合含義

$! 根據上下文內容返回錯誤號或者錯誤串 $” 列表分隔符 $# 打印數字時默認的數字輸出格式 $$ Perl解釋器的進程ID $% 當前輸出通道的當前頁號 $& 與上個格式匹配的字符串 $( 當前進程的組ID$) 當前進程的有效組ID $* 設置1表示處理多行格式.現在多以/s和/m修飾符取代之. $, 當前輸出字段分隔符 $. 上次閱讀的文件的當前輸入行號 $/ 當前輸入記錄分隔符,默認情況是新行 $: 字符設置,此后的字符串將被分開,以填充連續的字段. $; 在仿真多維數組時使用的分隔符. $? 返回上一個外部命令的狀態 $@ Perl解釋器從eval語句返回的錯誤消息 $[ 數組中第一個元素的索引號 $\ 當前輸出記錄的分隔符 $] Perl解釋器的子版本號 $^ 當前通道最上面的頁面輸出格式名字 $^A 打印前用于保存格式化數據的變量 $^D 調試標志的值 $^E 在非UNIX環境中的操作系統擴展錯誤信息 $^F 最大的文件捆述符數值 $^H 由編譯器激活的語法檢查狀態 $^I 內置控制編輯器的值 $^L 發送到輸出通道的走紙換頁符 $^M 備用內存池的大小 $^O 操作系統名 $^P 指定當前調試值的內部變量 $^R 正則表達式塊的上次求值結果 $^S 當前解釋器狀態 $^T 從新世紀開始算起,腳步本以秒計算的開始運行的時間 $^W 警告開關的當前值 $^X Perl二進制可執行代碼的名字 $_ 默認的輸入/輸出和格式匹配空間 $| 控制對當前選擇的輸出文件句柄的緩沖 $~ 當前報告格式的名字 $` 在上個格式匹配信息前的字符串 $’ 在上個格式匹配信息后的字符串 $+ 與上個正則表達式搜索格式匹配的最后一個括號 $< 當前執行解釋器的用戶的真實ID $ 含有與上個匹配正則表達式對應括號結果 $= 當前頁面可打印行的數目 $> 當前進程的有效用戶ID包含正在執行的腳本的文件名 $ARGV 從默認的文件句柄中讀取時的當前文件名 %ENV 環境變量列表 %INC 通過do或require包含的文件列表 %SIG 信號列表及其處理方式 @_ 傳給子程序的參數列表 @ARGV 傳給腳本的命令行參數列表 @INC 在導入模塊時需要搜索的目錄列表 $-[0]和$+[0] 代表當前匹配的正則表達式在被匹配的字符串中的起始和終止的位置

六、perl中參數傳遞

Getopt::Std模塊的功能: 初始化perl命令行中所接受的參數，簡化了命令行參數的解析

語法：

※參數類型：整數, 浮點數, 字串 GetOptions( ‘tag=s’ => \$tag ); =表示此參數一定要有參數值, 若改用’:'代替表示參數不一定要有參數值 s表示傳遞字串參數, 若為i表傳遞整數參數, 若為f表傳遞浮點數 =>表示參數值傳遞給變量$tag，最終參數值可通過$tag獲取

示例：

#!/usr/bin/perluse Getopt::Long;GetOptions ("parameter=s" => \$parameter);print "$parameter \n";

執行結果：perl pl01.py -parameter 輸入參數值 或者perl pl01.py -parameter=輸入參數值

?

轉載于:https://www.cnblogs.com/rangle/p/9109142.html

總結

以上是生活随笔為你收集整理的Perl常用语法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。