Mailing List Archive

Author: felicity
Date: Thu Jan 29 10:47:23 2004
New Revision: 6349

Added:
incubator/spamassassin/trunk/masses/cpucount (contents, props changed)
Log:
here's cpucount ...

Added: incubator/spamassassin/trunk/masses/cpucount
==============================================================================
--- (empty file)
+++ incubator/spamassassin/trunk/masses/cpucount Thu Jan 29 10:47:23 2004
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+if ( $^O eq "solaris" ) {
+ local $/ ="";
+ open(PRD, "/usr/platform/`uname -i`/sbin/prtdiag|") || die "Can't run prtdiag:$!";
+ while(<PRD>) {
+ last if /= CPUs =/;
+ }
+ chop($_ = <PRD>); # get the cpu listing, chop the blank line \n
+ close(PRD);
+
+ s/^.+?-\n//s; # trim to only the list of cpus
+ print tr/\n/\n/,"\n"; # how many are there?
+}
+elsif ( $^O eq "linux" ) {
+ open(CPU,"</proc/cpuinfo") || die "Can't read /proc/cpuinfo:$!";
+ print scalar grep(/^processor\s+:/,<CPU>),"\n";
+ close(CPU);
+}
+elsif ( $^O eq "darwin" ) {
+ open(CPU,"/usr/sbin/sysctl -n hw.ncpu|") || die "Can't read sysctl:$!";
+ print <CPU>;
+ close(CPU);
+}
+else {
+ warn "Unknown platform, just saying 1 CPU!\n";
+ print "1\n";
+}