Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    'on'
    ''
    300
    
  2. or download this
    foreach (@tokens)
    {
    ...
                   #for "defined-ness" instead of truthful-ness.
       print "$_\n";
    }
    
  3. or download this
    __DATA__
    3,  0, 0, 3,  2, 'on', 'host_description - Hard Drive Space',      '',
    + NULL, '', 'on', '', 300, ''
    ...
    8,  0, 0, 8,  2, 'on', 'host_description - Signal Level',          '',
    + NULL, '', 'on', '', 300, ''
    9,  0, 0, 9,  2, 'on', 'host_description - Wireless Transmits',    '',
    + NULL, '', 'on', '', 300, ''
    10, 0, 0, 10, 2, 'on', 'host_description - Wireless Re-Transmits', '',
    + NULL, '', 'on', '', 300, ''
    
  4. or download this
    3,  0, 0, 3,  2, 'on', 
    4,  0, 0, 4,  1, '',   # 4,  0, 0, 4,  1, 'off'
    ...
    8,  0, 0, 8,  2, 'on', 
    9,  0, 0, 9,  2, 'on', 
    10, 0, 0, 10, 2, 'on',