perl学习笔记二
数组：特殊的数组索引：加入对索引值超过数组尾端的元素进行赋值，数组将会根据需要自动扩大，只要有可用的内存分配给数组。意外增加的数组元素的值为undef.
$a="aa";
$a="bb";
$a="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>)；将读入的每一行末尾的换行符号去掉。
页:
[1]