view release on metacpan or  search on metacpan

ODM.pm  view on Meta::CPAN

AIX::ODM -  A Perl module for retrieving ODM information about an AIX (RS/6000/pSeries) system

=head1 SYNOPSIS

  use AIX::ODM;
  
  my %odm = odm_dump('C|P');
  while ( ($ndx1, $lev2) = each %odm ) {
    while ( ($ndx2, $val) = each %$lev2 ) {
        print "odm{${ndx1}}{${ndx2}} = ${odm{${ndx1}}{${ndx2}}}\n";
    }
  }

  my %dev = odm_classes('C|P');
  foreach ${devname} ( keys %dev ) {
    print "dev{${devname}} = ${dev{${devname}}}\n";
  }

  my %attribs = odm_attributes(${dev{'devname'}};
  foreach ${attrname} ( keys %attribs ) {
    print "attribs{${attrname}} = ${attribs{${attrname}}}\n";
  }

  my ${devclass} = odm_class('C|P',${dev{'devname'});
  my ${devsubcl} = odm_subclass('C|P',${dev{'devname'});

=head1 DESCRIPTION

This module provides a Perl interface for accessing ODM information about an RS/6000 / pSeries machine running the AIX operating system.  It makes available several functions, which return hashes of values containing device information and their attr...

The syntax examples shown above as 'C|P' should be read as "C" OR "P", meaning the argument should consist of a single quoted letter "C" or "P", but NOT both.

README  view on Meta::CPAN

    AIX::ODM - A Perl module for retrieving IBM AIX ODM information

SYNOPSIS

      use AIX::ODM;
  
      my %odm = odm_dump('C|P');
      while ( ($ndx1, $lev2) = each %odm ) {
        while ( ($ndx2, $val) = each %$lev2 ) {
            print "odm{${ndx1}}{${ndx2}} = ${odm{${ndx1}}{${ndx2}}}\n";
        }
      }

      my %dev = odm_classes('C|P');
      foreach ${devname} ( keys %dev ) {
        print "dev{${devname}} = ${dev{${devname}}}\n";
      }

      my %attribs = odm_attributes(${dev{'devname'}};
      foreach ${attrname} ( keys %attribs ) {
        print "attribs{${attrname}} = ${attribs{${attrname}}}\n";
      }

      my ${devclass} = odm_class('C|P',${dev{'devname'});
      my ${devsubcl} = odm_subclass('C|P',${dev{'devname'});

  
DESCRIPTION

    This module provides a Perl interface for accessing ODM information
    about an RS/6000 / pSeries machine running the AIX operating system.

test.pl  view on Meta::CPAN

#!perl -w

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..2\n"; }
END {print "not ok 1\n" unless $loaded;}
use AIX::ODM;
$loaded = 1;
print "ok 1\n";

######################### End of black magic.


print ("\nTesting module AIX::ODM version $AIX::ODM::VERSION with Perl version $] running on $^O.\n\n");

my %odm = AIX::ODM::odm_dump('C');

while ( my ($ndx1, $lev2) = each %odm ) {
  while ( my ($ndx2, $val) = each %$lev2 ) {
    if (${odm{${ndx1}}{${ndx2}}}) {
      print "odm{${ndx1}}{${ndx2}} = ${odm{${ndx1}}{${ndx2}}}\n";
    }
  }
}

print("\nok 2\n");