学习perl（2）

 

学习Perl（2）
列表和数组
1）特殊的数组索引值
假如对索引值超过数组尾端的元素赋值，数组将会依需要自动扩大---只要有可用的内存配置给Perl，数组的长度是没有上限的。必要时，插入的元素会自动产生，并设成undef值。把$#name当成索引值的做法十分常见，还可以 从数组尾端往回计数“负数数组索引值”
2）列表直接量
(1,2,3,) (1,2,3) (1..100) ($a,17) (“fred”, “betty”) 几个示例
qw(quoted word)缩写
在Perl程序里，经常要建立简单的单词列表，这时可以使用qw简写，省去键入一堆额外引号的时间：qw/ fred betty / 界定符还可以是其他的，如!、{、<、[等
在qw列表中，不能像双引号内的字符串一样使用n或$fred；因为qw是一种引号，所以不能将注释放在qw列表中。
3）列表的赋值
因为列表是在赋值运算开始之前建立的，所以在Perl里互换两个变量的值相当容易：
($fred,$betty) = ($betty,$fred); #互换两者的值
引用整个数组时，只要在数组之前加上一个@符号（而且后面没有出现索引的方括号）就可以了，如：@rocks = qw/ bedrock slate / ;
pop和push操作符：把数组当成堆栈来用是很常见的做法，这时，项目的新增和移除都是在右手边进行的（就是数组里位于“最后面”的那一端）。
pop操作符可用来取出数组中最后一个元素并且将它返回：
@array = 5..9; $fred = pop(@array); #$fred变成9，@array现在变成(5,6,7,8)
如果数组是空的，那么pop不会变动它，而且会返回undef。
push操作符和pop相反，它会添加一个元素或者一串元素到数组的尾端：push(@array,0);
注意：push的第一个参数或pop的唯一参数必须是数组变量，对列表直接量进行push或pop操作是毫无意义的。
shift和unshift操作符：对数组的“开头“进行相应的操作：
和pop类似，对于一个空的数组变量，shift会返回undef。

4)foreach控制结构
foreach循环会逐项处理列表的值，每次对一个值执行循环里的操作：
#!/usr/bin/perl -w

foreach $rock (qw/ bedrock slate lava /) {

print "One rock is $rock.n";

}
改进后Perl所支持的做法：
#!/usr/bin/perl -w

@rocks = qw/ bedrock slate lava /;

foreach $rock (@rocks) {

$rock = "t$rock";

$rock .= "n";

}

print "The rocks are:n", @rocks;

Perl最爱的默认变量$_
假如你在foreach循环的开头省略了控制变量，Perl会使用它最爱的默认变量$_：
#!/usr/bin/perl -w

foreach (1..10) {

print "I can not count to $_!n";

}
#!/usr/bin/perl -w

$_ = "Yabba dabba doon";

print;

reverse操作符：reverse会读取列表的值（可能来自数组）并依相反的次序返回该列表
#!/usr/bin/perl -w

@fred = 6..10;

@fred = reverse @fred;

print "The freds now are: @fred.n";
注意：reverse操作符会返回次序相反的列表，但它并不会影响自己的参数，所以假如返回值没有被赋值到任何地方，它将毫无意义：
reverse @fred ; #错：不会改变@fred @fred = reverse(@fred); #好多了

类似reverse的操作符sort，排序的顺序就是ASCII编码的顺序
对数组排序时，必须将排序的结果存回数组：@rocks = sort @rocks;
#!/usr/bin/perl -w

@fred = 97..102;

@fred = sort @fred;

print "The freds now are: @fred.n";

5）标量上下文与列表上下文
“上下文”指的就是表达式所出现的位置。解析表达式时，Perl会希望它是“标量值”或“列表值”的其中之一，此处，Perl所希望的，就称为表达式的上下文。
在Perl中，表达式的返回值一定会符合它们的上下文。以数组的“名称”为例：在列表上下文中，它会产生元素的列表；在标量上下文中，它会返回数组中元素的个数：

@people = qw( fred barney betty );
@sorted = sort @people; #列表上下文： barney betty fred)
@number = 42 + @people; #标量上下文：42 + 3等于45
@list = @people; #包含3个人名的列表

$n = @people; #数字3
#!/usr/bin/perl -w

@people = qw( fred barney betty );

@sorted = sort @people;

@number = 42 + @people;

@list = @people;

$n = @people;

print "The number of people are : $n.n";

print "The list ; @list.n";

print "The number : @number.n";

printf "The sorted : @sorted.n";
注意：但请不要立刻得出结论，在标量上下文中一定会得到列表上下文中所返回元素的个数。

在标量上下文中使用产生列表的表达式
除非有人提出别的实现方式，否则sort在标量上下文中总是会返回undef。
在列表上下文中，reserve会返回反序过的列表；在标量上下文中，它则会返回反序过的字符串：
#!/usr/bin/perl -w

@backwards = reverse qw/ yabba dabba doo /;

print "The list of backwards are: @backwards.n";

$backwards = reverse qw/ yabba dabba doo /;

print "The scalar of backwards are: $backwards.n";
不要被只有一个元素的列表给骗了，($dino) = something;这个还是列表上下文。只要元素是赋值给列表的（不管元素的个数），它就是列表上下文。假如你将元素赋值给数组，它也还是列表上下文。

在列表上下文中使用产生标量的表达式
这里的转换十分直接：假如表达式的求值结果不是列表值（也就是标量值），则标量值会被自动提升为含有单一元素的列表：@fred = 6 * 7; #变成含有单一元素的列表{42}
空列表的正确赋值法： @betty = (); 而不是：@betty = undef;
因为undef是标量值，所以将undef赋值给数组无法清空该数组。直接使用空列表赋值可能是比较好的办法。
@fred = 6 * 7;

print "The result of fred is : @fred.n";

@barney = " Hello" . ' ' . "world";

print "The result of barney is :@barney.n";

@betty = ();

print "The result of betty is : @bettyn";

强制指定标量上下文
有时候，需要在Perl期望列表上下文的时候，强制指定标量上下文，此时可以使用假函数scalar，它不是真的函数，只是用来告诉Perl必须提供标量上下文：
#!/usr/bin/perl -w

@rocks = qw( talc quartz jade obsidian );

print "How many rocks do you have?n";

print "I have ",scalar @rocks," rocks!n";
print "I have ", @rocks," rocks!n"; #错，这会输出各种石头的名称

列表上下文中的

在标量上下文中会返回输入数据的下一行；在列表上下文中，则会返回剩余的各行，直到文件结尾为止，所返回的每一行都将成为列表中单独的元素。
输入数据的来源是键盘时，产生文件结尾符号的方式：UNIX及其类似的系统，键入Ctrl + D、对于DOS和Windows之类，键入Ctrl + Z。
@lines = ; #读取所有数据行 chomp(@lines); #忽略所有换行符
或者更简洁的 chomp(@lines = ); #读取所有数据行，但不包括换行符

习题：
1）读入一串字符串（每行一个），直到文件结尾为止，然后以相反顺序输出这个列表。（如果输入来自键盘，键入Ctrl + D或Ctrl + Z来结束输入）
#!/usr/bin/perl -w

print "Please enter a tring,each line for one:n";

print "When you finished it,please enter Ctrl + Dn";

chomp(@lines = );

@lines = reverse @lines;

print "The result is ; @lines.n";
参考答案如下：
#!/usr/bin/perl -w

print "Enter some lines,then press Ctrl-D:n";

@lines = ;

@reverse_lines = reverse @lines;

print @reverse_lines;
或 #!/usr/bin/perl -w

print "Enter some lines,then press Ctrl-D:n";

print reverse;
2）读入一串字符串（每行一个），直到文件结尾为止，然后根据每一个数字，输出如下名单（fred betty dino wilma pebbles bamm-bamm）中相应的人名。
#!/usr/bin/perl -w

print "Please enter some numbers,each line for one,then enter Ctrl + D:n";

@names = qw / fred betty dino wilma pebbles bamm-bamm /;

chomp(@values = );

foreach (@values) {

print "$names[$_ -1 ]n";

}
参考答案如下：
#!/usr/bin/perl -w

print "Please enter some numbers,each line for one,then enter Ctrl + D:n";

@names = qw / fred betty dino wilma pebbles bamm-bamm /;

chomp(@values = );

foreach (@values) {

print "$names[$_ -1 ]n";

}
3）
#!/usr/bin/perl -w

print "Pleas enter lines,each line for one string,then enter Ctrl + D:.n";

print sort();
参考答案如下：
#!/usr/bin/perl -w

chomp(@lines = );

@sorted = sort @lines;

print "@sortedn";
让每一行分开显示的做法： print sort ;


子例程
1）定义子例程
定义你自己的子例程时，将会用到关键字sub、子例程的名称（不含&符号）以及（花括号内）经缩排的构成子例程主体的程序代码块：（子例程的定义可以放在程序中的任何地方）
#!/usr/bin/perl -w

sub marine {

$n += 1;

print "Hello,sailor number $n!n";

}

2）调用子例程
任何表达式中只要使用了子例程的名称（加上&符号），就会调用子例程：&marine;
3）返回值
在Perl中，任何子例程都有返回值，子例程并没有分成有返回值和没有返回值两种。
#!/usr/bin/perl -w

sub sum_of_fred_and_barney {

print "Hey,you called the sum_of_fred_and_barney subroutine!n";

$fred + $barney;

}

$fred = 3;

$barney = 4;

$c = &sum_of_fred_and_barney;

print "$c is $c.n";

$d = 3 * &sum_of_fred_and_barney;

print "$d is $d.n";

sub larger_of_fred_and_barney {

if ($fred > $barney){

$fred;

} else {

$barney;

}

}

$fred = 3;

$barney = 4;

$c = &larger_of_fred_and_barney;

print "The larger is $c.n";

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21256317/viewspace-776980/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21256317/viewspace-776980/