in reply to Re: problem with show_values => 1, while drawing a bar graph with variables
in thread problem with show_values => 1, while drawing a bar graph with variables

your code shows in this way.

$VAR1 = bless( [
                 [
                   'Cleaned',
                   'Spam',
                   'Virus',
                   'Banned',
                   'BadHeader',
                   'Rejected'
                 ],
                 [
                   '10
',
                   '36
',
                   '0
',
                   '0
',
                   '0
',
                   '975
'
                 ]
               ], 'GD::Graph::Data' );

[download]

when I added below code instead. it shows in this way. It works as expected


my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [10, 36, 0, 0, 0, 974],
]) or die GD::Graph::Data->error; 



$VAR1 = bless( [
                 [
                   'Cleaned',
                   'Spam',
                   'Virus',
                   'Banned',
                   'BadHeader',
                   'Rejected'
                 ],
                 [
                   10,
                   36,
                   0,
                   0,
                   0,
                   974
                 ]
               ], 'GD::Graph::Data' );

[download]

I think grep results with variables has UNWANTED Stuffs. How can avoid them? I tried, but no success. Pls discard my last mail since it has formatting issues.

Replies are listed 'Best First'.
Re^3: problem with show_values => 1, while drawing a bar graph with variables
by poj (Abbot) on Mar 15, 2018 at 10:45 UTC

    You could chomp($clean_total) all the values, but I would try to avoid shelling out to grep and just use perl.

    #!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:standard);
use GD::Graph;
use CGI::Carp 'fatalsToBrowser';
use Data::Dumper;

my $logfile = '/var/log/maillog';
open $fh, '<', $logfile or die "Could not open $logfile : $!";
my %count=();

while (<$fh>){
  if (/amavis.*(Passed|Blocked) (CLEAN|SPAM|INFECTED|BANNED)/){
    ++$count{$2};
  } elsif (/amavis.*(BAD-HEADER)-/) {
    ++$count{$1};
  } elsif (/reject/){
    ++$count{'REJECTED'};
  }
}
close $fh;  
my @data = map{ $count{$_} || 0 } qw(CLEAN SPAM INFECTED BANNED BAD-HE
+ADER REJECTED);

my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [@data],
]) or die GD::Graph::Data->error; 


print header('text/plain');
print Dumper $data;

    [download]
    poj
[reply]
[d/l]
[select]

      Hi, thanks for your reply. I succeeded with below.Now, it's OK. 

      $clean_total =~ s/^\s+|\s+$//g;
$spam_total =~ s/^\s+|\s+$//g;
$virus_total =~ s/^\s+|\s+$//g;
$banned_total =~ s/^\s+|\s+$//g;
$badheader_total =~ s/^\s+|\s+$//g;
$reject_total =~ s/^\s+|\s+$//g;

      [download]
      Anyway, I checked with chomp($clean_total) as well. It also worked. Anyway, what is better? Here's my code 

      
#!/usr/bin/perl

use CGI;
use CGI qw(:standard);

use strict;
use warnings;
 
use GD;
use GD::Graph;
use GD::Graph::bars;
use GD::Graph::Data;

$ENV{"PATH"} = "/usr/sbin:/usr/bin:/sbin:/bin";


print "Content-type: text/html\n\n";
print "<body bgcolor=\"#95B8DB\">";

print "<br />";

print "<h1 align=center>\n";
print "Global Mail Statistics\n";
print "</h1>\n";

print "<br />";
print "<br />";

my $str = qx(date);
print $str;

print "<br />";

#Passed CLEAN - Clean Mails

my $clean_total = qx(sudo grep -Ec 'amavis.*Passed CLEAN' /var/log/mai
+llog);
#chomp($clean_total);
$clean_total =~ s/^\s+|\s+$//g;

#Blocked SPAM - Spam Mails

my $spam_total = qx(sudo grep -Ec 'amavis.*Blocked SPAM' /var/log/mail
+log);
#chomp($spam_total);
$spam_total =~ s/^\s+|\s+$//g;

#Blocked INFECTED - Virus Mails

my $virus_total = qx(sudo grep -Ec 'amavis.*Blocked INFECTED' /var/log
+/maillog);
#chomp($virus_total);
$virus_total =~ s/^\s+|\s+$//g;

#Blocked BANNED - Banned Mails exe,scr etc.

my $banned_total = qx(sudo grep -Ec 'amavis.*Blocked BANNED' /var/log/
+maillog); 
#chomp($banned_total);
$banned_total =~ s/^\s+|\s+$//g;

#BAD-HEADER- - Bad Header Mails

my $badheader_total = qx(sudo grep -Ec 'amavis.*BAD-HEADER-' /var/log/
+maillog);
#chomp($badheader_total);
$badheader_total =~ s/^\s+|\s+$//g;

#REJECT - REJECT Mails

my $reject_total = qx(sudo grep -c 'reject' /var/log/maillog);
#chomp($reject_total);
$reject_total =~ s/^\s+|\s+$//g;

print "<br />";


my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [     $clean_total,    $spam_total,    $virus_total,    $banned_to
+tal,    $badheader_total,  $reject_total],
]) or die GD::Graph::Data->error;

 
#my $data = GD::Graph::Data->new([
#    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
#    [10, 36, 0, 0, 0, 974],
#]) or die GD::Graph::Data->error; 

 
my $graph = GD::Graph::bars->new(600,300);
 
$graph->set( 
    x_label         => 'Category',
    y_label         => 'Count',
    title           => 'Global Mail Statistics',

    # Show values on top of each bar
    show_values => 1,
 
    #y_max_value     => 7,
    y_tick_number   => 8,
    #y_label_skip    => 3,
 
    #x_labels_vertical => 1,
    #show_values => 1,
    #values_vertical => 1,
    #values_space=> 4,
 
    bar_spacing     => 10,
    shadow_depth    => -4,
    shadowclr       => 'dred',
 
    transparent     => 0,

) or die $graph->error;

$graph->set_title_font("/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf",1
+4);
$graph->set_x_axis_font("/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf",
+8);
$graph->set_y_axis_font("/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf",
+8);
$graph->set_x_label_font("/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf"
+,12);
$graph->set_y_label_font("/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf"
+,12);

$graph->plot($data) or die $graph->error;

my $file = 'bars.png';
open(my $out, '>', "../../../tmp/$file") or die "Cannot open '$file' f
+or write: $!";
binmode $out;
print $out $graph->gd->png;
close $out;

system("sudo /bin/cp -pf /tmp/$file /var/www/html/");

print "<img src=../$file><p>\n"; 

print "<br />";

print "</body>";
print "</html>\n";

      [download]

      This works as expected. I would like to test your other perl code too.Since it is very very perl way. One more question is remaing. How can change font size of values on the top of the bar.

[reply]
[d/l]
[select]
        How can change font size of values on the top of the bar. 
        my $font = '/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf';
$graph->set_values_font($font, 12);

        [download]
        update

        If you split the cgi into 2 scripts you can show the graphic without creating a file.

        #!/usr/bin/perl
# page.cgi
use strict;
use CGI ':standard';

print header();
print start_html(-title  =>'Global Mail Statistics',
                 -bgcolor=>'#95B8DB');
print qq!<br/><center>
<h1>Global Mail Statistics</h1>
<img src = "bargraph.cgi"></center>!;
print end_html;

        [download]
        #!/usr/bin/perl
# bargraph.cgi
use strict;
use warnings;
use CGI qw(:standard);
use GD::Graph;
use GD::Graph::bars;
use CGI::Carp 'fatalsToBrowser'; # use only for testing

my $logfile = '/var/log/maillog';
open $fh, '<', $logfile or die "Could not open $logfile : $!";
my %count=();

while (<$fh>){
  if (/amavis.*(Passed|Blocked) (CLEAN|SPAM|INFECTED|BANNED)/){
    ++$count{$2};
  } elsif (/amavis.*(BAD-HEADER)-/) {
    ++$count{$1};
  } elsif (/reject/){
    ++$count{'REJECTED'};
  }
}
close $fh;  
my @data = map{ $count{$_} || 0 } qw(CLEAN SPAM INFECTED BANNED BAD-HE
+ADER REJECTED);

my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [@data],
]) or die GD::Graph::Data->error; 

my $graph = GD::Graph::bars->new(900,600);
$graph->set( 
    x_label       => 'Category',
    y_label       => 'Count',
    title         => 'Global Mail Statistics for '.localtime,
    show_values   => 1,
    y_tick_number => 8,
    bar_spacing   => 10,
    shadow_depth  => -4,
    shadowclr     => 'dred',
    transparent   => 0,
) or die $graph->error;

my $font = '/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf';
$graph->set_title_font($font,14);
$graph->set_values_font($font, 12);
$graph->set_x_axis_font($font,10);
$graph->set_y_axis_font($font,10);
$graph->set_x_label_font($font,12);
$graph->set_y_label_font($font,12);

print header('image/png');
$graph->plot($data) or die $graph->error;
binmode STDOUT;
print $graph->gd->png;

        [download]
        poj
[reply]
[d/l]
[select]
Re^3: problem with show_values => 1, while drawing a bar graph with variables
by hippo (Archbishop) on Mar 15, 2018 at 10:51 UTC
    Pls discard my last mail since it has formatting issues.

    It was good of you to notice and to create a new post to correct them. However, it would generally be better in future just to fix the original post and thus avoid duplication. See How do I change/delete my post? for the details.

[reply]

In Section Seekers of Perl Wisdom