Perl經常使用語法

時間  2019-11-21
標籤 perl 經常 使用 語法 欄目 Perl 简体版
原文   原文鏈接

本文主要爲了方便閱讀、編寫perl腳本而記錄的經常使用的命令、語法。正則表達式

1、條件判斷語法express

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

語句 描述

if 語句less

 一個 if 語句 由一個布爾表達式後跟一個或多個語句組成。

if...else 語句編輯器

 一個 if 語句 後可跟一個可選的 else 語句，else 語句在布爾表達式爲假時執行。

if...elsif...else 語句函數

 您能夠在一個 if 語句後可跟一個可選的 elsif 語句，而後再跟另外一個 else 語句。

unless 語句測試

 一個 unless 語句 由一個布爾表達式後跟一個或多個語句組成。

unless...else 語句。ui

 一個 unless 語句 後可跟一個可選的 else 語句。

unless...elsif..else statementspa

 一個 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/perl
 
use 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"

結果：

2、循環語句語法

循環類型 描述

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/perl
 
for( $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。

 3、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 從左到右

4、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
%% % 符號 %

5、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/perl

use Getopt::Long;

GetOptions ("parameter=s" => \$parameter);

print "$parameter \n";

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

相關文章
相關標籤/搜索
每日一句
    每一个你不满意的现在，都有一个你没有努力的曾经。
本站公眾號
   歡迎關注本站公眾號,獲取更多信息
聯繫我們 最近搜索 最新文章 沪ICP备13005482号-10 MyBatis教程 SQL 教程 MySQL教程 Java 教程 Thymeleaf 教程 Hibernate教程 Spring教程 Redis教程