一 perl文件数组
1)文件第一行#!/usr/bin/perl,用来在类Unix系统上指定perl执行程序;less
2)#开始的行表示注释;函数
3)use strict;对perl进行额外的检查,强迫你使用my定义变量,字符串必须使用单引号或双引号,引用其余的package的变量时变量前加package名字;post
4)use warnings;打开warning开关,不忽略warnings,等价于 use warnings 'all';也可使用use warnings FATAL => 'all'把warning看成error; 可使用no warnings来取消warning;也可使用local $^W = 0,来局部关闭warning; 测试
注意:spa
1)多行注释,heredoc,实例:scala
$usage = <<EOU;
Usage: getfilesbyname \\3d
[-f] [-l] [-g] code
Where:blog
-f == XXX
-l == XXX
-g == XXX
EOU
print $usage
二 变量
1)$用来定义Scalar变量:整形,浮点数,字符串;
2)@用来定义Array变量:数组;
3)%用来定义Hash变量:用来存储key/value的map;
4)\用来定义Reference变量:用来存储内存地址的Scalar变量;
5)&用来调用subroutines;可是若是调用subroutines时候有参数,&能够省略;
6)*,typeglob,用来维护symbol table,使用较少,通常用Reference;
注意:
1)字符串使用单双引号均可以。对于双引号的字符串,字符串中支持简单变量替换和支持转义字符,要在字符串中包含双引号或反斜线,则在其前加一个反斜线,反斜线还能够取消变量替换\$result;单引号字符串与双引号字符串有两个区别,一是没有变量替换功能,二是反斜线不支持转义字符,而只在包含单引号和反斜线时起做用,单引号另外一个特性是能够跨多行。
2)类型的自动转化,实例:my $num1 = '10';my $num2 = 10 ;my $total = $num1 + $num2;my $total2 = $num1 . $num2;
3)还可使用上引号``,上引号中的做为系统命令执行,而后返回结果,实例:my $files=`tree`;print $files;
4)True or False,perl没有对应的bool变量的值True和False,在perl中的False为空字符串,字符串或数字0,未定义的变量,或$var=undef()或undef($var) 。
5)特殊的Scalar:$]表示支持的perl的版本;$0表示当前文件名;$^O表示当前系统版本;$_表示当前项,在for循环中表示当前项。
6)变量运算符,数字使用>,<,>=,<=;字符串使用eq,nq,lt,gt,le,ge;.
三 条件控制
1)if/elsif/else+unless。以下:
2)能够在action后跟test语句,例如: $a = 12 if $b < $c; $a = 12 unless $b >= $c;
3)条件语句$var1 = ($var2 == $var3) ? 17 : 19 ;
4) while/dowhile/until/dountil/for/foreach。以下:
5)咱们能够选择性的加入continue block,例如 while($a < 12) {...} continue {...}.
6)last/next/redo, last不执行continue block当即退出;next跳过剩下的语句执行continue block开始下次循环;redo 不执行continue block,从新开始本次循环。
四 其余
1)能够经过eval{}来测试异常,结果在$@中。也能够直接使用die{}来抛出异常。
2)$0表示当前perl文件的name,即perl name调用时的name。
3) @ARGV中存储传入perl文件的参数,好比第一个$ARGV[0],且第一个参数不为文件名是实际传入的第一个参数。$#ARGV + 1能够获得文件传入的参数的个数,也可使用scalar(@ARGV);来得到参数个数。
4)$#_ 在函数中获得传入函数的参数的个数。
实例以下:
5)qw(),由于字符串都须要用引号,可是可使用qw来自动加引号,例如 my @names = qw(Kernighan Ritchie Pike);等价于my @names = ('Kernighan', 'Ritchie', 'Pike');。
6)BEGIN block用来将文件的路径加入@INC, 以下:
# Setup the source directory
$scriptDir = $ 0 ;
$scriptDir =~ s :\\:/: g;
$scriptDir =~ s ,/? [ ^/ ] + $ ,, ;
$scriptDir = " . " if ( $scriptDir eq "" );
unshift ( @INC , $scriptDir );
}
7) chomp()函数用来去除变量或字符串结尾的换行符
chomp($text);
完!