in reply to doughnut charts with gd:graph

use CGI ':standard';

You don't appear to be using this anywhere in your script. Why not remove it?

my $cmd_1 = "sudo df -h |grep /var |awk '{print \$2}' | sed -e 's/.\$/
+/'";   
my $cmd_2 = "sudo df -h |grep /var |awk '{print \$3}' | sed -e 's/.\$/
+/'";   

my $result_used = qx/ $cmd_1 /; #$result_used shows 1.4
my $result_free = qx/ $cmd_2 /; #$result_free shows 85

[download]

You shell out, sudo and pipe through a grep an awk and a sed from perl! Twice. Let's try another way.

my @df = `df /var`;
my ($used, $free) = (split (/\s+/, $df[1]))[2,3];

[download]

Don't pass -h to df when using a script. You can easily end up with MB vs GB and then you'll have real confusion. Better yet, use something like Linux::Info::DiskUsage to avoid shelling out entirely.

I think Doughnut chart is NICER. But, I can't find many docs for them.

You already have the image as a pie so why not just overlay a background-coloured circle on the middle?

Replies are listed 'Best First'.
Re^2: doughnut charts with gd:graph
by theravadamonk (Scribe) on Jul 25, 2018 at 11:53 UTC

    Thanks for your reply since I want to complete this

    I understand the below code 

    my @df = `df /var`;

    [download]

    I can print df in this way.. 

    print @df;

    [download]

    it shows in this way 

    
Filesystem           1K-blocks    Used Available Use% Mounted on
/dev/mapper/vg_mail-lv_var
                      94959436 1415576  88713448   2% /var

    [download]

    Pls explain this below code? I think you split 2 things. (i.e - white spaces and another). Difficult to understand. Sir, Pls explain in detail. Your effort will NOT got to waste.

    
my ($used, $free) = (split (/\s+/, $df[1]))[2,3]; #HOW TO PRINT THE OU
+TPUT?

    [download]

    Finally, How to print $used and $free

    the below lines will NOT?

    print $used;
print $free;

    [download]
    I think the above one line can be written in these 2 lines? AM I RIGHT? 
    my $used = (split (/\s+/, $df[1]))[2];
my $free = (split (/\s+/, $df[1]))[3];

    [download]

    Waiting for yor REPLY...

[reply]
[d/l]
[select]
      Filesystem           1K-blocks    Used Available Use% Mounted on
/dev/mapper/vg_mail-lv_var
                      94959436 1415576  88713448   2% /var

      [download]

      That explains why the scalars are not set for you. If your Filesystem paths are so long as to overflow like this you will need to use -P. That will avoid the wrapping and hence the assignment errors. Note that this is a demonstrably good reason not to shell out but to use a module instead.

      Here is an SSCCE demonstrating this use of -P:

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

my @df = `df -P /var`;
my ($used, $free) = (split (/\s+/, $df[1]))[2,3];
print "used $used, free $free\n";

      [download]

      The split acts on $df[1] (which is the second line returned by df) and splits it on whitespace (like awk does). You then want only the 3rd and 4th fields for your used and free figures but indexing in Perl starts at zero hence the slice of [2,3]. Hopefully that makes it clear enough?

[reply]
[d/l]
[select]
[reply]
[d/l]

        Hopefully that makes it clear enough?

        Yeah, It's pretty clear. I realized it. Thanks for it.

        You already have the image as a pie so why not just overlay a background-coloured circle on the middle?

        Whole day, I tried, But, still no success..

        Could you pls give a try? It may be easy for you. I don't Want to stop writing this code.. I want to continue..

        The other thing is How to Display values ($used and $free ) in pie chart?

        in Bar chart,We have below line 

        show_values   => 1,

        [download]

        I need everyone's replies to complete this code.

[reply]
[d/l]
Re^2: doughnut charts with gd:graph
by theravadamonk (Scribe) on Jul 30, 2018 at 04:42 UTC

    You already have the image as a pie so why not just overlay a background-coloured circle on the middle?

    I can draw a circle separately. Here's the separate code. I use GD::Simple 

    
#!/usr/bin/perl 
use CGI ':standard';
use strict;
use warnings;
use GD::Simple;
 
# create a new image (width, height)
my $img = GD::Simple->new(200, 100);
 

$img->bgcolor('white');
$img->fgcolor('blue');
$img->moveTo(60, 50);    # (x, y)
$img->ellipse(80, 80);

binmode STDOUT;
print "Content-type: image/png\n\n";
print $img->png;

    [download]

    How can I insert it to the Pie chart code... Can you help me?

    Can I use like this? 

    
my $img = (GD::Simple->new(200, 100),
       GD::Graph::pie->new(500, 600));

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

      >> You already have the image as a pie so why not just overlay a background-coloured circle on the middle?

      This time I used GD::Image to draw a circle and inserted it to the pie chart.

      Here's the code. It works...

      
#!/usr/bin/perl
use CGI ':standard';
use strict;
use warnings;
use GD;
use GD::Graph::pie;

my @df = `df -P /var`;
my ($used, $free) = (split (/\s+/, $df[1]))[2,3];

# Both the arrays should have same number of entries.
my @data = (['Used', 'Free'],
            [$used, $free]);

my $mygraph = GD::Graph::pie->new(175, 175);

$mygraph->set(
    title           => '/var Partition' ,
    '3d'            => 0,
    #'3d'           => 1,

    #label          => 'Label',

    transparent     => 1,

) or warn $mygraph->error;

$mygraph->set_value_font(GD::gdMediumBoldFont);

my $myimage = $mygraph->plot(\@data) or die $mygraph->error;

my $circleImg = new GD::Image( 100,100 );

# allocate some colors
my $green = $circleImg->colorAllocate(0,255,0);
my $white = $circleImg->colorAllocate(255,255,255);
my $blue = $circleImg->colorAllocate(0,0,255);

#$circleImg->transparent($green);
#$circleImg->interlaced('true');

# Draw a blue circle
$circleImg->arc(50,50,100,100,0,360,$blue);

# And fill it with color
$circleImg->fill(50,50,$white);

$myimage->copy($circleImg,38,46,0,0,100,100);

print "Content-type: image/png\n\n";
binmode STDOUT;
print $myimage->png;

      [download]

      Hv a Nice day to all perl Monks...

[reply]
[d/l]

In Section Seekers of Perl Wisdom