/usr/share/doc/libspreadsheet-writeexcel-perl/examples/diag_border.pl is in libspreadsheet-writeexcel-perl 2.37-1.
This file is owned by root:root, with mode 0o644.
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 32 33 34 35 36 37 38 39 | #!/usr/bin/perl -w
##############################################################################
#
# A simple formatting example that demonstrates how to add a diagonal cell
# border with Spreadsheet::WriteExcel
#
# reverse('©'), May 2004, John McNamara, jmcnamara@cpan.org
#
use strict;
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new('diag_border.xls');
my $worksheet = $workbook->add_worksheet();
my $format1 = $workbook->add_format(diag_type => '1');
my $format2 = $workbook->add_format(diag_type => '2');
my $format3 = $workbook->add_format(diag_type => '3');
my $format4 = $workbook->add_format(
diag_type => '3',
diag_border => '7',
diag_color => 'red',
);
$worksheet->write('B3', 'Text', $format1);
$worksheet->write('B6', 'Text', $format2);
$worksheet->write('B9', 'Text', $format3);
$worksheet->write('B12', 'Text', $format4);
__END__
|