Learning Perl 4-debugoo
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) ? "small":($width < 20) ? "medium":($width < 50) ? "large":"extra-large";#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 = "/usr/local/bin/perl"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 "Can't rename '$old_name' to '$new_name'";CGI.pm或者#!/usr/bin/perluse CGI qw(:all);print header("text/plain");#和HTML标签同名的函数可以提供使用，例如使用h1()输出H1标记的标题，还可以处理cookie信息，页面重定向以及多重页面表单。DBI.pmuse DBI$dbh = DBI->connect($data_source, $username, $password);$sth=$dbh->prepare("SELECT * FROM foo WHERE bla");$sth->execute();$st->finish();$dbh->disconnect(); 3.字符串处理(1). index($main_str, $sub_str)返回$sub_str子串的位置(从0开始计算的)。如果没有找到则返回-1rindex($main_str, $sub_str)返回最后一个"$sub_str"出现的位置(2). substr($main_str, $initial_position, $length)从$initial_position起取$length长度的字符串substr($main_str, $initial_position)直接取到结尾$initial_position可以用负数相对位置，例如-3表示倒数第三个字符如果字符串是个变量，那么可以修改字符串被选取的部分。my $string = "Hello World";substr($string, index($string, "Hello"))="Goodbye";print "$string";#Goodbye, World。而且被取代的字符串不一定要和原有子串长度相同。substr($string, index($string, "Hello"), 5) =~ s/fred/barney/g(3).sprintf同printf，但它返回处理过的字符串，而不是将它打印出来。用于格式化输出数据。日期数据my $date_tag = sprintf("%4d/%02d/%02d %2d:%02d:%02d", $yr, $mo, $da, $h, $m, $s);财务数据my $financial = sprintf("%.2f", 2.49995);#会四舍五入。处理大数据：my $number = sprintf "%.2f", 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 = {"barney"=>195, "fred"=>205, "dino"=>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组合}
页:
[1]