Help for this page

Select Code to Download


  1. or download this
    my $item = "UNKNOWN";
    if ( $line =~ m/show port/ )                { $item                  =
    + "port"; }
    if ( $line =~ m/show router interface/ )    { $item                  =
    + "l3"; }
    if ( $line =~ m/Count:\s+(\d+)/ )           { $checks{$item}{$stage} =
    + $1; }
    
  2. or download this
    $VAR1 = {
              'subs' => {
    ...
                         'pre' => '14'
                       }
            };