Recent content by novawolf1

You are very welcome! Glad I could help. ------------------------------ The beatings will stop when morale improves!!!!!

See if this helps..... my $newVar = TEST->testObj(); foreach my $key (keys % { $newVar } ) { print "$key\n"; } package TEST; sub testObj { #Setup Basic Class my $class = shift; my $self = {}; #Create info in hash $self->{ONE} = "1"; $self->{TWO} = "2"; $self->{THREE} =...

When you create the object, are you using bless? Or are you just returning a ref to a hash? ------------------------------ The beatings will stop when morale improves!!!!!

Hello All, I am trying to use the Net::Telnet module to connect to UNIX machines and gather information about kernel parameters, file systems, applications, patch levels and so on. Here is the issue: I get varying output each time I run my script. It seems like the Net::Telnet module is...

It is my understanding that the PERL DBI does not work well on HP. This guy says he solved the issue. Maybe.. maybe not. Hope this helps. http://www.mail-archive.com/dbi-users@perl.org/msg18687.html ------------------------------ The beatings will stop when morale improves!!!!!

You might try this..... if ($this == $that) { ...Do something... } else { $yourErrorCode = "Bad Things.... $!"; &ExitError($yourErrorCode); } sub ExitError { $tmpErr = @_; ... do something with error ... exit(1); .... or exit ($tmpErr); } Depending on how you...

I have the info on HP as well.... HP => find /tmp/junk/ -name test.txt -exec ls -l {} \; Hope this helps....

Well this depends on the platform. HP does not have a built in -ls function in find from what I can see. You will have to use the -exec command with find. AIX - find /tmp/junk -name test.txt -ls 196 28 -rwxr-xr-x 1 user users 25241 Mar 12 2001 /tmp/junk/test.txt This should work with...

You guys rock!!!!!!!!!!!!!!!!!!!!! Thank you so much for all of the tips!!!!!!!

Okay, I have been tasked with getting information about HP and AIX systems without using SAM or SMIT. I will be writing my little utility in Perl. Basically I need a way to get everything about OS,Processor,Memory,Paging,and disks. I am familair with iostat,mount,swlist,uname and vmstat. I am...