作者sqrt1089 (李崩子)
看板Perl
标题[问题] 关於画图，GD画图
时间Mon Nov 22 19:43:17 2010
=====以下是程式码=====
#!/usr/local/bin/perl -w
use CGI ':standard';
use GD::Graph::lines;
open (FH,"02.txt")||die"File open Error!\n";
my @file = map { chomp; split(/\t/) } <FH>;
@num=(1..$#file+1);#定义X轴的值
@data = ([@num],
[@file]
);
my $mygraph = GD::Graph::lines->new(900, 300);
$mygraph->set(
x_label => 'X',
y_label => 'Y',
title =>'Test',
# Set the thickness of line
line_width => 1,
) ;#or warn $mygraph->error;
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
binmode STDOUT;
print $myimage->png;
===================
以下是我执行後。
C:\>perl GD99.pl >test.png
然後test.png 长这样
http://ppt.cc/ZIi,
然後我的记事本的内容是这样
10 9 8 7 6 8
201 190 180 170 160 155 176
就是2行数。
我最後是希望能有2条曲线，可是我再怎麽弄都是一条，而且是全部的值拿去画
如果是要写死是这样
@data = ([1,2,3,4,5,6,7],#这是X
[10,9,8,7,6,8],#之後都是Y
[201,190,180,170,160,155,176],
[...]#依此类推。
);
..
.
在这先说声谢谢。
--
--
▂▂ ▂▂▂
▂▄▅▅▄▆█ ＿█◣
◢ (●) ◣／＼＼
丫 │◥ ￣◤
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.215.116
1F：→ cibs:作法你不是自己列出来了吗？ 11/23 01:39
2F：→ sqrt1089:可是我真正的输入是未知数，我只是先用记事本代替 11/23 02:52
3F：→ sqrt1089:就是程式里本身不能改，能改的就是记事本 11/23 02:53