标量的概念
Perl使用标量来称呼单个事物,标量是Perl中最简单的一种数据类型。标量可分为两种:数字和字符串。在Perl程序内部,这两种类型是可以内部转换的,所以对于Perl来说,所有的标量没有本质区别。
数字直接量
数字直接量是某个数字在Perl源代码中的写法,分为浮点数直接量与整数直接量,分别表示浮点数与整数。其写法与普通的数字没有明显区别。当数字很长时,可以在数字中加入下划线分隔,这样做不会改变原数字的意义。例:
2015 -2 3.14159 123_456_789 #各种数字直接量
字符串
字符串就是一个字符序列,其可以由任意长度字符任意组合而成。最短的字符串不包含任何字符,即空字符串。字符串的内容一般为数字,大小写字符,各种符号,以及其他特殊内容等。
同数字直接量,Perl中字符串直接量也有一定的书写方式。其分为两种不同的形式:单引号内的字符串和双引号内的字符串。
单引号内的字符串直接量
单引号内的字符串直接量指使用一对单引号圈引的一个字符串。单引号可以让Perl识别字符串的开头与结尾,即起到划定范围的作用。在单引号内,除了反斜线和单引号,其他所有的字符都代表其本身而没有其它含义。所以单引号一般用于安全地书写纯字符内容。如果需要表示单引号或反斜线本身,需要在其前面加上一个反斜线,表示转义。例:
‘fred’ #字符串fred
‘’ #空字符串
‘\\n’ #字符串\n
‘\’\\’ #一个单引号和一个反斜线
双引号内的字符串直接量
双引号内的字符串直接量使用一对双引号圈引。在双引号中主要有两大功能特性:反斜线转义与变量内插,变量内插将在下文中提及。反斜线转义指用一个反斜线加上某个字符,可以表示许多特殊的意义。常用的反斜线转义有:
\n #换行符
\L #将后面所有字母转为小写
\l #将下个字母转为小写
\U #将后面所有字母转为大写
\u #将下个字母转为大写
\E #结束\U与\L的作用范围
数字与字符串操作符
Perl提供了各种常用的数字运算操作符与字符串操作符。常用的数字操作符有:
3+2 3-2 3*2 3/2 #3加/减/乘/除2
3%2 #3除2取余
3**2 #3的2次方
int(3/2) #3除2取整
注意:取余操作符会先对两边的操作数都进行取整再进行运算。int是取整函数,可以对其参数进行取整。
字符串操作符用于对字符串进行处理。常用的有“.”和“x”操作符。“.”是字符串连接操作符,其可将多个字符串无缝连接,得到一个更长的字符串。“x”是字符串重复操作符,其可将操作符左边的字符串,以右边操作数的次数进行重复连接。当右边的操作数不为整数时,会先对其取整再进行连接。如果右边的操作数为0,则会得到空字符串。例:
‘f’ . ‘r’ . ‘e’ .‘d’ #得到‘fred’
‘fred’ x 3 #得到‘fredfredfred’
各种操作符之间具有一定的优先级,在一般情况下,可以利用括号的最高优先级,将先运算的部分放入括号内,从而不会出错且清楚直观。
数字和字符串之间的自动转换
Perl会根据操作符的需要,自动地在数字和字符串这两种标量类型之间进行转换。如果操作符需要的是数字,就会将其两边的操作数视为数字处理,而如果操作符需要的是字符串,则会将其两边的操作数视为字符串处理。字符串转为数字时,字符串的非数字部分会被略去,即字符串必须以数字开头,从第一个非数字字符开始的全部内容会被略去。而如果字符串被略去了所有字符,则会被转换为数字0处理。例:
‘1ab’ #会被转换为数字1
‘ab1’ #会被全部略去,转换为数字0
‘ab’.1 #右边的1会被转换为‘1’
标量变量
变量就是存储一个或多个值的容器,而标量变量就是只存储一个标量值的容器。后续还有数组变量和哈希变量等,这些都是可以存储多个值的变量。变量的名称在整个程序中保持不变,但其值可以不断改变。
标量变量以“$”开头,表示“取单个东西”或“取标量”,这个符号也称为“魔符”。$后接变量的名称,其属于Perl标识符的一种。标识符是Perl中的一类用于定义许多事物(如这里的标量变量)名称的一串字符,其必须由字母或下划线开头,后可以接多个字母、数字或下划线,一般不建议使用全大写标识符,因其容易与Perl的特殊标识符相冲突。习惯上标识符应全小写。例:
$m $n $i #一些标量变量
变量的赋值与双目赋值操作符
单个标量可以被存储进标量变量中,这样的操作就称为对变量赋值。Perl中的赋值操作符为等号,等号的左边为变量,右边为值,表示将右边的值赋值给左边的变量。赋值操作时,会先对赋值式右边的内容进行运算、取值,最后再赋值给变量,即变量存储的是最终的计算结果或字符串。Perl中,使用分号来分隔每一行的程序源代码。例:
$n=1; #$n为1
$m=1+2; #$m为3
$i=$n+$m; #$i为4
$a=‘abc’ . ‘def’; #$a为‘abcdef’
赋值操作时常常需要对一个变量的值进行运算,再将结果存回原变量中,从而实现了变量内容的更新。这种操作十分常见,所以Perl为其提供了简写,即使用双目赋值操作符。双目赋值操作符由一个运算操作符加上等号组成,操作符的左边为变量,右边为运算符的操作数。例:
$n+=3; #等同于$n=$n+3;
$m**=3; #等同于$m=$m**3;
$i.=‘fred’; #等同于$i=$i .‘fred’;
“.=”又称追加操作符,由字符串连接符和等号组成。可以在原变量的后面添加字符串,再存入原变量。
标量变量内插
上文提到,双引号圈引的字符串中可以使用变量内插。变量内插即将变量书写在双引号圈引的字符串中。在这个字符串被调用时,所有内插的变量都会被替换为该变量当前的值。如果不想使用变量内插,可以用单引号圈引字符串,或使用反斜线转义来表示$本身。进行变量内插时,Perl会尽可能使用最长且合法的变量名称,所以当变量名后紧跟着一些字符时,就会对变量名造成歧义。解决办法为:用一对花括号围住变量名,来限定其范围。如果整个字符串只由一个标量变量组成,则可省略该变量两边的字符串引号,这个简写常用于print后(稍后提到)。例:
$n=3;
$m=“1 2 $n”; #$m为“1 2 3”
$q=“\$n”; #$q为“$n”
$r=“ab${n}cd”; #$r为“ab3cd”
、chomp与print操作符初步
被称为行输入操作符,其作用为从键盘上读取一行(或多行)用户输入。读取的内容可以赋值给变量,从而进行其他操作。输入内容完毕后,按回车键结束输入,从而继续进行下面的程序。
在使用行输入操作符录入数据时,由于数据录入以回车键结束,所以录入数据的每一行的最后一定会被带上一个换行符。此时如果需要去掉换行符,就可以用到chomp操作符。chomp操作符可以作用于单个字符串,去掉其末尾的一个换行符。最常见的用法是与赋值式连用,先赋值,再去掉其末尾换行符。chomp本质上是函数,会返回去掉的换行符数,但这个返回值没有太大意义。
print操作符可以输出任何指定的内容到屏幕。在只需要输出一个标量变量时,可以省略变量两边的字符串引号。例:
print’HelloWorld!’; #输出“Hello World!”到屏幕
chomp($n=); #从键盘读取一行输入并存入$n,并去掉其末尾的换行符
print$n; #输出$n的内容到屏幕,省略引号
比较操作符与逻辑运算初步
Perl中有一套可以用于数字比较和字符串比较的操作符。字符串比较按照ASCII编码的顺序决定先后。这些操作符可以返回真值或假值,从而被用于逻辑运算。常见的比较操作符列举如下:
比较 数字 字符串
等于 == eq
不等于 != ne
小于 < lt
大于 > gt
小于等于 <= le
大于等于 >= ge
常见的比较操作举例:
2==2 #True
‘abc’ eq‘abc’ #True
2>3 #False
3!=3 #False
Perl中有一整套的逻辑运算操作符,可以用来进行逻辑运算。常用的逻辑运算操作符列举如下:
|| #逻辑或
&& #逻辑与
! #逻辑非(单目取反操作符)
and #低优先级的逻辑与
or #低优先级的逻辑或
xor #逻辑异或
not #低优先级的逻辑非
简单的逻辑运算操作举例:
(1==2)||(1==1) #True
1==2 or 1==1 #True
(1==2)&&(1==1) #False
1==2 and1==1 #False
!(1==1) #False
布尔值
Perl中,任何标量值都有逻辑上的真假之分。当一个标量值作为逻辑运算的真假值进行处理时,这个值就称为布尔值。布尔值的真假由以下规则来判定:
如果标量值为数字,则0为假,其他为真。
如果标量值为字符串,则空字符串和‘0’为假,其他为真。
undef与变量值为undef的变量为假(详见“undef值”)。
布尔值有其默认的真假返回值。如果是真值,则默认返回的布尔值为1,如果是假值,则默认返回undef。例:
$n=1==1; #逻辑真值,比较操作符返回的布尔值为1,即$n为1
$m=1!=1; #逻辑假值,比较操作符返回的布尔值为undef,即$m为undef
if控制结构
if属于Perl的控制结构语句之一,即if条件语句控制结构。其代码由三部分组成:关键词、条件语句和代码块。关键词即语句名称if,条件语句是一个能返回布尔值的表达式,如逻辑运算式或标量变量等,其由一对小括号围住。代码块由一对花括号围住,在条件语句返回布尔真值时执行。
如果有多个判断条件需要依次判断时,可以继续使用elsif作多个追加判断,其用法类似于if。else可以在所有判断条件都不符时执行其代码块。例:
if($n>$m){
print”$n>$m”; #如果$n>$m,就执行这里的代码块
}elsif($n<$m){
print”$n<$m”; #如果$n<$m,就执行这里的代码块
}else{
print”$n=$m”; #如果上面都不符合,则执行这里的代码块
}
while控制结构
while是Perl中五大循环块之一,属于控制结构语句。其代码类似于if,也由关键词while、条件语句和代码块组成。while控制结构会先判断条件语句是否为真,如果为真,就执行代码块,完成之后会再次不断地进行这一循环,直到条件语句返回假,此时跳出while循环。例:
$m=10;
while($m){
$m-=1;
print$m; #当$m返回布尔真值时(即不为0时),不断执行这里的代码块,直到$m为0导致条件语句返回假时,跳出此代码块
} #结果为输出9到0这十个数字,$m为0时跳出循环
如果不小心运行了无限循环程序,可以按下ctrl+C强制终止程序运行。
undef值
Perl中有一个特殊类型的标量值,即undef值。undef的含义为未定义的,所以undef值即未定义值。它既不是数字也不是字符串,但其可以在需要时被转化为这两者进行处理。如果undef被当作数字使用,则其会被转化为0,而如果其被当作字符串使用,则会被转化为空字符串。当一个变量未被赋值时,这个变量的初始值就是undef,这是undef最常出现的情况。例:
$n+=1; #$n的undef值表现为0,所以结果为1
$m.=’a’; #$m的undef值表现为空字符串,所以结果为‘a’
樱雨楼
完成于2016.1.1
最后修改于:2016.1.24