#perl 語言簡明教程

#perl 語言簡明教程
#1.perl語言採用#號作為單行注釋
#多行注釋如下 被=pod =cut包裹起來的是多行注釋

=pod
這裡是多行注釋
=cut

#1.變數
#perl語言中只有3種變數
#1.普通變數（標量）
#2.陣列變數（列表）
#3.hash變數（hash表）
#聲明方法
#標量
$a = 1;
$scalar = 10;
$s = "sdsd";
$s1 = 'asdasd';

#數組
print @arr = ( 1, 2, 3, 4, 5, 6 );
&p;
print @arr100 = ( 1 .. 100 );
&p;
#hash表
print $hash= { 'a' => "abc", 'b' => "b" };
print $hash->{a};
&p;

#函數定義
#sub funcname{
# 參數在@_中
# @_[0]第一個參數
# @_[1]第二個參數
# @_[2]第三個參數
# 以此類推
#}
#函數調用
#在函數名前面加一個&
sub p{#此函數用來輔助列印
&println;
}
sub println{
print "n";
}
#Regex使用方法（異常簡單）
#Regex只有五種元素 分別為 1.中繼資料。2.量詞。3.分組。4.反向引用。5.字面量
#尋找
$str='abc';
$str=~/ab.*/;#使用.中繼資料和*量詞
#匹配結果在$&中
print $&;
&p;
$str="abc1234";
$str=~/abc(d+)/;#中繼資料d,量詞+分組(d+)
print $&;#匹配全部
&p;
print $1;#第一組
&p;
$str='abcabc1234';
$str=~/(abc)1(d+)/;#字面量abc,分組一(abc),反向引用第一組1,中繼資料d,量詞+分組二(d+)
print $&;
&p;
print $1;
&p;
print $2;
#替換
&p;
$str='abcfiredabctoadabc';
$str=~s/abc//g;#將所有abc替換為空白g開關表示替換全部不帶g表示只替換一個
print $str;