原创 PERL常用法

常用正则表达式
匹配中文字符的正则表达式： [\u4e00-\u9fa5]

评注：匹配中文还真是个头疼的事，有了这个表达式就好办了



匹配双字节字符(包括汉字在内)：[^\x00-\xff]

评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）



匹配空白行的正则表达式：\n\s*\r

评注：可以用来删除空白行



匹配HTML标记的正则表达式：<(\S*?)[^>]*>.*?</\1>|<.*? />

评注：网上流传的版本太糟糕，上面这个也仅仅能匹配部分，对于复杂的嵌套标记依旧无能为力



匹配首尾空白字符的正则表达式：^\s*|\s*$

评注：可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式



匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

评注：表单验证时很实用



匹配网址URL的正则表达式：[a-zA-z]+://[^\s]*

评注：网上流传的版本功能很有限，上面这个基本可以满足需求



匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$

评注：表单验证时很实用



匹配国内电话号码：\d{3}-\d{8}|\d{4}-\d{7}

评注：匹配形式如 0511-4405222 或 021-87888822



匹配腾讯QQ号：[1-9][0-9]{4,}

评注：腾讯QQ号从10000开始



匹配中国邮政编码：[1-9]\d{5}(?!\d)

评注：中国邮政编码为6位数字



匹配身份证：\d{15}|\d{18}

评注：中国的身份证为15位或18位



匹配ip地址：\d+\.\d+\.\d+\.\d+

评注：提取ip地址时有用



匹配特定数字：

^[1-9]\d*$　 　 //匹配正整数

^-[1-9]\d*$ 　 //匹配负整数

^-?[1-9]\d*$　　 //匹配整数

^[1-9]\d*|0$　 //匹配非负整数（正整数 + 0）

^-[1-9]\d*|0$　　 //匹配非正整数（负整数 + 0）

^[1-9]\d*\.\d*|0\.\d*[1-9]\d*$　　 //匹配正浮点数

^-([1-9]\d*\.\d*|0\.\d*[1-9]\d*)$　 //匹配负浮点数

^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$　 //匹配浮点数

^[1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0$　　 //匹配非负浮点数（正浮点数 + 0）

^(-([1-9]\d*\.\d*|0\.\d*[1-9]\d*))|0?\.0+|0$　　//匹配非正浮点数（负浮点数 + 0）

评注：处理大量数据时有用，具体应用时注意修正



匹配特定字符串：

^[A-Za-z]+$　　//匹配由26个英文字母组成的字符串

^[A-Z]+$　　//匹配由26个英文字母的大写组成的字符串

^[a-z]+$　　//匹配由26个英文字母的小写组成的字符串

^[A-Za-z0-9]+$　　//匹配由数字和26个英文字母组成的字符串

^\w+$　　//匹配由数字、26个英文字母或者下划线组成的字符串


常用方法
【1】标量上下文中的数组返回数组中元素的数量
@foo = qw(water pepsi coke lemonade);
$a = @foo;
$b = $#foo;
print "$a\n";  #4
print "$b\n";  #3

 

【2】标量上下文中的数组返回数组中元素的数量
@mydata = qw(oats peas beans barley);
if (@mydata){ #4 is true
 print "The array has elements!\n";
}

 

【3】输出@foo中元素的数量
print scalar(@foo); # scalar这个特殊的伪函数强制@foo在一个标量上下文中进行计算

 

【4】localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化
很好的当前时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16
23:00:06 1999。在列表上下文中，localtime将返回能够描述当前时间的一个元素列表：
($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime;
字段   值
$sec    秒，0 ~ 59
$min    分，0 ~ 59
$hour    时，0 ~ 23
$mday    月份中的日期， 1 ~ 2 8、2 9、3 0或3 1
$mon    年份中的月份， 0 ~ 11（这里请特别要小心）
$year_off   1900年以来的年份。将1900加上这个数字，得出正确的4位数年份
$wday    星期几，0 ~ 6
$yday    一年中的第几天，0 ~ 364或365
$isdst    如果夏令时有效，则为真
不
要将19附加给localtime返回的年份。它返回的年份是1900的偏移量。比如，在1999年，年份是99;在2000年中,它是100,将
1999与该值相加，可以在2000年以后正确地产生年份。perl不存在2000年问题，但是，如果简单地将19(或20)附加给该年份，就会导致程序
中产生2000年问题。

 

【5】遍历数组
@flavors = qw(chocolate vanilla strawberry mint sherbert );
for($index=0; $index<@flavors; $index++) {  # @flavors是在标量上下文中计算的，计算的结果是5
 print "My favorate flavor is $flavors[$index] and ...";
}

 

【6】遍历数组，迭代器
foreach $cone (@flavors) {  # $cone设置为@flavors中的各个值
 print "I'd like a cone of $cone\n";
}
迭代器并不只是设置为列表中的每个元素的值，它实际上是对列表的元素的引用，如果修改该循环中的cone，就能修改@flavors中的对应元素

 

【7】标量转换成数组
@words = split(/ /, "The quick brown fox");
#@words包含了各个单词，即The、quick、brown和fox，

while(<STDIN>) {
 ($firstchar) = split(//, $_);
 print "The first character war $firstchar\n";
}
     第一行用于读取来自终端的数据，每次读一行，并将$_设置为等于该行。第二行使用空模式来分割$_。split函数返回来自$_中的这个行的每个字符的列表。该列表被赋予左边的列表，而该列表的第一个元素则被赋予$firstchar，其余均放弃。

@music = ('White Album,Beatles',
   'Graceland,Paul',
   'A boy Named Sue,Goo Goo Dolls');
foreach $record (@music) {
 ($record_name, $artist) = split(/,/,$record);
}

 

【8】要用数组来创建一个标量，也就是进行split的反向操作，可以使用join函数
$numbers = join(',', (1..10));
这个例子将字符串1，2，3，4，5，6，7，8，9，10 赋予$numbers.

$message = "Elvis was here";
print "The string \"message\" consist of:",
        join('-',split(//, $message));
输出将是：The string "message" consist of:E-l-v-i-s- -w-a-s- -h-e-r-e

 

【9】给数组重新排序，Sort函数将一个列表作为它的参数，并且大体上按照字母顺序对列表进行排序，然后该函数返回一个排定顺序的新列表。原始数组保持不变
@chiefs = qw(clinton bush reagan carter ford nixon);
print join(' ',sort(@chiefs));
它的默认排序次序是ASCII顺序。这意味着以大写字母开头的所有单词均排在以小写字母开头的单词的前面。用ASCII顺序对数字进行排序的方式与你期望的不一样，它们不按值来排序。例如，11排在100的前面。在这种情况下，必须按非默认顺序来进行排序。

 

【10】飞船运算符<=>,如果它左边的操作数小于右边的操作数，那么它返回-1，如果左边的操作数大于右边的操作数，则返回0
@numbers = qw(3 4 1 2 3 6 9 10 22 33 100);
@sorted = join(' ',sort {return(1) if ($a > $b);
                return(0) if ($a == $b);
                return(-1) if ($a < $b); } @numbers);
print @sorted;
等价于
@numbers = qw(3 4 1 2 3 6 9 10 22 33 100);
@sorted = join(' ',sort { $a <=> $b } @numbers);
print @sorted;
<=>只应该用来比较数字值，若要比较字母字符串，请使用cmp运算符

 

【11】reverse函数能够对字符串的字符进行倒序操作，返回倒序后的字符串
@lines = qw(I do not like green eggs and ham);
print join(' ',reverse @lines),"\n";
print join(' ',reverse sort @lines);
输出：
ham and eggs green like not do I
not like ham green eggs do and I

 

【12】打开文件,既接受绝对路径名，也接受相对路径名
->unix：
open(Myfile, "/usr/local/nav/exp.txt") || die;
->windows：(也接受UNC路径名，如\\fileserver\sharename ---open(REMOTE,"//fileserver/common/foofile")||die;   )
open(Myfile,"C:\\Windows\\users\\exp.txt") || die;
或者
open(Myfile,"C:/Windows/users/exp.txt") || die;
->Macintosh(路径名是按卷、文件夹，然后文件这样的顺序来设定的，各个元素之间用冒号分开)
open(Myfile,"System:Utils:config")

 

读取文件句柄
$line = <Myfile>;
标量变量中的尖括号运算符能够读取来自文件的一行输入。当该文件被读完时，尖括号返回值undef。

若要读取和输出整个文件，可以这样
while(defined($a=<Myfile>)) {
 print $a;
}
不过有更简洁的方式：
while(<Myfile>){
 print $_;
}
while循环将负责把输入行赋予$_，并确保文件句柄尚未耗尽（称为文件结束）。这个奇特的运行特性只有在while循环中才能发生，并且只有在尖括号运算符是条件表达式中的唯一表达式时才能发生。

 

在大多数情况下，将整个文件读入一个数组（如果文件不是太大，只有对小型文件，才能将整个文件读入数组变量，否则会out of memory），是处理文件数据的一种非常容易的方法．
open(Myfile,"testfile") ||　die "opening testfile: $!";
@stuff = <Myfile>;
close(Myfile);
foreach(reverse(@stuff)) {
    print scalar(reverse($_));
}

 

【13】写入文件
open(NEWFH,">output.txt") || die "Opening output.txt: $!";
open(APPFH,">>logfile.txt") || die "Opening logfile.txt: $!";
close函数通知操作系统说，你已经完成写入操作，数据应该移到磁盘上的永久性存储器中：
close(NEWFH);
close(APPFH);

print函数实际上可以用于将数据写入任何文件句柄,语法：print filehandle LIST
open(LOGF,">>logfile") || die "$!";
if ( ! print LOGF "This entry was written at", scalar(localtime), "\n") {
 warn "Unable to write to the log file: $!";
}
close(LOGF);  #名字为logfile的文件被打开，以便进行附加操作。print语句将一条消息写入LOGF文件句柄。print的返回值被检查核实，如果记录项无法输出，便发出警告消息。然后文件句柄被关闭。

同时打开多个句柄：一个简单的文件拷贝
open(SOURCE,"soucefile) || die "$!";
open(DEST,">distinationfile") || die "$!";
print DEST <SOURCE>;
close(DEST);
close(SOURCE);

 

【13】在改写文件之前用于检查该文件是否存在,或者用于核实用户的输入信息，也可以用于确定需要的目录是否存在以及是否可以进行写入操作：

print "save data to what file?";
$filename = <STDIN>;
chomp $filename;
if ( -s $filename) {
     warn "$file contents will be overwritten!\n";
     warn "$file was last updated ",-M $filename, "day ago.\n";
}