37,720
社区成员
发帖
与我相关
我的任务
分享这是什么错误阿？？？
先声明：
回答问题时尽点心，不要三言两语应付一下。。。。。。。。。。。。。。。。。。。。。
[Wed Jul 01 10:40:08 2009] [error] [client 127.0.0.1] (13)Permission denied: exec of '/home/magnet/src/perl/cgi-bin/analytime.gif' failed, referer: http://localhost/cgi-bin/analytime.cgi?submit=%E6%97%B6%E9%97%B4%E5%88%86%E6%9E%90%28analytime%29
[Wed Jul 01 10:40:08 2009] [error] [client 127.0.0.1] Premature end of script headers: analytime.gif, referer: http://localhost/cgi-bin/analytime.cgi?submit=%E6%97%B6%E9%97%B4%E5%88%86%E6%9E%90%28analytime%29
这是我的代码
#!/usr/bin/perl
#时间分析
use DBI;
use CGI qw(:standard);
use GD::Graph::pie;
#print "Context-type:image/gif\n\n";
print header;
print start_html(-title=>'analytime');
=pod
print "<html>";
print "<head>";
print "<title></title>";
print "</head>";
print "<body>";
=cut
$datasource="DBI:mysql:database=design";
$user="root";
$passwd="root";
$db=DBI->connect($datasource,$user,$passwd,{'RaiseError'=>1});
$sth=$db->prepare("call timeanaly()");
$sth->execute();
@row=$sth->fetchrow_array();
@time=('06-12','12-18','18-24','00-06');
push(@data,[ @time ]);
push(@data,[ @row ]);
$sth->finish();
$db->disconnect();
for $i (0 .. $#data){
for $j (0 .. $#{$data[$i]})
{
print h3("$data[$i][$j]");
}
print "\n";
}
$my_graph = new GD::Graph::pie(800,800);
$my_graph->set(
itle => 'Title',
show_values => 1,
transparent => 0,
);
$my_graph->plot(\@data);
save_chart($my_graph, 'analytime');
sub save_chart
{
$chart = shift or die "Need a chart!";
$name = shift or die "Need a name!";
#print "$name";
local(*OUT);
$ext = $chart->export_format;
open(OUT, ">$name.$ext") or
die "Cannot open $name.$ext for write: $!";
binmode OUT;
print OUT $chart->gd->$ext();
close OUT;
}
print "<IMG src=./analytime.gif>";
=pod
print "</body>";
print "</html>";
=cut
print img( { -src=>'./analytime.gif' ,-aligen=>right });
print end_html();
写的不好，不要见怪。。。。。。
目的就是：让生成的./analytime.gif在网页中显示出来。。。。。。。。。。
回答问题时尽点心，不要三言两语应付一下。。。。。。。。。。。。。。。。。。。。。
[Wed Jul 01 10:40:08 2009] [error] [client 127.0.0.1] (13)Permission denied: exec of '/home/magnet/src/perl/cgi-bin/analytime.gif' failed, referer: http://localhost/cgi-bin/analytime.cgi?submit=%E6%97%B6%E9%97%B4%E5%88%86%E6%9E%90%28analytime%29
[Wed Jul 01 10:40:08 2009] [error] [client 127.0.0.1] Premature end of script headers: analytime.gif, referer: http://localhost/cgi-bin/analytime.cgi?submit=%E6%97%B6%E9%97%B4%E5%88%86%E6%9E%90%28analytime%29
这是我的代码
#!/usr/bin/perl
#时间分析
use DBI;
use CGI qw(:standard);
use GD::Graph::pie;
#print "Context-type:image/gif\n\n";
print header;
print start_html(-title=>'analytime');
=pod
print "<html>";
print "<head>";
print "<title></title>";
print "</head>";
print "<body>";
=cut
$datasource="DBI:mysql:database=design";
$user="root";
$passwd="root";
$db=DBI->connect($datasource,$user,$passwd,{'RaiseError'=>1});
$sth=$db->prepare("call timeanaly()");
$sth->execute();
@row=$sth->fetchrow_array();
@time=('06-12','12-18','18-24','00-06');
push(@data,[ @time ]);
push(@data,[ @row ]);
$sth->finish();
$db->disconnect();
for $i (0 .. $#data){
for $j (0 .. $#{$data[$i]})
{
print h3("$data[$i][$j]");
}
print "\n";
}
$my_graph = new GD::Graph::pie(800,800);
$my_graph->set(
itle => 'Title',
show_values => 1,
transparent => 0,
);
$my_graph->plot(\@data);
save_chart($my_graph, 'analytime');
sub save_chart
{
$chart = shift or die "Need a chart!";
$name = shift or die "Need a name!";
#print "$name";
local(*OUT);
$ext = $chart->export_format;
open(OUT, ">$name.$ext") or
die "Cannot open $name.$ext for write: $!";
binmode OUT;
print OUT $chart->gd->$ext();
close OUT;
}
print "<IMG src=./analytime.gif>";
=pod
print "</body>";
print "</html>";
=cut
print img( { -src=>'./analytime.gif' ,-aligen=>right });
print end_html();
写的不好，不要见怪。。。。。。
目的就是：让生成的./analytime.gif在网页中显示出来。。。。。。。。。。
...全文
请发表友善的回复…
发表回复
magnet2008 2009-07-03
- 打赏
- 举报
网页文件在这个目录/home/magnet/src/perl/cgi-bin
这是生成的图片/home/magnet/src/perl/cgi-bin/analytime.gif
这是生成的图片/home/magnet/src/perl/cgi-bin/analytime.gif
wx红杉树 2009-07-02
- 打赏
- 举报
感觉你生成的图片文件不在当前目录下'./analytime.gif'
magnet2008 2009-07-01
- 打赏
- 举报
对于上边问题：
1生成了图片
2具有写权限我设置成了777
1生成了图片
2具有写权限我设置成了777
alum 2009-07-01
- 打赏
- 举报
建议检查：
1) '/home/magnet/src/perl/cgi-bin/analytime.gif' 生成成功没有
2）'/home/magnet/src/perl/cgi-bin/' 这个目录你的程序是否有写权限
1) '/home/magnet/src/perl/cgi-bin/analytime.gif' 生成成功没有
2）'/home/magnet/src/perl/cgi-bin/' 这个目录你的程序是否有写权限
