纯量变数是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