Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
Message-Id:	<3.0.5.32.20030226160301.01fe7428@mail.earthlink.net>
X-Sender:	rwcitek AT mail DOT earthlink DOT net
Date:	Wed, 26 Feb 2003 16:03:01 -0600
To:	"Bruce Dobrin" <dobrin AT imageworks DOT com>
From:	Robert Citek <rwcitek AT alum DOT calberkeley DOT org>
Subject:	Re: cpu and partition info
Cc:	<cygwin AT cygwin DOT com>
In-Reply-To:	<00aa01c2ddd1$f033dfb0$4d1f1cac@THEODOLITE>
References:	<3 DOT 0 DOT 5 DOT 32 DOT 20030224173519 DOT 00f8fbc0 AT mail DOT earthlink DOT net>
Mime-Version:	1.0

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/

- Raw text -