perl学习(2) 基本数据类型等
1.1.数字
所有数字格式内部一致，全部是double
7.25e45 == 7.25 * 1045
5.25
6.00
2+3 #2+3，5
5.1-2.4 #5.1-2.4，2.7
3*12 #3*12，36
14/2 #14/2，7
10.2/0.3 #10.2/0.3，34
10/3 #通常是浮点除，3.33333… …
还提供了模数运算符（%）。10%3 的值是10 除以3 的余数。两个操作数首先变成它们对应的整数值，如10.5%3.2 转换为10%3后再计算。
指数操作符，两个*号表示，如2**3，表示2 的3 次方，等于8
1.2.字符串
长度无限
Perl 中NUL 字符没有特殊的含义。Perl 能计算长度，不用靠null 来判断字符串是否结束。
有两种类型的字符串：单引号字符串和双引号字符串
单引号字符串中的\n 不会被当作换行符来处理，其仅仅是两个字符\和n。只有在反斜线(\)后面接的是\或单引号’，其才会被当作特殊符号来处理。
双引号字符串和在其它语言类似
连接符 .
重复符 x
“hello”. “world” # 同于“helloworld”
“hello”. ‘’. “world”#同于“hello world”
‘hello world’. “\n” #同于“hello world\n”
“fred”x 3 # “fredfredfred”
“barney”x (4+1) # “barney”x 5, “barneybarneybarneybarneybarney”
5 x 4 #实际上是“5”x 4, “5555”
字符串和数字转换：
大多数情况下，Perl 将在需要的时候自动在数字和字符串之间转换，完全依赖于标量值之间的的操作符
“12”* “3”将给出36
“12fred34”* “3”将给出36 //后面的非数字部分和前面的空格将被去掉
“fred" 将给出0 //当一个不含任何数字的字符串将别转换为0
1.3.变量
$+标示符（由字母，数字和下划线组成，但不能由数字开头）
$fred = 17; #将17 赋给变量$fred
$barney =‘hello’; #将五个字母的字符串‘hello’赋给$barney
$barney = $fred + 3;# 将$fred 的值加上三赋给$barney (20)
$barney= $barney*2;#将变量$barney 乘2 再赋给$barney (40)
$fred+=5; #利用二元赋值操作符
$barney*=3;
$str .= “”’; #同上
1.4.print
print “hello world\n”; #输出hello world，后接换行符
print “The answer is ”;
print 6 * 7;
print “.\n”;
print “The answer is ”,6*7, “.\n”;
当一个字符串由双引号括起来时，如果变量前没有反斜线，则变量会被其值内插，也就是说字符串中的标量变量将被其值替换。
不使用双引号也可以得到相同的结果。但使用双引号更方便些。
在$符号之前使用\符号，变量不会被内插。
$mean = “brontosaurus steak”;
$barney = “fred ate a $meal”; #$barney 现在是“fred ate a brontosaurus steak”
$barney = ‘fred ate a’. $meal; #同上
print “The name is \$fred .\n”; #打印出美圆符号，变量不会被其值替换
变量名将是字符串中有意义的最长的那一个。
$what="brontosaurus stea";
print "fred ate $n $whats.\n"; //fred ate 3 .
print "fred ate $n ${what}s.\n" //fred ate 3 brontosaurus steas.
1.5.操作符
C 和Perl 中都有的操作符有相同的优先级;
对于数字的比较，Perl 提供了<, <=, = =, >=, != 这些操作符
对于字符串比较，Perl 有如下的一些有趣的字符串比较符：lt ,le ,eq ,ge, gt, ne。
35 == 35.0 #true
‘35’eq‘35.0’ #false (按照字符串比较)
1.6.if
if($name gt ‘fred’){
print “‘$name’comes after ‘fred’in sorted order.\n”;
}else{
print “‘$name’does not come after ‘fred’.\n”;
print “Maybe it’s the same string, in fact.\n”;
}
Perl 不同于其它的一些语言，它没有Boolean 类型，但是可以使用if($is_bigger){… }、if(!$is_bigger){… }
● 如果值为数字，0 是false；其余为真
● 如果值为字符串，则空串(‘’)为false；其余为真
● 如果值的类型既不是数字又不是字符串，则将其转换为数字或字符串后再利用上述规则
1.7.while
while 语句可以循环执行其内部的一块代码直到其条件非真.
#! /usr/bin/perl -W
$num=1 ;
while($num < 10)
{
print $num,"\t" ;
$num+=1;
}
print "\n" ;
输出：1 2 3 4 5 6 7 8 9
1.8.STDIN
行输入操作符<STDIN>,由换行符结束（return）
#! /usr/bin/perl -W
$line = <STDIN>;
if($line eq "\n")
{
print "That was just a blank line!\n";
}
else
{
print "That line of input was: $line";
}
结果：That was just a blank line!
| 使用chomp 函数去掉\n $text = “a line of text\n”; #也可以由<STDIN>输入 chomp($text); #去掉换行符(\n)。
|
用在列表中
chomp (@lines = <STDIN>); #读入所有的行，不包括换行符
读入所有的行，并去掉换行符
1.9.undef,defined
变量在第一次赋值前有一个特殊值undef，如果使用时是“数字”，则表现为0，如果是“字符串”，则表现为空串。
要分辨其是undef 还是空串，可以使用defined 函数，它将在为undef 时返回false，其余返回true。
#! /usr/bin/perl
$madonna = undef;
if(!defined($madonna))
{
print "madonna undef\n";
}
else
{
print "madonna not undef\n";
}
结果为：madonna undef
如果想声明自己的undef 值，可以使用undef。