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]

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

Waiting for yor REPLY...

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?

Or install (locally) the superior tool di, which supports CSV output

Read more... (3 kB)

Alternatively, you could use a CPAN module like Filesys::DiskSpace (no updates since 1999) or Filesys::DfPortable (no updates since 2006).


Enjoy, Have FUN! H.Merijn

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.

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]

>> 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...