Hi Barry, Most likely your $db->Data() is not returning any values and the @data is not be initialized with a value.
my @data = $db -> Data(); Try this to see if it makes a difference with the warning: my @data = (); @data = $db->Data(); Then, you can know if this is the culprit and figure out why Data is not returning values. On Fri, Nov 4, 2011 at 4:56 PM, Barry Brevik <[email protected]>wrote: > I've been programming Perl for quite a while, but I've just recently > started to 'use strict' because, well it seems like the right thing to > do. > > However, I'm getting this runtime error: "Use of uninitialized value in > join or string at test56.pl line 40." Line 40 is the one where the same > message is in the comment. > > I realize that the sample code has some elements specific to my > environment, but it is the best I could do, and it is pared down quite a > bit. > > Thanks, > Barry Brevik > ---------------------------------- > use strict; > use warnings; > use Win32::ODBC; > use Win32::Console; > > # Un-buffer STDOUT. > select((select(STDOUT), $| = 1)[0]); > > # Set up a DSN-less connection. > my $connectStr = "DRIVER=Microsoft ODBC for Oracle; SERVER=prod; > UID=APPS; PWD=apps"; > > my $SQLsentence = <<SQL; > select > fa.asset_number > , fa.asset_description > , fa.manufacturer_name > , fa.serial_number > , fa.owned_leased > , fa.new_used > , fa.category_description > > from > fafg_assets fa > > order by > fa.category_description, fa.asset_description > SQL > > getOutFile(); > > if (my $db = new Win32::ODBC($connectStr)) > { > # Execute our SQL sentence. > unless ($db -> Sql($SQLsentence)) > { > # Loop through the table. > while (scalar $db -> FetchRow(1, SQL_FETCH_NEXT)) > { > my @data = $db -> Data(); > > print OUTFILE '"', (join '","', @data), '"', "\n"; > } > } > > $db -> Close(); > } > > #------------------------------------------------ > sub getOutFile > { > my $filename = "c:\\temp\\asset.csv"; > > if (open OUTFILE, '>', $filename) > { > print " Output file $filename has been CREATED.\n\n"; > } > } > > _______________________________________________ > Perl-Win32-Users mailing list > [email protected] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >
_______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
