File "trois.pl.bak"

Full Path: /home/analogde/www/XTRAIL/andre/PERL/trois.pl.bak
File size: 1.66 KB
MIME-type: text/x-perl
Charset: utf-8

#!/usr/bin/perl -w

        ######################################################################
        #
        # Example of how to use the Spreadsheet::WriteExcel module to create
        # an Excel binary file.
        #

        use strict;
        use Spreadsheet::WriteExcel;

        # Create a new Excel workbook called perl.xls
        my $workbook = Spreadsheet::WriteExcel->new("perl.xls");

        # Add some worksheets
        my $sheet1 = $workbook->add_worksheet();
        my $sheet2 = $workbook->add_worksheet();
        my $sheet3 = $workbook->add_worksheet("Example");

        # Add a Format
        my $format = $workbook->add_format();
        $format->set_bold();
        $format->set_size(15);
        $format->set_color('blue');
        $format->set_align('center');

        # Set the width of the first column in Sheet3
        $sheet3->set_column(0, 0, 30);

        # Set Sheet3 as the active worksheet
        $sheet3->activate();

        # The general syntax is write($row, $col, $token, $format)

        # Write some formatted text
        $sheet3->write(0, 0, "Hello Excel!", $format);

        # Write some unformatted text
        $sheet3->write(2, 0, "One");
        $sheet3->write(3, 0, "Two");

        # Write some unformatted numbers
        $sheet3->write(4, 0, 3);
        $sheet3->write(5, 0, 4.00001);

        # Write a number formatted as a date
        my $date = $workbook->add_format();
        $date->set_num_format('mmmm d yyyy h:mm AM/PM');
        $sheet3->write(7, 0, 36050.1875, $date);
        
         for my $i (0 .. 9) {
        $sheet3->write($i, 0, 'Hello'); # Cells A1 to A10
    }