perl学习(2) 基本数据类型等

1.1.数字

所有数字格式内部一致，全部是double

7.25e45?? == 7.25 * 10⁴⁵

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 worldn”

“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 worldn”; #输出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 textn”; #也可以由<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 undefn";

}

else

{

        print "madonna not undefn";

}

?

结果为：madonna undef

如果想声明自己的undef 值，可以使用undef。