so, i'm guessing that i have to mess with ARGV when i use -T on my code? i'm
getting this error:
Insecure dependency in open while running with -T switch at
/usr/lib/perl/5.10/IO/File.pm line 66

now, i didn't get this before spreadsheet::writeexcel. so i'm thinking that
i can't use ARGV when i define a 'new' package? here's my code:

#!/usr/bin/perl -T

use strict;
use warnings;

use DBI;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Carp::Assert;

my ( @xldata, $i );

my $parser   = Spreadsheet::ParseExcel->new();
my $workbookin = $parser->parse($ARGV[ 0 ]);


my $workbookout = Spreadsheet::WriteExcel->new( $ARGV[ 1 ]);


my $dbh = DBI->connect('DBI:mysql:ais;host=localhost', 'shawn', 'Pa55W0rd')
        or die "Database connection: $!";

if ( !defined $workbookin ) {
        die "Can\'t read spreadsheet: ", $parser->error(), ".\n";
}

if ( !defined $workbookout ) {
        die "Can\'t write spreadsheet: $!\n"
}

my $worksheetin = $workbookin->worksheet(0);

my ( $row_min, $row_max ) = $worksheetin->row_range();
my ( $col_min, $col_max ) = $worksheetin->col_range();

for my $row ( $row_min .. $row_max ) {
        for my $col ( $col_min .. $col_max ) {

                my $cell = $worksheetin->get_cell( $row, $col );
                next unless $cell;

                $xldata[ $row ][ $col ] = $cell->unformatted() ;
        }
}

my $worksheetout = $workbookout->add_worksheet( 'Data' );

$worksheetout->write_row( 'A1', \...@xldata );



#for my $row ( 0 .. $#xldata ) {

#       print "ROW $row :\t";
#       for my $col ( 0 .. $#{ $xldata[ $row ] } ) {

#               print "$xldata[ $row ][ 13 ]," if defined( $xldata[ $row ][
13 ] );
#       }

#       print "\n";
#}

Reply via email to