数值和字符串

数值

  • 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'
'malongn'               # 这里没有换行
"malongn"               # 换行了
'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"."xyzn"    # 输出ABCxyz
print "abc"."xEyzn"    # 输出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,自带换行符
内容来源于网络如有侵权请私信删除
你还没有登录,请先登录注册
  • 还没有人评论,欢迎说说您的想法!