using the grep command

[goude]

Hello everyone,

I have written a small perl program that displays all the information of my computer.
One of these info is the speed processor.
To print that information I did:

print "\nProcessor : ";
system ("cat /proc/cpuinfo | grep \"model name\"");

Now this prints out the following:
Processor : model name : AMD Athlon(tm) 64 Processor 3800+

Is there a way to get rid of "model name"? So, that it prints out:

Processor : AMD Athlon(tm) 64 Processor 3800+

Doesn anyone have any suggestions please?
Thank you!!!!!!!!!

[Kieren]

You could use a sed:

print "\nProcessor : ";
system ("cat /proc/cpuinfo | grep \"model name\" | sed s/model name ://");

[goude]

Thank you for your reply Kieren,

This is what I get using sed. By the way, very useful command, didn't know about it.

Processor : sed: -e expression #1, char 7: unterminated `s' command

[Kieren]

Sorry, I forgot the quotes:

print "\nProcessor : ";
system ("cat /proc/cpuinfo | grep \"model name\" | sed 's/model name ://'");

[goude]

Didn't make any difference.

With the quotes, it prints out
Processor : model name : AMD Athlon(tm) 64 Processor 3800+

[Kieren]

There is a tab hidden in /proc/cpuinfo. Use the following instead:

print "\nProcessor : ";
system ("cat /proc/cpuinfo | grep "model name" | sed 's/model name\t: //'");

[Franklin52]

You can do all this with one sed command:

sed -n '/model name/s/.*: \(.*\)/\nProcessor : /\1/p' /proc/cpuinfo

Regards

[ghostdog74]

Hello everyone,

I have written a small perl program that displays all the information of my computer.
One of these info is the speed processor.
To print that information I did:

print "\nProcessor : ";
system ("cat /proc/cpuinfo | grep \"model name\"");

Now this prints out the following:
Processor : model name : AMD Athlon(tm) 64 Processor 3800+

Is there a way to get rid of "model name"? So, that it prints out:

Processor : AMD Athlon(tm) 64 Processor 3800+

Doesn anyone have any suggestions please?
Thank you!!!!!!!!!

if you are using Perl, then use Perl..... One way , (or you can use external Perl modules like Linux::Cpuinfo )

open(CPU, "<", "/proc/cpuinfo") or die "cannot open file";
 while (<CPU>)
{
  if ( m/model name/ ) {
    my ($one,$two) = split (/:/,$_);
    print "Processor : " . $two;
  }
} 
close(CPU);

output:

# ./test.pl
Processor :  Intel(R) Core(TM)2 CPU         T5500  @ 1.66GHz
Processor :  Intel(R) Core(TM)2 CPU         T5500  @ 1.66GHz

[goude]

Thank you all for your replies.

Problem solved

THANK YOU VERY MUCH!!!