Chinaunix首页 | 论坛 | 博客
  • 博客访问: 48863
  • 博文数量: 19
  • 博客积分: 1504
  • 博客等级: 上尉
  • 技术积分: 190
  • 用 户 组: 普通用户
  • 注册时间: 2008-10-06 14:21
个人简介

系统运维

文章分类
文章存档

2013年(6)

2011年(2)

2009年(4)

2008年(7)

我的朋友

分类:

2008-11-19 16:43:45

 

#学习CGI,刚好有点内容要处理,拿来练手。

########################################################################

#cgi程序名:gd_post

#下面是POST方式

my (%FORM,$buffer,$pair,@pairs,@values,$name,$value);
read (STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
   ($name,$value)=split(/=/,$pair);
   $value=~tr/+/ /;
   $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
push @values,$value;
}

#下面是GET方式

#$QuerystringFromEnv=$ENV{QUERY_STRING};

#@NameAndValuelists=split /&/,$QuerystringFromEnv;

#foreach $NameAndValue(@NameAndValuelists)

#{

# ($Name,$Value)=split /=/,$NameAndValue;

# $Name=~tr/+//;

# $Value=~s/%([\dA-Fa-f][\dA-Fa-f])/pack("c",hex($1))/eg;

#push @values,$Value;

#}


my($whT,$whP,$lszT,$lszP,$lllT,$lllP,$dhT,$dhP,$yshT,$yshP,$zkT,$zkP,$fyT,$fyP,$lpT,$lpP)
= ($values[0],$values[1],$values[2],$values[3],$values[4],$values[5],$values[6],$values[7],
$values[8],$values[9],$values[10],$values[11],$values[12],$values[13],$values[14],$values[15]);

use GD::Graph3D;
use GD::Graph::bars3d;
print "Content-type: image/png;\n\n";

@data = (
    ["汪华","李苏中","李绿林","丁浩","严胜洪","郑凯","方阳", "鲁鹏"],
    [ $whT, $lszT, $lllT, $dhT, $yshT, $zkT, $fyT, $lpT],
    [ $whP, $lszP, $lllP, $dhP, $yshP, $zkP, $fyP, $lpP]
  );
 my $graph = GD::Graph::bars3d->new(800, 600);
$graph->set_x_label_font("C:/WINDOWS/Fonts/SURSONG.TTF",10);
$graph->set_y_label_font("C:/WINDOWS/Fonts/SURSONG.TTF",10);
$graph->set_x_axis_font("C:/WINDOWS/Fonts/SURSONG.TTF",10);
$graph->set_title_font("C:/WINDOWS/Fonts/SURSONG.TTF",16);
$graph->set_legend_font("C:/WINDOWS/Fonts/SURSONG.TTF",8);
$graph->set_legend("加域总量","今日加域数量");
$graph->set(
      x_label => '-----加域成员-----',
      y_label => '-----加域数量-----',
      title => '**公司之办公PC加域状况图',
      y_max_value => 120,
      y_tick_number => 20,
      y_label_skip => 2
  ) or die $graph->error;

my $gd = $graph->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;



###############################################################################

#html程序名:gd_post-html

<html>
<head><title>网络组加域状况图</title></head>
<body>
<form METHOD=POST ACTION="绘图/gd_post.cgi">

<tr>
     <td nowrap><b>*&nbsp;&nbsp;*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*李苏中*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*李绿林*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*&nbsp;&nbsp;*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*严胜洪*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*&nbsp;&nbsp;*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*&nbsp;&nbsp;*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>
<tr>
     <td nowrap><b>*&nbsp;&nbsp;*</b><br>
     完成总量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     今日完成数量:</td>
     <td nowrap><input SIZE=1 MAXLENGTH=3 NAME="value"></td>
     
</tr><hr>

<input type="submit" value="提交">
<input type="reset" value="重置">
</form>
</html>

阅读(3629) | 评论(2) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2009-03-10 08:51:09

已解决:〉

chinaunix网友2009-03-06 08:44:06

不错,但我图片中的中文怎么不能显示呢? 可否交流一下