📄 commute_bars3d.cgi
字号:
#!/usr/bin/perl -wTuse strict;use CGI;use GD::Graph::bars3d;use constant TITLE => "Average Commute Time: 3D Bar Chart";my $q = new CGI;my $graph = new GD::Graph::bars3d( 400, 300 );my @data = ( [ qw( Mon Tue Wed Thu Fri ) ], [ 33, 24, 23, 19, 21 ], [ 17, 15, 19, 15, 24 ],);$graph->set( title => TITLE, x_label => "Day", y_label => "Minutes", long_ticks => 1, y_max_value => 40, y_min_value => 0, y_tick_number => 8, y_label_skip => 2, bar_spacing => 4, accent_treshold => 400,);$graph->set_legend( "Morning", "Evening" );my $gd_image = $graph->plot( \@data );print $q->header( -type => "image/png", -expires => "-1d" );binmode STDOUT;print $gd_image->png;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -