perl 杂记 Ⅱ

关于自己在学习过程中的一些杂七杂八的东西（持续更新）^_^：

1.关于perl表达式($temp -= 32) *= 5/9的解释

2.perl 怎么双引号，单引号等价结构

3.内置变量$"的解释

4.perl 中的here document

5.perl正则表达式在标量context和列表context下的返回值

6.数组与hash 切片

7.计算hash中键值对的个数

==》1.对于表达式（$temp-=32)*=5/9的理解：以前没有看过类似的写法 根据优先级先将（）中的先计算 $temp=$temp-32 再将得到的$temp进行如下计算$temp*5/9 最后赋给$temp 

code:
#!/usr/bin/perl
use warnings;
use 5.010;
my $temp=50;
($temp -= 32) *= 5/9;
print $temp ,"\n";
output:
10

==》2.perl中单引号双引号等 一些等价写法

qx/command/ 中的$var 为被perl替换 而qx'command'中的$var 不会被替换 完全的传给shell处理

==》3.$"内置变量的解释

$" 是数组中元素的分隔符，默认是空格。通过下面代码就可以知道其具体含义。

code:
#!/usr/bin/perl
use warnings;
use English;
use 5.010;
my @test = qw(one two three);
print "@test\n";
$"=":";
print "@test","\n";
$LIST_SEPARATOR="--";
print "@test","\n";
运行结果：
one two three
one:two:three
one--two--three

如果要使用$LIST_SEPARATOR 这种比较直观的变量名，必须加上use English。

==》4.perl 中的here document

下面是测试代码及注释：

here document 一般用于cgi编程中输出大量html代码

code:
#!/usr/bin/perl
use warnings;
use 5.010;
my $test="just test"; # 定义一个变量后面测试用
print <
# 开始第一个here document aa 是结束符 这里未加引号，注意最后要加上分号

$test
welcome to my web site!!

aa
# 两个aa之间的文本是要输出的内容，注意这里由于在终结符不加引号的情况下可以进行变量替换的 看后面允许那个结果
print "-" x 30,"\n";
print <<'hello';
# 第二个here document 开始 与前面不同的是这里的终结符加上了单引号 不进行变量替换

$test
welcome to my web site!!

hello # 这里结束第二个 here document 从运行结果中可以看出未进行变量替换。
print "-" x 30 ,"\n";
print <<"" x 3;
# 第三个here document 开始 注意这里的结束符是空行，""代表空行 x 3 表示文本重#复3 次
Hello word!

print "-" x 30 ,"\n";
print <<`exc` x 3;
#第四个here document 开始 反引号表示文本内容是命令，用于执行且必须是命令 不然会报错，这里x 3 的作用和上面说的一样 表示重复三次。
echo -n Today is:
date
exc
运行结果：

just test
welcome to my web site!!

------------------------------

$test
welcome to my web site!!

------------------------------
Hello word!
Hello word!
Hello word!
------------------------------
Today is:2011年 06月 04日 星期六 10:58:08 CST
Today is:2011年 06月 04日 星期六 10:58:08 CST
Today is:2011年 06月 04日 星期六 10:58:08 CST

==》5. perl正则表达式的list context 和scalar context的会返回值

在标量上下文如果匹配成功返回1，匹配失败返回0

在list 上下文返回匹配的部分作为数组的元素 看下面代码：

code:
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use 5.010;
my  $string = "password=xyzzy verbose=9 score=0";
my $char="avm=efg=abc";
my @test=$char=~m/[a-z]+/g;
print 'list:',"@test","\n";
my %hash = $string =~ /(\w+)=(\w+)/g;
#这里将获得的链表构造成一个hash
my @h = $string =~ /(\w+)=(\w+)/g;
print Dumper(\%hash);
print "@h","\n";
运行结果：
list:avm efg abc
$VAR1 = {
'verbose' => '9',
'password' => 'xyzzy',
'score' => '0'
};
password xyzzy verbose 9 score 0

==》6.数组与hash切片 

通过切片可以取出数组或hash中某个特定的元素 下面是代码：

code:
#!/usr/bin/perl
use warnings;
use strict;
use 5.010;
my @tl=qw(one two three);
my %th=(
        one=>1,
        two=>2,
        three=>3,
);
my ($tl1,$tl2)=@tl[0,1];
my ($th1,$th2)=@th{"one","two"};
#注意这两种写法 hash切片前面是@ 不要写成% 因为返回的是一个列表 所以左边要在列#表上下文
print '$tl1:',$tl1,"\n";
print '$tl2:',$tl2,"\n";
print '$th1:',$th1,"\n";
print '$th2:',$th2,"\n";
运行结果：
$tl1:one
$tl2:two
$th1:1
$th2:2

==》7.计算hash中键值对的个数

code:
#!/usr/bin/perl
use strict;
use warnings;
my %hash=(
        one=>1,
        two=>2,
        there=>3,
        four=>4,
        five=>5,
);
print scalar(%hash),"\n";
print 'The number of key:',scalar(keys %hash),"\n";#计算键值对个数
output:
4/8
The number of key:5

当你在标量环境里计算散列变量的数值的时候，它只有在散列包含任意键字/数值对时才返回真。如果散列里存在键字/数值对，返回的值是一个用斜线分隔的已用空间和分配的总空间的值组成的字串。这个特点可以用于检查 Perl 的（编译好的）散列算法在你的数据集里面性能是否太差。