Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # main.pl
- use feature qw(say);
- use strict;
- use warnings;
- use Excel::Writer::XLSX;
- use lib '.';
- use procs;
- my $out_xl = 'summary.xlsx';
- my $workbook_sum = Excel::Writer::XLSX->new($out_xl);
- my $sum_rpt = $workbook_sum->add_worksheet("Summary_report");
- my $row = 1;
- my $col = 1;
- procs::WriteRow($sum_rpt, $row, $col);
- $workbook_sum->close();
- ---------------------
- # procs.pm
- package procs;
- use strict;
- use warnings;
- sub WriteRow {
- my ($sum_rpt, $row, $col) = @_;
- $sum_rpt->write($row, $col,"abc");
- }
- 1;
Add Comment
Please, Sign In to add comment