This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
Re: cpu and partition info
- From: Robert Citek <rwcitek at alum dot calberkeley dot org>
- To: "Bruce Dobrin" <dobrin at imageworks dot com>
- Cc: <cygwin at cygwin dot com>
- Date: Wed, 26 Feb 2003 16:03:01 -0600
- Subject: Re: cpu and partition info
- References: <3.0.5.32.20030224173519.00f8fbc0@mail.earthlink.net>
Thanks, Bruce,
At 12:02 PM 2/26/2003 -0800, Bruce Dobrin wrote:
>It took me about an hour to change/add enough to the perl GPL "hinv" port to
>get it to work with cygwin ( hinv v 1.4pre2).
I took your code and modified it. Works great under Cygwin. See below.
I'm not quite sure what this code does:
$name=`cat "$cpu/VendorIdentifier" << cat "$cpu/Identifier"` ;
Regards,
- Robert
-----
#!/usr/bin/perl -w
use strict;
my ($info, $cpu, $speed, $name);
$info="/proc/registry/HKEY_LOCAL_MACHINE/HARDWARE" .
"/DESCRIPTION/System/CentralProcessor";
for $cpu (<$info/*>) {
$speed=unpack ("l", `cat $cpu/~MHz`) if -e "$cpu/~Mhz" ;
if (-e "$cpu/ProcessorNameString") {
$name=`cat $cpu/ProcessorNameString`;
} else {
$name=`cat "$cpu/VendorIdentifier" << cat "$cpu/Identifier"` ;
}
$cpu =~ s#^.*/## ;
print "$cpu: $speed MHz : $name\n";
}
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Bug reporting: http://cygwin.com/bugs.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/