Linux下用Perl产生新的EXCEL文档

eagleshi

　　#!/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 and output to browser
my $workbook = Spreadsheet::WriteExcel->new("-");
　　# 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);