Thank you Micheal!! Having loads of fun with this at the moment!! ;)
There seems to be another caveat as well, SMP systems. ;) Fortunate enough to be able to test it on such a box at work. So, input would be something of the following: [anders@redhat anders]$ cat /proc/cpuinfo processor : 0 vendor_id : GenuineIntel cpu family : 6 model : 8 model name : Pentium III (Coppermine) stepping : 10 cpu MHz : 997.497 cache size : 256 KB fdiv_bug : no hlt_bug : no f00f_bug : no coma_bug : no fpu : yes fpu_exception : yes cpuid level : 2 wp : yes flags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 mmx fxsr sse bogomips : 1992.29 processor : 1 vendor_id : GenuineIntel cpu family : 6 model : 8 model name : Pentium III (Coppermine) stepping : 10 cpu MHz : 997.497 cache size : 256 KB fdiv_bug : no hlt_bug : no f00f_bug : no coma_bug : no fpu : yes fpu_exception : yes cpuid level : 2 wp : yes flags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 mmx fxsr sse bogomips : 1992.29 [anders@redhat anders]$ There are now 2 empty lines that'd need to be stripped out, or I'll be getting : Use of uninitialized value in hash element at ./cpuinfo.pl line 27, <CPUINFO> line 19. Use of uninitialized value in hash element at ./cpuinfo.pl line 27, <CPUINFO> line 19. Use of uninitialized value in hash element at ./cpuinfo.pl line 27, <CPUINFO> line 38. Use of uninitialized value in concatenation (.) at ./cpuinfo.pl line 33, <CPUINFO> line 38. Line 19 & 38 are the empty lines. Shouldn't be too hard to fix this either.. I'll bounce my head on it and shout if I can't get it to work!! ;) Cheers!! Anders Holm -----Original Message----- From: Michael Lamertz [mailto:[EMAIL PROTECTED]] Sent: 29 April 2002 13:29 To: Michael Lamertz Cc: beginners perl; Anders Holm Subject: Re: Getting contens of file into a hash Whooops: On Mon, Apr 29, 2002 at 02:12:27PM +0200, I wrote: > On Mon, Apr 29, 2002 at 11:59:42AM +0100, Anders Holm wrote: > > Hi folks! > > > You're right on track (with some exceptions, but read about that further > down the page). > > my ($key, $value) = split /:/; make that 'split /\s*:\s*/;' > will give you e.g. > $key "cpu family" > $value "6" -- If we fail, we will lose the war. Michael Lamertz | +49 221 445420 / +49 171 6900 310 Nordstr. 49 | [EMAIL PROTECTED] 50733 Cologne | http://www.lamertz.net Germany | http://www.perl-ronin.de -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
