列出最新符合條件的記錄

fzhcl

本人剛開(kāi)始學(xué)perl, 現(xiàn)有如下需求：先在這兒謝謝高手。

我有一組數(shù)據(jù)如下，找出第一字段中最新記錄之后不含":21"的記錄。

如：
最后一條Filesystem_Crit:ITM_KLZ_Disk;  之后有一條Filesystem_Crit:ITM_KLZ_Disk:21; , 這不是我要的，（Filesystem_Crit:ITM_KLZ_Disk 與Filesystem_Crit:ITM_KLZ_Disk:21 是一對(duì)， 但不是一一對(duì)應(yīng)。）
最后一條PROC_master_Crit:ITM_KLZ_Process; 之后沒(méi)有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


結(jié)果如下：

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

huang6894

存進(jìn)hash，如果遇到有末尾是:21的話用delete刪除這個(gè)key的關(guān)聯(lián)數(shù)組