标签：
1. 单引号字符串中的\n不会被当做换行符处理。 如：‘\‘\\‘ --> ‘\ 。
2. 双引号
字符串联 "Hello"."World"."\n" --> HelloWrold 换行;
字符串重复操作 "fred"×3 --> "fredfredfred";
大小写 "\l","\L" --> 小写 ; "\u","\U" --> 大写 ; "\E" 结束。
3. 字符串运算
== eq 相等
!= ne 不等
< lt 小于
> gt 大于
<= le 小于或等于
>= ge 大于或等于
4. 用户输入 <STDIN>
5. chomp函数：去掉文本的"\n"换行符。读写文件时，要去掉换行符。 如：chomp($text<STDIN>);
6. 单行注释：# ; 多行注释以 "=pod"开始，"=cut" 结束。
7. undef： 没有值时，表现为0或空字符串。
8. defined函数： 为undef时，返回false，其余返回true。
9. x 输出遍数。如：print "love" x 3 -->lovelovelove.
10. 特殊数组索引："$#rocks" ,最后一个元素索引。
11. qw简写，代替 "" 功能。 如：qw(freds bany wilad dino);
12. @rocks=qw /break slasle labv/; #给数组赋值。
@copy=@qwarry; #将一个数组拷贝到另一个数组里。
13. pop：末尾取出元素；push：将一个或一列元素加在末尾。
如：pop(@array); push(@array,@others); #将@others添加到@array末尾。
14. shift 和 unshift 对数组首操作。 shift：取出首元素。unshift：将一个或一列加在首部。
15. 当把email地址插入双引号时，$email="fred\@bedrock.edu"; $email=‘fred@bedrock.edu‘;
16. perl最常用的默认变量：$_ 。 如： foreach(1..10){
print "I can $_!\n";
}
17. foreach控制结构
如： foreach $rock(qw/break Slee lawer/){
print "One rock is $rock . \n"; #打印数组
}
18. reverse 逆转操作，将一串列表按相反的顺序返回。
如： @fred=6..10;
@bareny=reverse(@fred); #@bareny="10,9,8,7,6".
19. sort:将输入的一串列表根据内部的字符顺序进行排序。
如：ASCII字符串 @rocks =qw/breaks sholer rubble gertdned/;
@sorted=sort(@rocks);
20. 强制转换成标量，context，可使用 scalar。
如：print "I have",scalar @rocks,"rocks!\n";输出为数字。
21. <STDIN>在列表context中： chomp(@line=<STDIN>); #读入所有行，不包括换行符。
文件输入完成时：linux/MACOS x,用 ctrl+d 结束；DOS/Windows, 用 ctrl+z 结束。
22. 调用子程序时，返回值为最后一个被计算的表达式。 @_ 是子程序的一个私有变量。 可以使用“my”创建子程序的私有变量，也可以在if ,untile ,foreach 块中使用。
如： my($fred,$bread); #定义两个私有变量。
如果新的私有变量没有被赋值的话，标量变量 会自动赋值为 undef ;数组变量 赋值为 空列表。
23. 使用strict Pragma 严格检查某代码；use strict 迫使采用更严格的检测。
24. 调用子程序 & 可省。
如： sub divsion{
$_[0]/$_[1];
}
my $quotient=divsion 355, 113; #调用，同 my $quotient=&divsion(355,113);
25. 严重错误和 die 函数
如： if(!open LOG,">>logfile"){
die "Cannot create logfile:$_!"; #$_ 输出系统错误信息
}
一般，0表示正常；非0表示失败。常见的：1-->命令行中语法错误； 2--> 运行错误 ； 3--> 没有找到匹配文件。
26. @ARGV 含义是包含了程序从命令行得到的所有参数。输入。
27. 复制文件： system(‘cp -r ./filea.txt ./map‘); #将文件.txt复制到map文件夹下
29. 读文件： open(FILE,"file.txt"); # FILE 为文件句柄。
my $record;
while($record=<FILE>){
print ("file record is :$record\n");
}
close(FILE);
30. 写文件：open(FILE1,">write.txt");
syswrite(FILE1,"I konw it ! \n"); #将 "I konw it!"写入文件。
close(FILE1);
注：> 覆盖写入；>> 追加写入。
31. 创建文件夹：mkdir(hello,0777)||die "not create!\n";
创建文件： unless(-e "name.txt"){
open(FILE2,">name.txt") or &out_err("not create!\n");
}
删除文件：unlink("name.txt");
创建目录（可多级）：mkpath(directoy,1,0711); 删除目录：rmtree(directoy,1,1);
删除文件夹：rmdir("hello")||die "not delete";
32. 数据库：windows下安装DBD：->cmd 输入 ppm install DBD::mysql
33.数据库连接： use DBI;
my $dbh=DBI->connect("DBI:mysql:database=数据库;host=localhost;port:3308","用户名","密码",{‘RaiseError‘=>1});
my $sth=$dbh->prepare("select * from asset");
$sth->execute();
while(my $ref=$sth->fetchrow_hashref()){
print "$ref->{‘id‘}\t".
"$ref->{‘name‘}\n";
}
$sth->finish();
$dbh->disconnect();
34.哈希：my %last_name=(
"fred"=>"finished",
"dion"=>"undef",
"barney"=>"rubble"
);
35. keys 和values 函数
my %hash=("a"=>1,"b"=>2,"c"=>3);
my @k=keys %hash; #得到key值
my @v=values %hash; #得到values值
注： @k和@v中的"a","b","c" 的顺序可能不同，但是@k和@v还是一一对应的。如"b"=>2,可能在第三位。
36. each函数:迭代hash中的每个元素。
如：while((@key,@values)=each %hash){
print "$key=>$values\n";
}
37. exists 函数: if(exists $books{$dino}){ };
delete函数： delete $books{$dino}; #删除
38. 大小写转换： $_="I saw Barney with Fred.";
大写：S/(fred)|barney/\U$1/gi; #BARNEY
小写：S/(fred)|barney/\L$1/gi; #barney
39.split操作：分割 @fields =split /separtor/,$string;
如： @fileds=split/:/,"abc:def:d:h";
join粘合函数： my $result = join $glue,@pieces;
如：my $x=join ":",4,5,6,7,8; # 4:5:6:7:8
40. 控制条件 unless 除非条件为真，否则执行块中代码。
unless($fred=~/^[A-Z-]\W*$/i){
print "The $fred";
}
until:与while相反，当条件为假时，重复执行。
41. $n=++$m; #先将变量加1，再取值；
$n=$m++;#先取值，在加1.
42. last会立刻结束循环。 for,foreach,while,until,裸块。
next 跳到当前循环的最后面，next之后进入下一轮循环。
redo 调到当前循环的顶端，不进行条件表达式判断以及接着本次循环（可放到循环体后面）。
标签块： LINE：while(<>){
foreach(split){
last LINE if/__END__/;
}
}
43.三元操作符：Express？if_true_exp : if_false_exp
标签：
原文地址：http://www.cnblogs.com/resie/p/4459571.html
