perl有比较容易画图的包麽？

huang6894

回复 10# py


    {:3_187:} 太谢谢你了，谢谢~

pitonas

{:2_172:}举个栗子

data:

1. __DATA__
   
2. 1        30-60        20        30        [/tr]
   
3. 1        30-60        22        32        [/tr]
   
4. 1        30-60        28        38        [/tr]
   
5. 1        30-60        50        60        [/tr]
   
6. 1        30-60        52        62        [/tr]
   
7. 1        70-90        70        80        [/tr]
   
8. 1        70-90        72        82        [/tr]
   
9. 1        70-90        78        88        [/tr]
   
10. 2        40-60        42        52        [/tr]
    
11. 2        70-90        72        82        [/tr]
    
12. 2        70-90        76        92        [/tr]
    
13. 2        100-140        102        112        [/tr]
    
14. 2        100-140        118        128        [/tr]

复制代码

生成的图: class1


代码: [ part 1 ]

1. #!/usr/bin/perl
   
2. 
   
3. my ( $img_width,  $img_height ) = ( 400, 200 );
   
4. my ( $box_color,  $line_color ) = qw/green black/;
   
5. my ( $line_width, $point_size ) = ( 2,   1 );
   
6. my $font_size       = 8;
   
7. my $title_font_size = $font_size + 2;
   
8. my $line_position   = 0.5;              # mid: 0.5 or top: 1
   
9. my $offset          = 10;

复制代码

代码: [ part 2 ]
{:2_172:} {:2_172:} http://bbs.chinaunix.net/forum.p ... ;extra=#pid24209814

huang6894

pitonas 发表于 2014-06-16 12:44
举个栗子

data:生成的图: class1

大神用了gnuplot 去做，小伙伴们学习啦~

mcshell

rrdtools 也还行

huang6894

{:3_195:} 为什么大神说到的东西我一样都没接触过的。。。好惭愧回复 14# mcshell