#!/usr/bin/perl

# csv2xls -- author: Oliver Bossert
# Copyright (C) 2004 Oliver Bossert
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

#
# This program converts a csv-file to an excel-file
#

use Spreadsheet::WriteExcel;

my $fname = $ARGV[0];
my $outname = $fname;
$outname =~ s/csv/xls/;
if ($fname eq $outname) {
  $outname .= "xls";
}
$outname = $ARGV[1] if ( defined($ARGV[1]) );

# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new($outname);

# Add a worksheet
my $worksheet = $workbook->add_worksheet();

# Write a formatted and unformatted string, row and column notation.
my $col = 0;
my $row = 0;

open F, $ARGV[0];
while (<F>) {
  chomp;
  my @a = split /\t/, $_;
  $col = 0;
  foreach my $i ( 0..$#a ) {
    $worksheet->write($row, $col, $a[$i]);
    $col++;
  }
  $row++;
}
close F;