Shell Programming and Scripting

Severity   Mnemonic	              Log Message
7	CLI_SCHEDULER	         Logfile for scheduled CLI type1
5      UPTIME                       Line protocol on Interface TYPE3
7	CLI_SCHEDULER	         Logfile for scheduled CLI type2
7	CLI_SCHEDULER	         Logfile for scheduled CLI type4
5      UPTIME                       Line protocol on Interface TYPE1
4      INACTIVE_LOCAL	        Local interface Port-Channel2 is link down.type2
5      UPTIME                       Line protocol on Interface TYPE2
7	CLI_SCHEDULER	         Logfile for scheduled CLI type3
4      INACTIVE_LOCAL	        Local interface Port-Channel2 is link down type1 
4      INACTIVE_LOCAL	        Local interface Port-Channel2 is link down.type3
6	INTERFACE_STATE	 Interface Ethernet21 state1
6	INTERFACE_STATE	 Interface Ethernet21 state2
6       INTERFACE_DEL           Interface Down

Severity   Mnemonic	  occurrence             Log Message

7      CLI_SCHEDULER	    4         Logfile for scheduled CLI <type>
5      UPTIME                  2         Line protocol on Interface <type>
4      INACTIVE_LOCAL	    3         Local interface Channel2 is down.<type>
5      UPTIME                  1         Line protocol on Interface <type>
5      NEIGHBOR_NEW	    1         LLDP neighbor <type>
5      UPDOWN	            1         Line protocol on Interface.<type>
6      INTERFACE_STATE   2         Interface Ethernet21 state
6      INTERFACE_DEL       1         Interface Down

perl -F"\t" -lane '$_ =~ s/(type|state|TYPE)[0-9]/<$1>/; $h{$_}++; END{while (($k, $v) = each %h){print "$h{$k}\t$k"}}' file

#!/usr/bin/perl

my (%h, $k, $v);

open(my $fh, '<', '/path/to/file') or die "Unable to open file, $!";
while (<$fh>) {
        $_ =~ s/(type|state|TYPE)[0-9]/<$1>/;
        $h{$_}++;
}
close($fh);

while (($k, $v) = each %h) {
        print "$h{$k}\t$k"
}