Perl语言学习笔记（二） 标量数据

色破飞机

　　
第二章 标量数据
　　
　　标量（Scalar）：单件事物，数字或字符组成的串
　　
　　所有数字的内部格式都相同：总是按照“双精度浮点数”的要求来保存并进行运算。即，Perl中不存在整数值。
　　
　　浮点数直接量 ：没什么好说的
　　
　　整数直接量：可以用下划线将若干位数分开，如61298040283768可以写成61_298_040_283_768
　　
　　非十进制度整数直接量：0377八进制，0xFF十六进制，0b11111111二进制。0x1377_0B77。前置零的表示法只对直接量有效，但不能在字符串自动转换成数字时使用。
　　
　　数字操作符：取模操作符%先取整后再求余，10.5  % 3.2 和 10 % 3的计算结果相同。取模对负数的处理不同版本不一样。乘幂操作符以双星号表示，2 ** 3 = 8。
　　
　　字符串：字符串能够包含任何字符，所以可用它来对二进制数据进行创建、扫描于操作，读入一个图形文件或可执行文件到Perl的字符串变量里，改变它的内容，再写回去。有两种字符串直接量。
　　
　　单引号内的字符串直接量：单引号内所有字符都代表它们自己（包括换行符）。要表示反斜线和单引号本身，需要在前面加一个反斜线。
　　'hello\n'# hello 后面接着反斜线和n
　　'hello
　　there'# hello、换行符、there（总共11个字符）
　　'\'\\'# 单引号，紧接着反斜线
　　要注意的是，单引号内的\n并不代表换行字符，而是表示反斜线和n这两个字符。只有在后面是另一个反斜线或单引号时，前面的反斜线才有特殊的意义。
　　
　　双引号内的字符串直接量：跟其他语言里的字符串没什么两样，不过变量内插是个什么东西？
　　
　　字符串操作符：
　　用“.”操作符连接字符串（必须显式使用）： 'hello wrold' . "\n" # 等同于"hello world\n"
　　字符串重复操作符（小写字母x）： "fred" x 3# "fredfredfred"
　　    5 x 4 # "5555" 5先被转换成单字符的串"5"
　　     右操作数在使用前会先取整，复制次数小于1时，会生成长度为零度空字符串
　　
　　数字与字符串之间的自动转换：
　　自动转换取决于操作符需要什么类型的操作数。字符串转换成数字时会转换成等效的十进制浮点数。前置零的技巧只对直接量有效，不能用在字符串的自动转换上。用hex()或oct()来转换字符串。"12" * "3" 结果是36，字符串中非数字的部分以及前置度空白符号会被略过。"12fred34" * "3"结果也是36。完全不含数字的字符串被转换成零。"Z" . 5 * 7   # 等同于"Z35"。
　　
　　Perl内建警告信息：
　　运行程序时使用-w选项启用警告功能：$ perl -w my_program
　　使用#!指名每次运行都启用警告功能：#!/usr/bin/perl -w
　　在Perl 5.6及更高版本，启用warnings编译命令打开警告功能：
　　　　　　#!/usr/bin/perl
　　 　　　　use warnings;
　　启用diagnostics编译命令查看更详细的问题描述：
　　　　　　#!/usr/bin/perl
　　 　　　　use diagnostics;
　　启用diagnostics编译命令后，程序启动时会加载警告和详细说明到内存中，影响程序速度。所以可通过命令行选项-M仅在需要时再加载diagnostics编译命令：$ perl -Mdiagnostics ./my_program
　　
　　标量变量： 以美元符号（$）开头，后跟Perl标识符，区分大小写。
　　
　　慎选变量名称： :-)
　　
　　标量的赋值： 就用等号吧
　　
　　双目赋值操作符： o(∩∩)o...哈哈
　　
　　用print输出结果： 可以用print输出一系列用逗号隔开的值。
　　print "The answer is ", 6 * 7, ".\n";
　　这实际上是一个列表（list），列表是什么？
　　
　　字符串中的标量变量内插：
　　双引号圈内的字符串直接量能进行变量内插。就是说，字符串内的所有标量变量名，都会被替换为该变量的当前值。
　　$meal = "brontosaurus steak";
　　$barney = "fred ate a $meal";# $barney现在是"fred ate a brontosaurus steak"
　　$barney = "fred ate a " . $meal;# 另一种等效的写法，表明不用双引号也可以达成相同效果
　　没有被赋值过的标量变量会用空字符串来代替。
　　如果要打印的就是这个变量，则不必使用变量内插方式
　　　　print "$fred";# 双引号是多余的
　　　　print $fred;# 这样写比较好
　　变量内插也称双引号内插，因为它只会在双引号（而非单引号）里起作用。
　　如果要将美元符号本身放进双引号内的字符串，可以在它前面用反斜线转义。
　　$fred = 'hello';
　　print "The name is \$fred.\n";# 会输出$符号
　　print 'The name is $fred' . "\n";# 单引号，这样也行
　　进行内插时，Perl会尽可能使用最长且合法的变量名称。要是你想在内插值的后面，紧接着输出字母、数字或下划线，可能会碰上麻烦：当Perl检查变量名称时，它会违背你的本意，将后面的字符当作变量名称的一部分。解决办法很简单，和shell脚本一样，Perl里面我们可以用一对花括号将变量名围起来，以避免歧义。要不然，可以先把字符串拆成两半，再利用连接操作符接起来：
　　$what = "brontosaurus steak";
　　$n = 3;
　　print "fred ate $n $whats.\n";　　　　　　　　  # 不是steaks，而是$whats的值
　　print "fred ate $n ${what}s.\n";　　　　　　　　# 现在是用$what了
　　print "fred ate $n $what" . "s.\n";　　　　　　 # 另一种写法，比较麻烦
　　print 'fred ate ' . $n . ' ' . $what . "s.\n"; 　　　 # 写起来特别麻烦
　　另外还有一些可能会出问题的字符。在标量变量名称的后面，如果需要接上左方括号（是不是还有另一个符号？书上貌似有印刷错误），请在括号前面加上反斜线。要是变量名称后面的接的是单引号或两个冒号，也需要用同样的方式处理。也可以用上述方法中提到的花括号表示法来代替。
　　
　　操作符的优先级与结合性：
　　4 ** 3 ** 2# 4 ** （3 ** 2），得4 ** 9 （向右结合）
　　72 / 12 /3 # （72 / 12） / 3，得6/3，得2 （向左结合）
　　因为**是向右结合的，所以隐含的括号便放在右边。而/是向左结合的，因此隐含的括号便放在左边。
　　
　　比较操作符：
　　　　  ==, !=, <,  >, <=, >=
　　eq ne lt gt le ge
　　35 != 30 + 5# 假
　　'35' eq '35.0'　　  # 假 （当成字符串来比较）
　　' ' gt ' '# 真
　　'fred' lt 'free'        # 真
　　
　　if控制结构：
　　if ($name gt 'fred') {
　　print "'$name' comes after 'fred' in sorted order.\n";
　　} else {
　　print "'$name' does not come after 'fred'.\n";
　　}
　　可选的程序块周围一定要加上表示块界限的花括号。
　　
　　布尔值：
　　任何标量值都可以成为if控制结构里的判断条件。
　　Perl没有专用的布尔值。
　　数字0为假，其他数字为真。
　　空字符串（''）为假，其他字符串为真。
　　如果不是数字也不是字符串，先转换成数字或字符串再进行判断。
　　字符串'0'跟数字是同一个标量，字符串'0'是唯一被当成假的非空字符串。
　　
　　获取用户输入：
　　只要在程序代码中能使用标量值的位置写上行数入操作符<STDIN>，Perl就会从标准输入读进一行文字，直到换行符为止。<STDIN>返回的字符串，一般在最后都会跟有一个换行符。
　　
　　chomp操作符：
　　作用于一个内容为字符串的变量上，移除此字符串结尾的一个换行符（如果有，不论有几个）。
　　在Perl程序里，任何需要变量的地方都可以用赋值运算来替代。首先，Perl执行赋值操作，然后按你想要的任意一种方式使用变量。chomp常见用法：chomp($text = <STDIN>);  #读入文字，略过最后的换行符。
　　chomp返回值是实际移除的字符数。
　　使用chomp时可以不加括号，这是Perl的一项惯例：除非去掉括号会改变表达式的意义，否则括号用不用都可以。
　　
　　while控制结构：
　　$count = 0;
　　while ($count < 10) {
　　$count += 2;
　　}
　　花括号必不可少！
　　
　　undef值：
　　标量变量在首次被赋值之前，其初始值就是undef。undef作为数字，它会假设这是0，如果是字符串，它会假设这是空字符串。但是undef不是数字也不是字符串，它是另一种类型的标量值。
　　
　　defined函数：
　　使用defined判读某个字符串是undef而不是空字符串。如果是undef，该函数返回假，否则返回真。defined($madonna)
　　如果想自己创建undef值，可以直接使用同名的undef操作符：
　　$madonna = undef;
　　
　　
　　There is more than one way to do it!