Help for this page

Select Code to Download


  1. or download this
    perl -Mstrict -Mwarnings -le '
sub tab { 
...
$s{TYPE} = $1 if ( m/^\s*(\S+)\s*\{/imsx ); 
$s{$1} = $2 if ( m/^\s+([^=]+)=(.+)$/imsx ); 
'
  2. or download this
    %s = (
       'TYPE' => 'hoststatus',
...
       'host_name' => 'AAA1',
       'plugin_output' => 'eth0:UP, eth2:UP, eth3:UP, eth1:UP:4 UP: OK
+'
     );