Can't write header to excel file

hawk__0 · 01-15-2010, 01:35 PM

I am having trouble getting some code to work. It takes an input file (csv) and converts it to an XLS. The problem is that I can't seem to get a header to be printed first...

Code:

use Spreadsheet::WriteExcel;

my $input = $ARGV[0];
my $output = $input;
$output =~ s/\.csv$/.xls/i;

my $wb = Spreadsheet::WriteExcel->new("$output");
my $sheet = $wb->addworksheet("My Sheet");

open(CSV, "$input");

while (<CSV>) {
    print CSV ">header, header, header";
    chomp;
    my(@vals)=split(/,/, $_);
    my $format = ($. == 1) ? $bluebg : undef;
    foreach my $vidx (0..$#vals) {
        $sheet->write(($.-1), $vidx, $vals[$vidx], $format);
    }

}

TB0ne · 01-16-2010, 12:46 PM

Quote:

Originally Posted by hawk__0

I am having trouble getting some code to work. It takes an input file (csv) and converts it to an XLS. The problem is that I can't seem to get a header to be printed first...

Code:

use Spreadsheet::WriteExcel;

my $input = $ARGV[0];
my $output = $input;
$output =~ s/\.csv$/.xls/i;

my $wb = Spreadsheet::WriteExcel->new("$output");
my $sheet = $wb->addworksheet("My Sheet");

open(CSV, "$input");

while (<CSV>) {
    print CSV ">header, header, header";
    chomp;
    my(@vals)=split(/,/, $_);
    my $format = ($. == 1) ? $bluebg : undef;
    foreach my $vidx (0..$#vals) {
        $sheet->write(($.-1), $vidx, $vals[$vidx], $format);
    }

}

Ok...how about telling us what the actual error(s) are, version/distro of Linux, etc. Some details would help....

smeezekitty · 01-16-2010, 01:00 PM

What exactly is the point of?

Code:

 print CSV ">header, header, header";
    chomp;

hawk__0 · 01-18-2010, 10:37 AM

There is no error, it's just not working. I'm not that good at perl and the point of that code was to attempt to output a header to the file.

TB0ne · 01-18-2010, 03:52 PM

Quote:

Originally Posted by hawk__0

There is no error, it's just not working. I'm not that good at perl and the point of that code was to attempt to output a header to the file.

Well, you're trying to output a bogus XLS 'header', but you're trying to write it to the file you're opening for INPUT.

Read the description pages for the spreadsheet::writeexcel module here:
http://search.cpan.org/~jmcnamara/Sp.../WriteExcel.pm

which has examples on how to do this. One of the examples is for doing a tab-separated file, which could easily be modified to do comma-separated instead.

You might also want to check out some Perl tutorials, which cover opening files. http://www.perlmonks.com is a good place to start.

chrism01 · 01-18-2010, 10:40 PM

http://perldoc.perl.org/
http://www.perlmonks.org/?node=Tutorials