数值和字符串
数值
- perl中以双精度(浮点数)方式保存和运算数值的方式
就算写的是整数,在内部也会转换成等效的浮点数类型保存。
但在perl内部,有些运算会将浮点数转换成整型进行,而且也有integer编译器可以强制编译成整型。
- perl中整数的表示方式
有3种方式:
123
0123
61_123_234
这里使用下划线(_)代替逗号表示千分位,因为perl中逗号有特殊意义。
- 算术运算
+ - * / % **
**
的优先级在这里最高。
取模时,先两个数取整,再取模。例如5.2 % 2.1
等价于5 % 2
。
多个取幂符号时,**
的优先级是从右向左进行的。
3 ** 4 ** 2 # 3 ** (4 ** 2) = 3的16次方
单双引号和反引号
perl对待单双引号的方式和shell有点类似。
- 单引号内,只有反斜线的转义效果存在(如
\n
不再是换行),其它全都当作字面符号(单引号自身除外) - 双引号内,反斜线、反斜线序列(
\n
,\t
...)、变量替换都允许 - 反引号内,内容会交给shell执行
'malong'
'malong\'s girl friend'
'malong\n' # 这里没有换行
"malong\n" # 换行了
'malong
girl friend' # 换行了,因为这里的换行是字面符号,不是\n
'malong\\n' # 换行了
"malong $var" # 变量替换
有以下反斜线序列(转义序列):
\n
\r
\t
\l # 将下个字母转换为小写
\L # 将后面的多个字母都转换为小写,直到遇到\E
\u # 将下个字母转换为大写
\U # 将后面的多个字母都转换为大写,直到遇到\E
\Q # 和\E之间的所有字符都强制当作字面符号
\E # \L、\U和\Q的结束符号
但即使没有"\E",到了字符串结束的地方,转义序列就会结束。例如:
print "\Uabc"."xyz\n" # 输出ABCxyz
print "abc"."x\Eyz\n" # 输出abcxyz
反引号内的字符串会交给shell执行。这是和操作系统交互的一种方式,支持操作系统的管道、重定向等特性。另一种方式是使用system函数。
$mydatetime = `date +"%F %T"`
print $mydatetime,"\n";
默认情况下,反引号内的内容会被perl先按照双引号的方式进行解析,然后传递给操作系统的shell执行。所以,当有变量替换时会进行变量替换:
$name="malongshuai";
$msg=`echo $name`; # 替换为echo malongshuai,然后交给shell
print $msg;
如果不想先被perl解析,可以使用qx和单引号结合的方式,关于qx,见下文。
$name="malongshuai";
$msg=qx'echo ha $name hei'; # 不会替换为malongshuai,而是将$name替换为空交给shell
print $msg;
引号的文本形式:q、qq和qx
- q等价于单引号
- qq等价于双引号
- qx等价于反引号
q(hello world) # 等价于'hello world'
qq(hello world) # 等价于"hello world"
qx(echo hello world) # 等价于`echo hello world`
上面的括号可以替换为其它符号,只要前后能配对(特指括号类)或者一致即可:
qq{ hello }
qq! hello !
qq# hello #
qq% hello %
字符串连接和重复
字符串连接使用点(.)。
下面是等价的:
abc.cde
abccde
字符串重复使用小写字母"x",后跟一个重复倍数。如果倍数是一个小数,如3.2,则会取整。如果倍数小于1,则取整为0,所以倍数为0,返回空。
"abc" x 3
"abc" x 3.2
都将输出"abcabcabc"。
"abc" x 0.4 # 返回空
"x"符号左边会强制转换为字符串。
03 x 3 # 返回333
"03" x 3 # 返回030303
3 x 3 # 返回333
3.2 x 3 # 返回3.23.23.2
数值和字符串的类型自动转换
什么时候转换,以及向哪个方向转换,取决于操作符。
例如,算数运算符(+-*/
等)需要的是数值,会强制转换为数值。"."操作符需要的是字符串,会强制转换为字符串。
"0333" + 22 # 返回355
"033".22 # 返回03322
033.22 # 返回2722,033表示8进制,转换为十进制为27(3*8+3)
perl变态的一个地方,数值开头的字符串也可以强制转换为字符串。但只能转换数值开头(允许前导空白)的字符串。
"12abc" * 3 # 36
"abc12" * 4 # 0
" 12abc" * 3 # 36
两种类型的操作符一起用的时候,会按照优先级进行运算:
"abc".5*3 # 返回abc15,乘法先运算
"abc".5 + 3 # 返回3,"."先运算
"abc".(5+3) # 返回abc8
heredoc
perl中也支持heredoc,所谓heredoc,即表示将后面的内容当作文档。既然是文档,就需要有文档起始符和文档结束符,分别标识文档从哪里起始,到哪里结束。
一般来说,所有支持heredoc的语言,文档起始符和文档结束符都必须相同(一般使用EOF或eof作为起始符和结束符),且结束符必须单独占行且顶格书写。
perl中支持的heredoc格式如下,以print为例:
print <<EOF;
line1
line2
line3
EOF
- 这里以EOF作为文档起始符和结束符
- 起始符EOF后面必须加上分号结尾,分号后的所有内容都忽略(即使它后面的不是注释内容)
- 结束符EOF单独占用一行,且顶格书写
- 起始符和结束符中间是怎样的数据,输出时就是怎样的数据
perl的heredoc还有自己的特性,可以为起始符加上单引号和双引号以及其它符号。加单双引号后的效果和一般单引号、双引号的能力是一样的:
- 单引号是强引用
- 双引号是弱引用
- 不加引号等价于加双引号
- 加反引号
`
,则将字符串放进shell环境执行
加单双引号:
$name="malongshuai";
print <<'EOF';
haha
\$name # 反斜线转义功能失效
$name # 变量无法替换
EOF
print <<"EOF";
haha
\$name # 反斜线成功转义
$name # 变量成功替换
EOF
加反引号:
print <<`EOF`;
date +"%F %T"
EOF
可以将heredoc直接赋值给变量:
$msg = <<EOF;
HELLO
WORLD
EOF
print $msg; # $msg不要加换行符,因为$msg是一个heredoc,自带换行符