Learning Perl 4

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::Basename

my $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/perl

use CGI qw(:all);

print header("text/plain");

#和HTML标签同名的函数可以提供使用，例如使用h1()输出H1标记的标题，还可以处理cookie信息，页面重定向以及多重页面表单。

DBI.pm

use 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开始计算的)。如果没有找到则返回-1

rindex($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}

$a cmp $b #还可以N种条件的or组合

}

转载于:https://blog.51cto.com/aboocool/588521

Learning Perl 4相关推荐

Learning Perl学习笔记（1）第二章Scalar Data
If Control Structure(IF循环) 脚本如下: #!/usr/bin/perl use warnings; use strict; use v5.24; my $line = < ...
Learning Perl 2
1.子程序 1).创建子程序:使用关键字sub sub marine { print "Hello, world\n"; } calling subroutines,使用& ...
Learning Perl（Perl语言入门）学习笔记（3）
第四章子例程 1. 子例程(subroutine)即用户自定义函数,子例程调用时通常在子例程名前加上"&"符号:子例程名属于独立的命名空间: 2. 子例程可以在程 ...
Learning Perl 8
符号引用一般来说,类似$$var的结构表示,$var是一个引用变量,而且程序员希望该表达式能够返回$var所指向的值. 假如$var不是引用变量的话会出现什么情况呢?Perl并不是断然打印出错误信息 ...
Learning Perl chapter 4 练习题
原文发表在网易博客 2010-11-06 13:07:36 第1题和第2题 #!perl -w #chapter 4 , exercise one and two use strict; sub to ...
linux下perl命令行参数,Perl One-Liners | Perl命令行学习1 -e参数
注:本内容需要点的perl编程基础,最好是读过<perl语言入门>. 本系列是自己平常学习工作中的总结,每一个实例均为我为了讲解而设置的,自己试过的,如有错误,望能见谅 Perl 命令行参 ...
Perl/CGI脚本语言编程学习资料及开发工具下载大全
Practical Extraction and Report Language Perl 最初的设计者为拉里·沃尔(Larry Wall),它于1987年12月18日发表.Perl借取了C.sed. ...
Perl语言入门-第四章-子程序-习题
1. 题目 2. 代码 1 #-----------------------------------------------------------# 2 # Source: Learning ...
还记得这门古老的编程语言么，送你一份perl书单！
点击蓝色"程序员书单"关注我哟加个"星标",每天带你读好书! perl系列书单 Perl语言编程内容简介从1991年问世以来,<Perl语言 ...

Learning Perl 4

Learning Perl 4相关推荐

最新文章

热门文章