Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: how I can find Processor serial number or (Processor ID) ?

by grinder (Bishop)
on Apr 18, 2008 at 11:19 UTC ( [id://681456]=note: print w/replies, xml ) Need Help??


in reply to how I can find Processor serial number or (Processor ID) ?

Let me suggest any other appropriate way (functions or code) to find unique Processor ID.

No, please, let me :)

I assume your desire is to get rid of the dependency on the external binary and do it all in Perl. First step would be CPAN. My first port of call would be Sys::Info, and see whether it builds correctly on your platform.

If it doesn't another approach would be to look at the source to dmidecode, figure out what it does, and write some XS code to duplicate the functionality. This is the approach I used when writing BSD::Process and BSD::Sysctl.

If it boils down to a couple of kernel system calls, you might be able to get away with calling syscall if you can get all the necessary arcana packed up appropriately.

Other than that, there's nothing intrinsically wrong with using an external binary, it's an honourably Lazy approach. You might just want to open it as an input pipe and munge its output directly, rather than fiddling around with grep and sed.

update: *snort* looks like Khen1950fx has the goods. That'll serve me right for not looking at CPAN before posting!

• another intruder with the mooring in the heart of the Perl

  • Comment on Re: how I can find Processor serial number or (Processor ID) ?

Replies are listed 'Best First'.
Re^2: how I can find Processor serial number or (Processor ID) ?
by Khen1950fx (Canon) on Apr 18, 2008 at 11:42 UTC
Re^2: how I can find Processor serial number or (Processor ID) ?
by amitbhosale (Acolyte) on Apr 23, 2008 at 08:03 UTC
    Hi Perl gurus,
    
    Thanks a lot for your great assistance.
    
    First i will work on CPAN sys::info module and then i will start analysis of demidecode C code and try to create same utility in perl.
    
    Special thanks to grinder for showing me new way to create some new utilities from existing utilities.
    
    Thanks & Regards,
    -Amit
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://681456]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2024-04-24 23:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found