文章大纲：

• 1、perl追问
• 2、黑客 perl与python哪个好
• 3、perl问题

perl追问

正则表达式（Regular Expression） *** 可以满足你上面所需的要求。

正则表达式是你的好朋友

Perl的正则表达式句法能够有助于让你的代码看起来是非门外汉的作品，这就导致有的时候Perl编程的入门者避免使用regexen。这真的是一个大错误。正则表达式为 Perl编程语言增添了很大的能力，常常能够让程序用十行代码就完成其他用五十行完成的任务。正则表达式是由一些缩写组成的表达式，用于匹配字符串的模式，这些字符串可以被用寻找和操控大字符串里的小字符串。所以Perl黑客有必要学习和熟练掌握regex句法。

#!/usr/bin/perl

#ans.pl

my $file;

while ();

my @data=split/\./,$file;

for (@data){

/.*(^\d.*.*\d$)/ *** ; #取得最后时间行

my $time=$1;

s/^\d+:.*\d$//gm; #删除时间行

s/^\d+\n//gm; #删除数目行

s/$/./; #加上点号

s/\n+/\n/g; #删除空行

print ++$num,"\n",$time,$_,"\n";

}

=====================

perl ans.pl yourfile.txt

正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在设计中就更能得心应手了。

黑客 perl与python哪个好

不是打击你哈 想当黑客应该把Python, C, Perl和 LISP都掌握了 从Python开始比较容易

perl问题

正则表达式（Regular Expression） *** 可以满足你上面所需的要求。

正则表达式是你的好朋友

Perl的正则表达式句法能够有助于让你的代码看起来是非门外汉的作品，这就导致有的时候Perl编程的入门者避免使用regexen。这真的是一个大错误。正则表达式为 Perl编程语言增添了很大的能力，常常能够让程序用十行代码就完成其他用五十行完成的任务。正则表达式是由一些缩写组成的表达式，用于匹配字符串的模式，这些字符串可以被用寻找和操控大字符串里的小字符串。所以Perl黑客有必要学习和熟练掌握regex句法。

#!/usr/bin/perl

#ans.pl

my $file;

while (){s/^\s+$//;$file.=$_};

my @data=split/\./,$file;

for (@data){

/.*(^\d.*.*\d$)/ *** ; #取得最后时间行

my $time=$1;

s/^\d+:.*\d$//gm; #删除时间行

s/^\d+\n//gm; #删除数目行

s/$/./; #加上点号

s/\n+/\n/g; #删除空行

print ++$num,"\n",$time,$_,"\n";

}

=====================

perl ans.pl yourfile.txt

正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在设计中就更能得心应手了。