论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2014-12-27 10:13 |只看该作者 |倒序浏览

本人刚开始学perl, 现有如下需求：先在这儿谢谢高手。

我有一组数据如下，找出第一字段中最新记录之后不含":21"的记录。

如：
最后一条Filesystem_Crit:ITM_KLZ_Disk;  之后有一条Filesystem_Crit:ITM_KLZ_Disk:21; , 这不是我要的，（Filesystem_Crit:ITM_KLZ_Disk 与Filesystem_Crit:ITM_KLZ_Disk:21 是一对，但不是一一对应。）
最后一条PROC_master_Crit:ITM_KLZ_Process; 之后没有PROC_master_Crit:ITM_KLZ_Process:21, 这是我要的

PROC_sge_execd_Crit:ITM_KLZ_Process;    12/18/2014 2:12:21 PM
PROC_sge_execd_Crit:ITM_KLZ_Process:21; 12/18/2014 2:22:21 PM
PROC_master_Crit:ITM_KLZ_Process;       12/19/2014 9:56:53 PM
PROC_htt917515AD49DF:ITM_KLZ_Process;    12/19/2014 9:57:54 PM
PROC_activemq_Crit:ITM_KLZ_Process;    12/19/2014 10:00:16 PM
Filesystem_Crit:ITM_KLZ_Disk:21;       12/20/2014 1:11:21 PM
Filesystem_Crit:ITM_KLZ_Disk:21;       12/20/2014 7:26:20 PM
Filesystem_Crit:ITM_KLZ_Disk:21;       12/20/2014 10:41:20 PM
Filesystem_Crit:ITM_KLZ_Disk:21;       12/21/2014 6:11:19 AM
Filesystem_Crit:ITM_KLZ_Disk:21;       12/21/2014 12:41:18 PM
Filesystem_Crit:ITM_KLZ_Disk;          12/23/2014 6:26:13 AM
Filesystem_Crit:ITM_KLZ_Disk;          12/23/2014 9:03:55 AM
Filesystem_Crit:ITM_KLZ_Disk:21;       12/23/2014 9:11:12 AM

结果如下：

PROC_master_Crit:ITM_KLZ_Process;       12/19/2014 9:56:53 PM
PROC_htt917515AD49DF:ITM_KLZ_Process;    12/19/2014 9:57:54 PM
PROC_activemq_Crit:ITM_KLZ_Process;    12/19/2014 10:00:16 PM

记录