如何用perl提取这样的数据?

发布网友发布时间：2022-04-13 21:59

我来回答

共4个回答

懂视网时间：2022-04-14 02:21

要求如下： 1、数据库mydata1中有个sms_info表，表中记录格式如下： +-----------+------------------+------+----- | Field

要求如下：

1、数据库mydata1中有个sms_info表，表中记录格式如下：

这个表的作用是，保存 nagios 报警时，哪个服务报的警，在什么时间，报警信息，联系了谁，以及短信是否发送成功。

2、数据库mydata2中有个contact表，表中记录格式如下：

这个表记录有电话号码的所属运维人员。

实现需要实现的是，统计出各个服务在1月份各发送了多少短信给相关运维人员。

一个服务，在报警的时候，可能有多个联系人，在报警的时候，，它需要发送短信去报警，每个联系人都需要发送一次短信。所以我的任务是，统计出这个服务在1月份这个时间段里，发送给它各个联系人的短信次数有多少次。成功的次数，失败的次数。

样本如下：

check_category服务在1月份成功发送给张三 739次短信，失败11次。

check_update服务在1月份成功发送给马六 538次短信，失败17次。

实现代码如下：

热心网友时间：2022-04-13 23:29

$curLine 变量里面保存的就是 Steve Blenheim
脚本如下：
#!/bin/perl -w
use strict;

open( FH,"tt") or die $!;

my $preLine;
my $curLine;

while(<FH>)
{
$preLine = $curLine;
$curLine = $_;
if( defined $preLine && $preLine =~ m/step2/ )
{
print $curLine;
}
}

close FH;

热心网友时间：2022-04-14 00:47

顶楼上的方法，比较简单~建议正则匹配加上^和$

热心网友时间：2022-04-14 02:21

楼上，有必要这么麻烦么...

while （<FH>）
{
last, if ( /step2/ );
}
my $line = <FH>;
print $line;