Learning Perl 4-debugoo

shisgmei

　　1. 控制结构
　　所有控制结构都可以做条件修饰符:command if ();
unless(){}等同于if(! ){}unless(){}else{}until(){}等同于while(! ){}{}裸块，可以用来限定my修饰符if(){}elsif(){}...else{}++i,i++foreach (@mylist){print $_};for(;;){}foreach和for等价，如果没有分号的for(1..10)就是纯正的foreach循环。循环控制last=break; next=continue; redo=立即返回本次循环的顶端。通过标签从内层对外层的循环快进行控制(通过lash, next, redo),例如：LINE:while() {foreach(split){last LINE if /__END__/;}}三木运算符?:多分支三目：my $size=($width < 10) ? &quot;small&quot;:($width < 20) ? &quot;medium&quot;:($width < 50) ? &quot;large&quot;:&quot;extra-large&quot;;#default使用逻辑或添加默认值:my $last_name = $last_name{$someone} || '(No last name)'; 2. 模块：可以从CPAN search或者kobes's search网站上下载(1).安装$perl Makefile.PL PREFIX=/Users/fred/lib#路径$make install(2).使用模块use File::Basenamemy $name = &quot;/usr/local/bin/perl&quot;my $basename = basename $name加入导入列表import list来指明它提供哪些函数，它就不会给你别的函数了。use File::Base qw/ basename /;如果后面为空()，则不引入任何函数。但是可以用全称的形式访问:File::Basename::dirname $name;也可以是qw(:all)。use File::Spec;use File::Basename;...my $new_name=File::Spec->catfile($dirname, $basename);rename($old_name, $new_name)or warn &quot;Can't rename '$old_name' to '$new_name'&quot;;CGI.pm或者#!/usr/bin/perluse CGI qw(:all);print header(&quot;text/plain&quot;);#和HTML标签同名的函数可以提供使用，例如使用h1()输出H1标记的标题，还可以处理cookie信息，页面重定向以及多重页面表单。DBI.pmuse DBI$dbh = DBI->connect($data_source, $username, $password);$sth=$dbh->prepare(&quot;SELECT * FROM foo WHERE bla&quot;);$sth->execute();$st->finish();$dbh->disconnect(); 3.字符串处理(1). index($main_str, $sub_str)返回$sub_str子串的位置(从0开始计算的)。如果没有找到则返回-1rindex($main_str, $sub_str)返回最后一个&quot;$sub_str&quot;出现的位置(2). substr($main_str, $initial_position, $length)从$initial_position起取$length长度的字符串substr($main_str, $initial_position)直接取到结尾$initial_position可以用负数相对位置，例如-3表示倒数第三个字符如果字符串是个变量，那么可以修改字符串被选取的部分。my $string = &quot;Hello World&quot;;substr($string, index($string, &quot;Hello&quot;))=&quot;Goodbye&quot;;print &quot;$string&quot;;#Goodbye, World。而且被取代的字符串不一定要和原有子串长度相同。substr($string, index($string, &quot;Hello&quot;), 5) =~ s/fred/barney/g(3).sprintf同printf，但它返回处理过的字符串，而不是将它打印出来。用于格式化输出数据。日期数据my $date_tag = sprintf(&quot;%4d/%02d/%02d %2d:%02d:%02d&quot;, $yr, $mo, $da, $h, $m, $s);财务数据my $financial = sprintf(&quot;%.2f&quot;, 2.49995);#会四舍五入。处理大数据：my $number = sprintf &quot;%.2f&quot;, shift @_;#四舍五入小数部分1 while $number =~ s/^(-?\d+)(\d\d\d)/$1,$2/;#数值1仅仅是循环主体占位用。添加逗号#如果上一次替换成功，循环又会重新开始。直到开头小于4个数字。这样的从小数点倒回操作是s///g无法实现的。$number =~ s/^(-?)/$1\$/; 4.排序(1).内置的sort是按ASCII码大小进行排序的，不能实现更多的功能。(2).需要自己写比较函数，例如sub by_number {if ($a < $b) {-1} elseif ($a > $b) {1} else {0}}my @result=sort by_number @somenumber这个if三路判断(-1,0,1)有个方便的缩写: 例如sort {$a  $b} @somenumber;(3).哈希按值排序%my_score = {&quot;barney&quot;=>195, &quot;fred&quot;=>205, &quot;dino&quot;=>30};sub by_score {$score{$b}  $score{$a}}#倒序my @winners = sort by_score keys %score;(4).多值排序my @winner = sort by_score_and_name keys %score;sub by_score_and_name {$score{$b}  $score{$a}or$a cmp $b#还可以N种条件的or组合}