Infos über Maschine (Allgemeines zu Perl)

hudo

2004-04-06 03:36

User since
2003-11-20
72 Artikel
BenutzerIn
[default_avatar]

Hallo,

wie kann man mit perl (unter Windows) den Prozessor-Typ und -Frequenz des Rechners bestimmen ?

Gruss

Crian

2004-04-07 11:39

User since
2003-08-04
5870 Artikel
ModeratorIn

Schau mal bei perldoc Win32, da ist allerlei dabei was nützlich für Dich sein könnte.

Etwa

Code: (dl )

1
2

Win32::GetArchName()
Win32::GetChipName()

Ob da auch die Frequenz bei ist, weiß ich nicht.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

[E|B]

2004-04-07 20:51

User since
2003-08-08
2561 Artikel
HausmeisterIn

HiHo!

Code: (dl )

use Win32::SystemInfo;
use strict;
use warnings;

my (%phash, %mhash, $proc, $cpuinfo);

$proc = Win32::SystemInfo::ProcessorInfo();
Win32::SystemInfo::ProcessorInfo(%phash);
Win32::SystemInfo::MemoryStatus(%mHash, "MB");
$cpuinfo = "Installed Processors: $phash{NumProcessors}\n";
foreach my $i (0..($phash{NumProcessors} - 1)){
          $cpuinfo .= "\nProcessor ".($i + 1).":\n";
          $cpuinfo .= "Processor level: $proc\n";
          $cpuinfo .= "Processor Speed: $phash{"Processor$i"}{'MHZ'} MHz\n";
          $cpuinfo .= "Identifier: $phash{"Processor$i"}{'Identifier'}\n";
          $cpuinfo .= "Vendor Identifier: $phash{"Processor$i"}{'VendorIdentifier'}\n";
          $cpuinfo .= "Processor Name: $phash{"Processor$i"}{'ProcessorName'}\n";
}

print $cpuinfo;

\n\n

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

esskar

2004-04-09 15:56

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

genau das wollte ich posten als der server ausgfallen ist!

[E|B]

2004-04-09 16:28

User since
2003-08-08
2561 Artikel
HausmeisterIn

Bei mir ist der Server einmal auch ausgefallen. Musste das Snippet dann nochmals schreiben. ;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

esskar

2004-04-09 16:33

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[E|B
,09.04.2004, 14:28]Bei mir ist der Server einmal auch ausgefallen. Musste das Snippet dann nochmals schreiben. ;)

ich konnte eigentlich seit ich die erste "server down" mail über knusperfisch geschrieben hatte, nicht mehr hier surfen. war unmöglich. bis jetzt eben!