求perl脚本，用于抓取通过top指令获得的CPU信息

求perl脚本，用于抓取通过top指令获得的CPU信息

#!perl   
my @list =`top -n 1`;
foreach my $listfile (@list){
    if($listfile =~ /Cpu/g){#cpu :Cpu(s):  0.1%us,  1.0%sy,  0.4%ni, 87.4%id, 10.6%wa,  0.0%hi,  0.5%si,  0.0%st -我使用top得到的目标行，则把Cpu作为了/Cpu/g里面的过滤条件
     chomp $listfile;
     my $cpuinfo = $listfile;#$cpuinfo 即是所要行
  print "cpu :",$cpuinfo, "
";
 }
}

#!/usr/bin/env perl
use strict;
my $content = qx|top -bn 1|;
my ($reqult) = ($result =~ /CPU-usage:?s*([^s,]+)/);
printf("%s ", $result);

my @data = `top`;
my $targetLine = undef;
foreach my $line ( @data ) {
  $targetLine = $line if ( $line =~ /^cpu/i ) ;
  last if $targetLine;
}
@parts = split /s+/, $targetLine;
$usage = $parts[1];
print "Usage: $usage$/";
$usage =~ s/%us$//i;
print "Usage: $usage";