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/
