Thanks for the help!! I think it's almost there. This is what my script look
like now:
use strict;
use DBI;
open(TEXTFILE,">output.txt");
my $dbh = DBI->connect( 'dbi:Oracle:db',
'user',
'passwd',
{
RaiseError => 1,
AutoCommit => 0
}
) || die "Database connection not made:
$DBI::errstr";
my $sql = qq{ SELECT oid FROM bv_ep_project };
my $sth = $dbh->prepare ( $sql );
$sth->execute();
while( @row = $sth->fetchrow_array )
{
$oid=$row[0];
print TEXTFILE"$oid\n";
}
$sth->finish();
$dbh->disconnect();
And these are the errors I get:
Global symbol "@row" requires explicit package name at ./one.pl line 23.
Global symbol "$oid" requires explicit package name at ./one.pl line 25.
Global symbol "@row" requires explicit package name at ./one.pl line 25.
Global symbol "$oid" requires explicit package name at ./one.pl line 26.
Any input as to why this happens??
-garrett
>From: "Shah, Urmil" <[EMAIL PROTECTED]>
>To: garrett esperum <[EMAIL PROTECTED]>
>Subject: RE: select from oracle and write to file
>Date: Tue, 30 Apr 2002 17:34:24 -0500
>
>
>open(TEXTFILE,">output.txt");
>
>my $sql = qq{ SELECT oid FROM bv_ep_project };
>my $sth = $dbh->prepare ( $sql );
>$sth->execute();
>
># Fetch the data from the DB using any method you like one of them is and
>print the output to a new file
>
> while( @row = $sth->fetchrow_array )
> {
> $oid=$row[0];
>
> print TEXTFILE"$oid\n";
>
> }
>$sth->finish();
>$dbh->disconnect();
>
> } #end of while loop
>
>This should work....
>
>Urmil
>
>-----Original Message-----
>From: garrett esperum [mailto:[EMAIL PROTECTED]]
>Sent: Tuesday, April 30, 2002 5:20 PM
>To: [EMAIL PROTECTED]
>Subject: select from oracle and write to file
>
>
>Hello all,
>
>Solaris, Oracle 8.1.6, Perl 5
>
>How do I write my selected row from Oracle out to a new file? Below is what
>I have so far. I can select the row, but I don't know how to write it to a
>new file:
>
>
>#!/usr/local/bin/perl -w
>#
># REMEMBER! Set the environment variable: ORACLE_HOME=/path-to-oracle
>BEFORE
>
>running this script.
>#
>
>use strict;
>use DBI;
>
>my $dbh = DBI->connect( 'dbi:Oracle:db',
> 'user',
> 'passwd',
> {
> RaiseError => 1,
> AutoCommit => 0
> }
> ) || die "Database connection not made:
>$DBI::errstr";
>my $sql = qq{ SELECT oid FROM bv_ep_project };
>my $sth = $dbh->prepare ( $sql );
>$sth->execute();
>$sth->finish();
>$dbh->disconnect();
>
>Thank you for your help!!!
>
>-garrett
>
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
