Re: Retrieving from 2 different databases via a single perl DBI::ODBC connection
I always do this because my production team won't let me use DBI.
my $x=`dbaccess $db <<EOF >/dev/null 2>&1
set isolation to dirty read ;
unload to /tmp/space_$$.out delimiter '|'
select count(*) as nchunks from sysmaster:syschunks;EOF
`;
unless( open COUNT, "/tmp/space_$$.out" ) {
cleanup;
die "Could not open count.\\n" ;
}
while ( <COUNT> ) {
my @row=split /\\|/, $_ ;
process row here
}
#cleanup
unlink "/tmp/space_$$.out"