in reply to Re: Re: Using Perl to detect RAM amount
in thread Using Perl to detect RAM amount

Linux: cat /proc/meminfo. On Solaris, one can dump the hardware device tree - this will include the memory. (I can't remember the command). IIRC, on HP-UX, one of the *scan commands will show the physical amount of memory. Typically, after a reboot, dmesg will show that info there somewhere as well. Of course, none of this is very platform independent.

Abigail

Replies are listed 'Best First'.
Re: Re: Using Perl to detect RAM amount
by Tommy (Chaplain) on Jan 06, 2004 at 21:41 UTC
    Now that's a start. I'll find the right scan command and do some reading. I've found an easy way to dig up commands that I can't alltogether remember goes like... 
    #!/usr/bin/perl -w
use strict; use warnings;

my($cmd) = 'conf';

foreach (split(/:/,$ENV{'PATH'})) {
   print qq[IN "$_"\n], (`ls ${\quotemeta $_}|grep $cmd`||"[none]\n"),
+ "--\n\n"
}

    [download]
    --
Tommy Butler, a.k.a. TOMMY
[reply]
[d/l]
Re: Re: Using Perl to detect RAM amount
by spartan (Pilgrim) on Jan 07, 2004 at 19:32 UTC
    This should work on all modern sparc platforms (sun4u mostly)
    #!/usr/bin/perl -w

use strict;

chomp (my @data=`/usr/platform/\`uname -m\`/sbin/prtdiag`);

foreach my $line (@data) {
  if ($line =~ /Mem/) {
    my @needed_line=(split /\s+/, $line);
    print "Memory = ".$needed_line[2]."\n";
  }
}

    [download]


    Very funny Scotty... Now PLEASE beam down my PANTS!
[reply]
[d/l]

In Section Seekers of Perl Wisdom