Shell Programming and Scripting

print Dumper \%mnemonics;

VAR1 = {
 
          'SYS-7-CLI_SCHEDULER_LOG_STORED' => [
                                                {
                                                  'template' => 'Logfile for scheduled CLI execution job is stored in flash memory',
                                                  'regex' => 'Logfile for scheduled CLI execution job \'tech-support\' is stored in flash memory',
                                                  'trap' => '5'
                                                }
                                              ],
          'CRYPTO-6-IKMP_MODE_FAILURE' => [
                                            {
                                              'template' => 'Processing of Informational mode failed with peer IP',
                                              'regex' => 'Processing of Informational mode failed with peer at (\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})',
                                              'trap' => '4'
                                            }
                                          ],
          'AAAA-4-SERVUNDEF' => [
                                  {
                                    'template' => 'The server-group "vty" is not defined. Please define it.',
                                    'regex' => 'The server-group "vty" is not defined. Please define it.',
                                    'trap' => '1'
                                  }
                                ],
          'FWSM-2-106007' => [
                               {
                                 'template' => 'Deny inbound UDP from the IP Address',
                                 'regex' => 'Deny inbound UDP from (\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})',
                                 'trap' => '8'
                               },
                               {
                                 'template' => 'Processing of Informational mode failed',
                                 'regex' => 'Processing of Informational mode failed with peer at (\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})',
                                 'trap' => '9'
                               }
                             ]
        };

#! /usr/bin/perl -w
use strict;

my $VAR1 = {
 
          'SYS-7-CLI_SCHEDULER_LOG_STORED' => [
                                                {
                                                  'template' => 'Logfile for scheduled CLI execution job is stored in flash memory',
                                                  'regex' => 'Logfile for scheduled CLI execution job \'tech-support\' is stored in flash memory',
                                                  'trap' => '5'
                                                }
                                              ],
          'CRYPTO-6-IKMP_MODE_FAILURE' => [
                                            {
                                              'template' => 'Processing of Informational mode failed with peer IP',
                                              'regex' => 'Processing of Informational mode failed with peer at (\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})',
                                              'trap' => '4'
                                            }
                                          ],
          'AAAA-4-SERVUNDEF' => [
                                  {
                                    'template' => 'The server-group "vty" is not defined. Please define it.',
                                    'regex' => 'The server-group "vty" is not defined. Please define it.',
                                    'trap' => '1'
                                  }
                                ],
          'FWSM-2-106007' => [
                               {
                                 'template' => 'Deny inbound UDP from the IP Address',
                                 'regex' => 'Deny inbound UDP from (\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})',
                                 'trap' => '8'
                               },
                               {
                                 'template' => 'Processing of Informational mode failed',
                                 'regex' => 'Processing of Informational mode failed with peer at (\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})',
                                 'trap' => '9'
                               }
                             ]
        };

my $key_in_focus = "FWSM-2-106007";
my $count = 0;

for (keys %{ $VAR1 }) {
    if ($_ eq $key_in_focus && ref($VAR1->{$_}) eq "ARRAY") {
        for (@{ $VAR1->{$_} }) {
            if (ref($_) eq "HASH") { # Just an additional check to count only the hashes inside the array
                $count++;
            }
        }
        print "$key_in_focus points to $count element(s).\n";
    }
}