Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
##
...
    $details{'Chassis'} = $1 if (/^Model number: (\S+)/i);
    print Dumper(\%details);
}
  2. or download this
    $VAR1 = {};
$VAR1 = {};
$VAR1 = {};
  3. or download this
    $VAR1 = {
          'Main Memory' => '3981680',
...
          'Main Memory' => '65526K/8192K',
          'Chassis' => 'WS-C3550-48'
        };