/usr/share/doc/libpdf-report-perl/examples/piegraph.pl is in libpdf-report-perl 1.36-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | #!/usr/bin/perl
use lib qw(../lib);
use PDF::Report;
my $pdf = new PDF::Report(
PageSize => "letter",
PageOrientation => "portrait",
undef => undef
);
$pdf->newpage(1);
$pdf->setFont('Helvetica-bold');
$pdf->setSize(16);
my ($width, $height) = $pdf->getPageDimensions();
$pdf->centerString(0, $width, $height-40, "Big Pie Graph");
my @data = qw(2 4 3 2 3 5 2 4 2 3 4 5 3 4 3 5 4 2 4 3 4);
my @labels;
for (0 .. $#data) {
push(@labels, "label" . $_);
}
$pdf->drawPieGraph($width/2, $height-200, 100, \@data, \@labels);
my $outpdf = $0;
$outpdf =~ s/pl$/pdf/;
open(PDF, "> $outpdf") or die "Error opening $outpdf: $!\n";
print PDF $pdf->Finish();
close(PDF);
exit;
|