吃上饺子了，给大家分享！

justlooks

这个是画cpu占用情况的图，我测试集群用的，perl不怎么会，临时拼凑的，其中的画图功能网络上找的，脚本不太完善，但满足我的需求了
我的数据来自sar 可以根据自己需要检测的指标灵活改动,另外我还会经常来吃饺子的～～～～

1. 
   
2. #!/usr/bin/perl
   
3. #
   
4. #       read from file cpud1(data which produce by sar -u)
   
5. #                                         by justlooks
   
6. ############################################################
   
7. use strict;
   
8. use GD::Graph::lines;
   
9. 
   
10. my @tmp1;
    
11. my @cpud=();
    
12. my @timed=();
    
13. open(FH,"cpud1") or die "nnnnnn!\n";
    
14. while(<FH>){
    
15.     @tmp1=split;
    
16.     if($tmp1[8]=~m/\d+/){
    
17.     push @cpud,$tmp1[8];
    
18.     }
    
19.     if(m/(?<=:)\d{2}:\d{2}/){
    
20.        push @timed,$&;
    
21.     }
    
22. }
    
23. my $arrlen=@cpud;
    
24. my $i;
    
25. for $i (0..$arrlen-1){
    
26.     $cpud[$i]=100-$cpud[$i];   ＃把图转个180度
    
27. }
    
28. 
    
29. close(FH);
    
30. 
    
31. 
    
32. my @data=(
    
33. [@timed],
    
34. [@cpud],);
    
35. 
    
36. my $my_graph=new GD::Graph::lines(1000,600);
    
37. $my_graph->set(
    
38. x_label => 'time',
    
39. y_label => 'cpu use(%)',
    
40. y_max_value => '100',
    
41. y_min_value => '0',
    
42. title => 'just draw',
    
43. transparent => 0,
    
44. );
    
45. 
    
46. $my_graph->plot(\@data);
    
47. save_chart($my_graph,'edit2');
    
48. sub save_chart
    
49. {
    
50.     my $chart = shift or die "Need a chart";
    
51.     my $name = shift or die "Need a name";
    
52.     local(*OUT);
    
53.     my $ext = $chart->export_format;
    
54.     open(OUT,">$name.$ext") or
    
55.     die "Can not open $name.$ext for write: $!";
    
56.     binmode OUT;
    
57.     print OUT $chart->gd->$ext();
    
58.     close OUT;
    
59. }
    

复制代码

Perl_Er

把图(结果)贴出来看看啦

justlooks

我不知道阿,这个论坛哪里能贴图？

flw

希望楼主能够再接再厉，把 Perl 学好用好。

justlooks

多谢版主

iakuf

附件可以放图...

cxfcxf

1. if(m/(?<=:)\d{2}:\d{2}/){
   
2.        push @timed,$&;

复制代码

其实 很对纯sar -u输出来说 这句是有问题的 这会把第一句 的第一个时间 也统计进去
12:00:01 AM       CPU     %user     %nice   %system   %iowait    %steal     %idle
12:10:01 AM       all     16.77      0.00      7.54      3.86      0.00     71.83
12:20:01 AM       all     15.59      0.12      6.88      3.22      0.00     74.18

就是第一句的12:00:01  是没对应[8的]的 所以你@data的2个数列 后者@cpud 少了一个元素

1. open (FH, "cpu1") or die $!;
   
2. 
   
3. my @cpu;
   
4. my @time;
   
5. while (<FH>) {
   
6.     my @array = split;
   
7.     if (exists $array[8]) {
   
8.         if ($array[8] =~ /\d+/) {
   
9.             push @cpu, $array[8];
   
10.             if ($array[0] =~ /\d{2}\:(\d{2}\:\d{2})/) {
    
11.                 push @time, $1;
    
12.             }
    
13.         }
    
14.     }
    
15. }

复制代码

这么写是不是会好点

[ 本帖最后由 cxfcxf 于 2009-9-12 07:54 编辑 ]

justlooks

OK上图第1张是上面代码的图，第2张我改了下，3批数据画在1张图上，我不知道说明怎么画上去（就是在图边标注什么颜色的线代表什么），谁用这个比较熟悉的，告诉我下怎么弄

justlooks

这点到没有注意，但是单纯sar -u 根本没数据的阿？

cxfcxf

# sar -u
Linux 2.6.18-92.1.18.el5PAE (Stage1st-APP)      09/12/2009

12:00:01 AM       CPU     %user     %nice   %system   %iowait    %steal     %idle
12:10:01 AM       all     16.77      0.00      7.54      3.86      0.00     71.83

他是去调用 /var/log/sa/saxx的文件 每天写一次一般...