#!/usr/bin/perl

use warnings;
use strict;
use Spreadsheet::WriteExcel;

many_formats: {
    my $wb = Spreadsheet::WriteExcel->new('output_many.xls');
    my $sheet = $wb->add_worksheet("overview");
    foreach my $row (0..100) {
        local $\ = "\n";
        print my $line = join('', map { ('A'..'Z')[rand 26] } 0 .. rand 16);
        my $header1 = $wb->add_format(bold=>0, color=>'green', size=>10, merge=>0);
        $sheet->set_column(1,1,30);
        $sheet->write($row, 1, $line, $header1);
    }
    undef $wb;
}

shared_format: {
    my $wb = Spreadsheet::WriteExcel->new('output_shared.xls');
    my $header1 = $wb->add_format(bold=>0, color=>'green', size=>10, merge=>0);
    my $sheet = $wb->add_worksheet("overview");
    foreach my $row (0..100) {
        local $\ = "\n";
        print my $line = join('', map { ('A'..'Z')[rand 26] } 0 .. rand 16);
        $sheet->set_column(1,1,30);
        $sheet->write($row, 1, $line, $header1);
    }
    undef $wb;
}