Select Code to Download

Checks: Running 'show port | match "Up    Yes" | count'
Count: 23 lines

Checks: Running 'show router interface | match "Up " | count'
Count: 4 lines

open( INPUT, "$folder/$file" ) or die("Could not open $file file");
while ( my $line = <INPUT> ) {
next if ( $line =~ m/show port/ );
...
        $checks{l3}{$stage} = $1;
      }
}

23
4

$VAR1 = {
          'card' => {
...
                     'pre' => '14'
                   }
        };