純量變數是Perl裡最基本的一種資料型態，它可以代表一個字元、字串、整數、甚至浮點數，而Perl把它們都看成是一樣的東東! 你甚至可以混著用，不可思議吧。例如：

# 井字號開頭的後面都是註解。
# 純量變數以$開頭。
# my 是一種宣告變數的方式，它可以使變數區域化。
# 宣告變數時若不加 my 或 local 則Perl會把它當作全域變數使用。
# 習慣上，我們會將字串用雙引號括起來，而數值就不用加引號。
my $x="abc";
my $x=123;
my $x=4.56;

那麼程式怎麼判斷這是數值還是字串呢? 其實不是程式判斷，而是你自己要判斷。Perl分別提供了一堆運算子來處理數字和字串，你必須知道這個變數是數值或字串，才能使用個別的運算子來對變數做運算。我分別列出字串運算子和數值運算子，好讓大家能區分它們的不同。

雜湊陣列也叫做相關陣列，它和一般陣列沒什麼不同，差別只是在它的索引值用的是字串，而非一般陣列所用的整數值， 因此相關陣列不像一般陣列一樣有次序的概念，它沒有所謂的第一項資料這種說法。它就相當於把一堆變數組合成一個group，然後我們可以透過索引字串存取這個group每一個元素的值。 相關陣列的宣告及使用方式如下：

# 相關陣列是以 % 符號開頭的。
my %hash;

# => 這個符號是Perl5新增的，是為了相關陣列量身定做的，
# 因為索引和元素值都是純量，若使用 => 這個符號，
# (索引=>元素值) 兩兩對應，就不容易發生失誤。
my %hash=("i1"=>"aaa","i2"=>"bbb","i3"=>"ccc");

# 上面這行的效果和下面這行是一樣的。
my %hash=("i1","aaa","i2","bbb","i3","ccc");

# 下面是存取每個元素的方法，注意是用大括號把索引括起來哦。
# 習慣上索引值用單引號、元素值用雙引號括起來。
$hash{'i1'}="aaa"; $hash{'i2'}="bbb"; $hash{'i3'}="ccc";

# 下面是使用相關陣列的三個例子：
foreach $key (keys %hash) {
print "$hash{$key}\n";
}
foreach $value (values %hash)
while(($key,$value)=each %hash)


Perl 5新增了參考指標的資料型態，使Perl和C一樣可借由指標建立一些複雜的資料結構。 普通程式是用不到指標這玩意的，下面也只是簡單介紹一下，看不懂的人可不必深究。

☉如何取得變數的位址?

# 注意：純量變數前面要加個 $ 字號，這一點和C語言不一樣哦。
for($i=0; $i<=10; $i++) {Code Segment}

# foreach 是承襲UNIX的shell script來的，
# 第一個引數是純量變數，第二個引數要用括號括起來，裡面是一個純量陣列，
# 顧名思義它就是把陣列中的每個元素依序傳給第一個引數，直到全部傳完。
# 它和 for($i=0; $i<=$#array; $i++) 用法雖然不同，但目的都是要取出陣列的每個元素。
foreach $i (@array) {Code Segment}

# 其實在Perl中，for和foreach是可以混著用的，就看個的人習慣了。
# 下面這行就等於上面第一個敘述，不過簡潔多了，大家可以試著用用看。
for $i (0..10) {Code Segment}

# while控制迴圈和後置迴圈。
while($i<=10) {Code Segment}
do {Code Segment} while(Expression);

# Perl也有和C語言的break和continue一樣的指令，Perl叫它做 last 和 next (較口語化)。
# last是跳出現在所在的迴圈，next則是跳過下面的指令直接執行下一次的迴圈。
while(chomp($i=<STDIN>)) {
next if ($i == 5);
last unless ($i > 10);
}

Perl還有提供label(標記)的語法，也就是 goto 指令，不過有經驗的programer並不喜歡用它，我也不建議大家使用，所以就此按下不講。有興趣的人請自行查閱。 還有一點值得注意的是Perl沒有提供像C語言一樣的 switch 敘述，不過Perl的pattern match的功能非常強，所以我建議你直接用 if else 敘述來做就好了。

# Perl不會自動去掉結尾的CR/LF，跟C語言不同，所以要用chomp函數幫你去掉它。
# 大家常常會忘記這個動作，導致結果跟你想的不一樣，要特別注意一下。
$input=<STDIN>; chomp $input;
# 下面是較簡潔的寫法。
chomp($input=<STDIN>);


# 不用再指定變數的data type，這樣不是比printf()方便多了嗎?
print "Scalar value is $x\n";
# . 是字串加法的運算子，上下這兩行是等效的。
print "Scalar value is " . $x . "\n";

# 輸出到檔案的方法。
print FILE "print $x to a file.";

# 下面是print的特殊用法，學自shell script的用法：
print<<XXX;


這招叫做 here document，XXX可以是你取的任何識別字，
在識別字之間的字都會按照你所寫的樣子輸出，就像<pre>標籤一樣。
而當一行的開頭是XXX你取的這個識別字時，才會停止輸出。

Perl 也有和 C 一樣以 "\" 開頭的特殊字元：

      \t    tab
      \n    newline
      \r    return
      \f    form feed
      \b    backspace
      \a    alarm(bell)
      \e    escape
      \033  octalchar
      \x1b  hex char
      \c[   control char
      \l    lowercase next char
      \u    uppercase next char
      \L    lowercase till \E
      \U    uppercase till \E
      \E    end case modification
      \Q    quoteregexp metacharacters till \E

另外需要說明的是 Perl 融合了 unix shell script 的使用慣例，以雙引號("")括起來的字串會先經過展開，但反斜線(\)後面的字元則不展開，當作一般字元看待。 而以單引號('')括起來的字串完全不會展開，以反單引號(``)括起來的字串會把它當作命令列指令一樣執行，等於system()一樣。 初學者常常會搞混，但習慣之後就會覺得不這樣分清楚反而不行哩。舉個例吧：

$x="ls -l";
print "$x";             # Output ls -l
print "\$x";            # Output $x
print '$x';             # Output $x
print `$x`;             # Output files in this directory

Regular Expression通常是用來尋找特定的字串樣式(pattern)，也就是所謂格式辨認(pattern-matching)的功能。 它的運算子是『=~』和『!~』，可以把它念做match和not match。

Syntax: $string =~ /regular expression/expression modifier

例：$sentence =~ /Hello/

/abc/

tr/SEARCHLIST/REPLACEMENTLIST/cds