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

This is true, that the runtime must also be present. I've also considered using a business-card CD and running it from source which won't run into architecture problems like a PAR executable (at least I don't think so).

Still you offer me no suggestions... Do you know of any code that could accomplish this design, if even on one architechture and not many?

--
Tommy Butler, a.k.a. TOMMY
  • Comment on Re: Re: Using Perl to detect RAM amount

Replies are listed 'Best First'.
Re: Using Perl to detect RAM amount
by Abigail-II (Bishop) on Jan 06, 2004 at 08:11 UTC
    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

[reply]
[d/l]
      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]
      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