perl学习笔记二

973114

　　数组：
　　特殊的数组索引：加入对索引值超过数组尾端的元素进行赋值，数组将会根据需要自动扩大，只要有可用的内存分配给数组。意外增加的数组元素的值为undef.
　　$a[0]="aa";
　　$a[1]="bb";
　　$a[900]="99";
　　有时需要找出数组中最后一个元素的索引值，如对数组rocks而言。其最后一个元素的索引值为$#rocks，元素个数$#rocks+1。
　　数组最后一个元素也可以用#rokcs[-1]访问。-1表示倒数第一的意思。
　　
　　列表直接量：

　　qw(quoted word)简写
　　如：qw(fred barney betty wilma dino)="fred","barney","betty","wilma","dino"
　　因为qw算是一种引用的形式，所以不能将将注释写在qw中。
　　有时人们喜欢每个元素单独成行，便于查看和增删：
　　qw(
　　fred
　　barney
　　betty
　　wilma
　　dino
　　)
　　前面的例子是以()作为界定符，其实perl还允许以其他的标点符号作为界定符。常用的写法为：
　　qw| fred barney betty wilma dino |
　　qw# fred barney betty wilma dino #
　　qw/  fred barney betty wilma dino /

　　链表的赋值：
　　($fred,$barney,$dino)=("flintstone","rubble",undef);
　　交换两个的值：($fred,$barney)=($barney,$fred)
　　赋值左边少于右边：($fred,$barney)=qw< flintstone rubble slate granite>;#忽略掉末尾两个元素
　　赋值 左边多于右边：($wilma,$dino)=qw[ flintstone];#$dino的值为undef
　　
　　@（at）字符(近似定义数组)：


　　注意：@giant=1..5;==@giant=qw/ 1 2 3 4 5/;
　　@copy=@quarry;是将quarrry中的数据全部拷贝到copy中，不是和C语言中指针一样，两者指向同一块空间。
　　push 和 pop操作符（处理数组的尾端，即把数组当作一个栈来用）：
　　pop沒什么好说的，注意一下：pop @array;==pop (@array);就行
　　push 有沒什么好说的，注意：push @array,1..10向array中添加10个元素。和pop一样,push也可以拿掉括号。
　　shift 和unshift操作（处理数组的首端，即把数组当作一个队列来用）：
　　类似pop和push操作，不细数了。
　　splice操作（添加或者移除数组中的某些值）：
　　pop-push和shift-unshift操作符都是针对数组的尾部进行的操作，splice则是对数组的中间进行操作。
　　splice有四个操作符号，他最多可以接受四个参数（最后两个是可选的）：
　　第一个为要操作的目标数组，第二个参数为操作的数组中的元素哦开始位置；
　　如果仅仅是这两个参数，Perl会把即定位置到末尾的元素全部取出来并且返回。

　　第三个参数为指定要操作的元素长度，

　　第四个参数是要替换的列表。之前我们看到的都是如何实现从数组中拿走元素，此时就可以补充新元素到数组中。

　　将第三个参数的值设置为0即可不删除地添加新的列表。

　　注意新插入元素的位置。
　　字符串中数组的内插：
　　简单例子：

　　需要注意的：写邮箱地址时用$email=”fred@bedrock.edu”//错误，可以写成$email=”fred\@bedrock.edu”.
　　另外一个需要注意的地方是：
　　如果需要在某一标量变量的后面接着写左方括号，则需要先将该方括号隔开，它才不至于为数组引用的一部分。如下：

　　foreach控制结构



#!D:\Perl\bin\perl
@rocks = qw / bedrocks slate Java /;
foreach $tmp(@rocks) {
print "ont rock is $tmp\n";
}
　　
　　注意：控制变量并非是列表元素的复制品——实际上，他就是列表元素本身。如果在循环中修改了控制变量的值时那么列表的值也将修改。如下：



#!D:\Perl\bin\perl
@rocks = qw / bedrocks slate Java /;
foreach $tmp(@rocks) {
if ($tmp eq "slate" ) {
$tmp="slate222222";
}
}
foreach $tmp (@rocks) {
print "$tmp\n";
}
　　

　　注意：同时控制变量再循环结束后会回到循环前面的值，如下:



#!D:\Perl\bin\perl
$tmp='tmp';
@rocks = qw / bedrocks slate Java /;
foreach $tmp(@rocks) {
print "tmp is $tmp.\n"
}
print "FINAL::tmp is $tmp.\n"
　　
　　执行结果：

　　重要的默认变量：$_
　　如果在foreach循环开头省略控制变量，Perl就会用$_（在很多情况下当未告知Perl使用那一个变量或者数值时，Perl都会使用$_）。如下：



#!/usr/bin/perl
use strict;
use warnings;
foreach  (1..10) {
print " $_ ";
}
　　
　　revers操作符
　　reverse操作符读取列表中的值并按照相反的次序返回列表。
　　如：@wilma=reverse 6..10;
　　注意：如果要改变@fred的值的话需要使用：@fred=reverse @fred;
　　sort操作符
　　读取列表中元素的值并按照一定的顺序输出。



#!D:\Perl\bin\perl
use strict;
my @imple=qw/ bed slate rubble grantie/;
my @sor= sort (@imple);
print "@sor \n";
my @rev = reverse sort (@imple);
print "@rev \n";
my @numbers=sort 91..102;
print "@numbers \n"
　　

　　仔细看本例中的执行结果，注意数字的输出情况。reverse sort 方法值得掌握。
　　注意：当使用use strict（强制程序员在使用变量前声明变量）时，变量定义前加一个my。
　　each 操作符
　　调用each可以返回数组中写一个元素所对应的两个值——元素的索引和值。



#!/usr/bin/perl
use warnings;
@rocks=qw /bed slate rubble grantie/;
while (($index,$value)=each @rocks) {
print "$index :$value\n";
}

　　标量上下文和列表上下文
　　这部分好像很难，主要看自己的开发经验。
　　在标量上下文中是i用产生列表的表达式

　　在列表上下问中使用产生标量的表达式

　　强制指定标量上下文
　　使用伪函数scalar。

　　列表上下文中<STDIN>
　　@lines=<STDIN>;
　　从键盘读取数据，每次读入一行（会将换行符也读进去），然后赋值给一个元素。结束标志：linux中是CTL+D windows中CTL+Z。
　　在一般的使用中，会利用chomp(@lines=<STDIN>)；将读入的每一行末尾的换行符号去掉。