本节学习Perl中的类型转换
Perl中的类型转换
在多数语言中，操作子的类型决定操作符的操作，比如， 两个数字相加，得到一个数字，两个字符串相加得到一个新的字符串。
Perl 中，恰好相反，操作符决定如果操作操作子。也就是说，如果你把两个值相加，如果这两个值不全是数值，这两个值先自动转换为数字，然后再相加。
C 语言中，如果把这个转换过程称为casting ，需要你来显式的转换，Perl中，Perl 自动为你完成。
Perl 中，至于某个值是数字还是字符串，Perl会根据上下文的需要（即操作符）进行转换。
数字转换到字符串再简单不过了，把数字放到引号中即可。
字符串到数字的转换就有些麻烦了。如果字符串仅有数字构成，去掉引号就好了。否则， Perl尽可能多的从字符串的左边连续的取可以当作数字的值，知道遇到非数字字符为止。
我们来看几个具体的例子：
Original As string As number
42 "42" 42
0.3 "0.3" 0.3
"42" "42" 42
"0.3" "0.3" 0.3
"4z" "4z" 4 (*)
"4z3" "4z3" 4 (*)
"0.3y9" "0.3y9" 0.3 (*)
"xyz" "xyz" 0 (*)
"" "" 0 (*)
"23\n" "23\n" 23
以上例子中，因为字符串中的有些字符被舍弃，除了最后一个，Perl都会给出警告。当然，在你使用了 use warnings 的前提下。
例子
我们用代码来验证一下。
use strict;
use warnings;
my $x = "4T";
my $y = 3;
用作字符串的连接时，数字自动转换为字符串。
print $x . $y; # 4T3
用作数字相加时，字符串自动转换为数字。
print $x + $y; # 7 # Argument "4T" isn't numeric in addition (+) at ...
警告：参数不是数值
当Perl 把字符串转换为字符时，如果字符串中不完全是数字，即不是简单转换，Perl就会给出以上警告。
Perl 中常见的警告和错误还有很多，比如。 全局需要声明命名空间 及使用了未声明的变量.
怎样判断一个变量是不是数字？
Perl 中，并没有 is_number 函数，来告诉你一个变量是不是由数字构成，但是 你可一用looks_like_number函数来实现此功能。
该函数在Scalar::Util 模块中。 用法参考如下例子。
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);
print "How many loaves of bread shall I buy? ";
my $loaves = <STDIN>;
chomp $loaves;
if (looks_like_number($loaves)) {
print "I am on it...\n";
} else {
print "Sorry, I don't get it\n";
}
