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

Reply via email to