1、Perl 語法入門：

?1、print 語句：

print "Hello, world\n"; print("Hello, world\n");

2、引號：

?Perl雙引號和單引號的區別: 雙引號可以正常解析一些轉義字符與變量，而單引號無法解析會原樣輸出。

3、perl數據類型：

　　1、標量：$myfirst=123;

　　2、數組：@arr=(1,2,3)；

@names = ('google', 'runoob', 'taobao'); @copy = @names; # 復制數組 $size = @names; # 數組賦值給標量，返回數組元素個數 push(@sites, "baidu"); # 在數組結尾添加一個元素 unshift(@sites, "weibo"); # 在數組開頭添加一個元素 pop(@sites); # 刪除數組末尾的元素 shift(@sites);# 移除數組開頭的元素
# 用split()方法將字符串轉為數組
@string = split('-', $var_string);
# 用join()方法將數組轉為字符串
$string1 = join( '-', @string );

　　3、散列：%h=('a'=>1,'b'=>2);

%data = ('google', 45, 'runoob', 30, 'taobao', 40); print "\$data{'google'} = $data{'google'}\n";
$size = @keys; # 賦值給標量，返回元素個數 使用?keys?函數讀取哈希所有的鍵：keys %HASH
%data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com');
@names = keys %data;
使用?values?函數來讀取哈希所有的值：values %HASH
%data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com');
@urls = values %data;

3、perl流程控制：

　　1、if語句：

$a = 100; # 使用 == 判斷兩個數是否相等 if( $a == 20 ){# 條件為 true 時執行printf "a 的值為 20\n"; }elsif( $a == 30 ){# 條件為 true 時執行printf "a 的值為 30\n"; }else{# 以上所有的條件為 false 時執行printf "a 的值為 $a\n"; }

　　2、case語句：

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 "沒有匹配的條件" } }

　　2、for語句：

# 執行 for 循環 for( $a = 0; $a < 10; $a = $a + 1 ){print "a 的值為: $a\n"; }

　　3、foreach語句：

@list = (2, 12, 36, 42, 51); # 執行foreach 循環 foreach $a (@list){print "a 的值為: $a\n"; }

　　?last 語句用于退出循環語句塊；

　　continue 塊通常在條件語句再次判斷前執行。

　　foreach $a (@listA){ 　　statement(s); 　　}continue{ 　　statement(s); 　　}

4、perl函數及子程序：

# 函數定義 sub Hello{print "Hello, World!\n"; } # 函數調用 Hello();

　　1、perl 函數傳參：

　　Perl 子程序可以和其他編程一樣接受多個參數，子程序參數使用特殊數組 @_ 標明。

　　因此子程序第一個參數為 $_[0], 第二個參數為 $_[1], 以此類推。

　　不論參數是標量型還是數組型的，用戶把參數傳給子程序時，perl默認按引用的方式調用它們。

# 定義求平均值函數 sub Average{# 獲取所有傳入的參數$n = scalar(@_);$sum = 0;foreach $item (@_){$sum += $item;}$average = $sum / $n;print '傳入的參數為 : ',"@_\n"; # 打印整個數組print "第一個參數值為 : $_[0]\n"; # 打印第一個參數print "傳入參數的平均值為 : $average\n"; # 打印平均值 } # 調用函數 Average(10, 20, 30);

子程序可以向其他編程語言一樣使用 return 語句來返回函數值。

如果沒有使用 return 語句，則子程序的最后一行語句將作為返回值。

?

轉載于:https://www.cnblogs.com/littleMa/p/5311303.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的perl-基础的全部內容，希望文章能夠幫你解決所遇到的問題。

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