用perl 提取时间信息并处理数据--实例。

perl 也是我的最爱。简洁的处理方式，简明的表达方法。随手拈来的书写方式。

代码实例包含了很多信息，?

perl 易写难读， 针对性极强，简洁干练。

附上一例做模板用。省却查找之苦。

应用环境： 从众多的log 中提取时间信息， 计算期间的关系并打印出来

#!/usr/bin/perl -w
########################################
# author: hjjdebug
# date: 2012
#
########################################
# 命令行参数个数，执行文件名称
if(@ARGV<1)
{
?? ?print "Usage: $0 <filename> n";
?? ?exit 1;
}
# 打开一个文件
open(FDR,"<",$ARGV[0]) || die $!;
# 全局变量设置
$timeSwitchChannel = 0;
$timeSetCW = 0;
$lastTime = 0;
# 读取文件内容
while(<FDR>)
{
?? ?#匹配字符串
?? ?if(/Ca_SetDescrambling begin/)
?? ?{
?? ??? ?#打印当前行内容
?? ??? ?print $_;
?? ??? ?#匹配正则表达式
?? ??? ?if(/dd:dd:dd.ddd/)
?? ??? ?{
?? ??? ??? ?#用定义函数提取时间信息
?? ??? ??? ?$timeSwitchChannel = &time($&);
?? ??? ??? ?$lastTime = $timeSwitchChannel;
?? ??? ?}

?? ?}

?? ?if(/CDSTBCA_ScrSetCW/)
?? ?{
?? ??? ?print ;
?? ??? ?if(/dd:dd:dd.ddd/)
?? ??? ?{
?? ??? ??? ?$timeSetCW_Bak = $timeSetCW;
?? ??? ??? ?$timeSetCW = &time($&);
?? ??? ??? ?if($lastTime == $timeSwitchChannel && $lastTime != $timeSetCW_Bak)
?? ??? ??? ?{?? ??? ?
?? ??? ??? ??? ?$delta = $timeSetCW-$lastTime;
?? ??? ??? ??? ?if($delta < 3.0)
?? ??? ??? ??? ?{
?? ??? ??? ??? ??? ?#计算，格式化输出信息
?? ??? ??? ??? ??? ?printf("*** switch channel interval %.3f ***n",$timeSetCW-$lastTime);
?? ??? ??? ??? ?}
?? ??? ??? ??? ?else
?? ??? ??? ??? ?{
?? ??? ??? ??? ??? ?printf("Warning!!!!!!? *** switch channel interval %.3f ***n",$timeSetCW-$lastTime);
?? ??? ??? ??? ?}
?? ??? ??? ?}
?? ??? ??? ?else
?? ??? ??? ?{
?? ??? ??? ??? ?$delta = $timeSetCW-$lastTime;
?? ??? ??? ??? ?if($delta < 18)
?? ??? ??? ??? ?{
?? ??? ??? ??? ??? ?#计算，格式化输出信息
?? ??? ??? ??? ??? ?printf("=== decode CW interval %.3f ===n",$timeSetCW-$lastTime);
?? ??? ??? ??? ?}
?? ??? ??? ??? ?else
?? ??? ??? ??? ?{
?? ??? ??? ??? ??? ?printf("Warning!!!!!! === decode CW interval %.3f ===n",$timeSetCW-$lastTime);
?? ??? ??? ??? ?}
?? ??? ??? ?}
?? ??? ??? ?$lastTime = $timeSetCW;
?? ??? ?}
?? ??? ?if(/(([da-fA-F]{2}s+){8})/)?? ?# 多次匹配一个字符串,例如：CDSTBCA_ScrSetCW begin >>> EcmPid:6678,pbyOddKey: EA 15 60 5F 88 64 EF DB
?? ??? ?{
?? ??? ??? ?local $count = @{[$& =~ m/00/g]}; #匹配一个字符串的个数， 创建无名数组，取到数组个数 例如: pbyOddKey: EA 15 60 5F 88 00 00 00 
?? ??? ??? ?if($count > 2)
?? ??? ??? ?{
?? ??? ??? ??? ?print("Warning!!!!!! cw 0 count greater than 2,$&n") ;
?? ??? ??? ?}
?? ??? ??? ?else
?? ??? ??? ?{
?? ??? ??? ??? ?local $res = &JudgeCW($&);
?? ??? ??? ??? ?print ("Warning!!!!!! cw not valid,$&n") if($res == 0);
?? ??? ??? ?}

?? ??? ?}

?? ?}

}

# 自定义函数，提取时间信息并给出整数值
sub time()
{
?? ?my @array=split(/:/,$_[0]);
?? ?my $value=$array[0]*3600+$array[1]*60+$array[2];
?? ?return $value;
}

sub JudgeCW()
{
?? ?local @data = split(/ /,$_[0]);
?? ?local $sum1 = hex($data[0])+hex($data[1])+hex($data[2]);
?? ?local $sum2 = hex($data[4])+hex($data[5])+hex($data[6]);
?? ?if( 
?? ??? ?($sum1 & 0xff) == hex($data[3]) &&
?? ??? ?( $sum2 & 0xff) == hex($data[7])
?? ?)
?? ?{
?? ??? ?return 1;
?? ?}
?? ?else
?? ?{
?? ??? ?return 0;
?? ?}

}

分析：提取时间函数：

寥寥3行，就把时间提取出来了。

时分秒，一条语句就存储数据到一个数组里。 数组的表示是用@array

时分秒的用法。 用户不用关心数据类型， 整形，浮点型混合使用，返回的数据，会根据上下文，转化为你需要的类型。

函数的调用也很简单。 &time($&). $& 是什么？ 是你匹配到的数据。

抽取，汇报的主要特点已经体现。

给一个代码分析数据的实例：

数据行：

01-19 15:39:33.814 V/stbca?? ( 1568): ****** CDSTBCA_ScrSetCW begin >>> EcmPid:6438,pbyOddKey: C1 04 8F 54 9A B0 3C 86,?

提取的时分秒

15:39:33.814

计算的时间值：

$value = 15*3600 + 39*60 + 33.814 = 3242373.814

2. 判断cw 是否合法函数：

a. 首先提取数据。用到了多次匹配字符串技术。

b. 得到一行匹配的次数简单写法。

c. 自定义校验和判断方法。

附录：perl 匹配 1．绑定操作符 =~,!~， 绑定操作符的优先级非常高 2.? $`,$&,$’ 分别存有匹配内容左，匹配内容，匹配内容右的内容 3． 可以用（）捕获特定的模式 并依次存入 $1 $2 $3 中 4. /i(忽略大小写） /g（全局） /m（多行，允许有换行符） 5. 量词： ?? ?5.1．最大量词 ?? ?*? 匹配0 或更多次 ?? ?＋ 匹配1 或更多次 ?? ?？ 匹配 1 或 0 次 ?? ?count｝匹配count次 ?? ?{min,} 匹配至少min次 ?? ?{min,max｝ 匹配至少 min次，但不超过max次 ?? ?5.2．最小量词 （添加?) ?? ?*? 匹配0次或更多次 ?? ?＋？匹配1次或更多次 ?? ?？？匹配0次或1次 ?? ?｛，min｝? 匹配最多min次 ?? ?｛min，max｝? 匹配至少min次，但不超过max次 6. 常用的字母，数字正则元符号。 d? 数字 [0-9] D? 非数字 s? 空格 S? 非空格 w? 匹配单词字符 [a-zA-Z0-9_],就是微软的文件名称限制字符。 W? 非单词字符 b? 单词边界 l? 把下一个字符变成小写 u? 大写 ---------------------------------------- () ?? ?模式内存 + * ? {} ?? ?出现次数 ^ $ b B ?? ?锚 | ?? ?选项 ---------------------------------------- 7.举例： 匹配十进制数字： ^-?d+$ ?? ?行首，行尾，可有可无的符号，一系列数字. 匹配十六进制数字：^-?0[xX][dA-Fa-F]+$ ?? ?行首，行尾，可有可无的符号，0x或0X 开始， 一系列数字或a-f A-F之间的字母