/usr/share/doc/libspreadsheet-parseexcel-perl/examples/sample/Ilya.pl is in libspreadsheet-parseexcel-perl 0.5800-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 | use strict;
use Spreadsheet::ParseExcel;
package IlyaPackage; #:-)
sub new($){
my $self = shift;
my $obj = {};
bless $obj, $self;
}
sub cb_routine($@) {
my($self, $oBook, $iSheet, $iRow, $iCol, $oCell) = @_;
print "( $iRow , $iCol ) =>", $oCell->Value, "\n";
}
sub parse($$){
my($self, $sFile) = @_;
my $oEx =
Spreadsheet::ParseExcel->new(
CellHandler => \&cb_routine,
Object => $self,
NotSetCell => 1);
$oEx->Parse($sFile);
}
1;
my $oIlya =IlyaPackage->new;
$oIlya->parse($ARGV[0]);
|