I guess the script was not recieved by you guys. Here is the script I
have written.
#! /opt/3d/bin/perl -w
use strict ;
use warnings ;
use Spreadsheet::WriteExcel;
my $workbook ;
my $worksheet ;
my $format ;
my $row ;
my $col ;
my $host ;
$workbook = Spreadsheet::WriteExcel->new("dclist.xls") ;
die "Problems creating new Excel file: $!" unless defined $workbook;
$format = $workbook->add_format(); # Add a format
$format->set_bold();
$format->set_color('red');
$format->set_align('left');
for my $host qw(app0552 app0555 app0557 app0556 app0558 app0560 app0579
app0580 app0587 app0588 app3801 app3803 app3804)
{
$worksheet = $workbook->add_worksheet($host) ;
$worksheet->write($row , $col , "This is for DC $host" ,
$format);
}
-----Original Message-----
From: NandKishore.Sagi [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 29, 2004 3:27 PM
To: [EMAIL PROTECTED]
Subject: Warnings with Spreadsheet::WriteExcel
Importance: High
Hi All ,
I am in process of generating some statistics for
different unix boxes. I would like to generate excel workbook with a
single worksheet for each box. I had written a test script to create the
excel sheet. I was able to create the excel sheet but I encountered some
warnings message as the script was executing. I have herewith attached
the script and the warning messages. There is no problem right now but I
was just wondering why so many error messages popped up.
Also I had just now installed the module. So is it
that the installation was wrong or partial ? I did not see the
installation progress. My mistake.
Thanks for any inputs.
Thanks and Regards
Nand Kishore S
Nand Kishore Sagi
ART Support Team
(612)-304-BART