20 lines
449 B
Perl
Executable File
20 lines
449 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use Spreadsheet::WriteExcel;
|
|
|
|
# Requires perl 5.8 or later
|
|
open my $fh, '>', \my $str or die "Failed to open filehandle: $!";
|
|
|
|
my $workbook = Spreadsheet::WriteExcel->new($fh);
|
|
my $worksheet = $workbook->add_worksheet();
|
|
|
|
$worksheet->write(0, 0, 'Hi Excel!');
|
|
|
|
$workbook->close();
|
|
|
|
# The Excel file in now in $str. Remember to binmode() the output
|
|
# filehandle before printing it.
|
|
binmode STDOUT;
|
|
print $str;
|