perl 基礎

1.變數定義：my $variableName;
陣列定義：my @arrayName;
註釋：#
從#起，到行尾

2.運算子：
字串　 數字　意義
eq　　　　== (等於)
ne 　　　!= (不等於)
lt　　 < (小於)
le 　　<= (小於或等於)
gt 　　> (大於)
ge 　　>= (大於或等於)

3.關係運算子
(1)
if(condition){

}

(2)
if(condition){
#if
}else{
　#else
}

(3)elseif語句

4.讀取輸入
$variable=; #從命令列讓使用者輸入

5.簡單I/O
讀取檔案：open IN_FILE,"寫入檔案：open OUT_FILE ">outputfile.txt";
$number=(IN_FILE);
chomp($number);　　#刪剪這一行結尾的新行

6.陣列
(1)字義陣列：　　　my @array;
(2)取陣列變數值：　my $value1=$array[0];
(3)$#array :返回陣列最後一個元素索引，即array length-1
(4)$#array==0 :陣列中有一個元素　　$#array=-1 :空陣列
(5)陣列表示式　　：@array=(1,$data,"same", @message);
(6)列印陣列：　　　print "The names are : @array.${array[1]}n"
(7)qw :my @array=qw(alpha beta gamma); #注意，qw運算子中沒有逗號分隔,如果放了逗號它們就變成了單詞的一部分
(8)資料操作函式：
push: push(@array,"push word"); #將元素加在array尾
pop : my $popValue=pop(@array);　#將最後一個元素彈出
shift: my $var=shift(@array); #將第一個元素拿出來
unshift: unshift(@array,$var)l #將$var加在第一個位置

(9)splice函式　　刪除或者替換陣列的一部分．splice @array,$offset;
(10)
split：分解字串並將它轉成陣列 :my @names=split /t/,$full_name;
join　：與split相反，取出陣列元素，將它們聯合在一起　　$result=join("t",@arrayData);
(11) qw():建立單引號引用的單詞表，單詞之間用空格隔開　　

[@more@]