Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Oracle mass update script request.

by TedPride (Priest)
on Jul 28, 2008 at 04:06 UTC ( #700450=note: print w/replies, xml ) Need Help??

in reply to Oracle mass update script request.

Assuming your update statement is correct, given your database structure and Oracle (I'm more familiar with mySQL):
use DBI; use strict; my $user = 'user'; my $pass = 'pass'; my $db = 'database'; my $filename = 'filename.txt'; my $query = qq* update ( select t1.field1, 999 deact_status from schema.table1 t1 inner join schema.table2 t2 on = where t2.field2 = ? ) set field1 = deact_status *; my ($dbh, $sth, $handle); $dbh = DBI->connect("dbi:Oracle:$db", $user, $pass) || die "Couldn't connect to database: " . DBI->errstr; open ($handle, $filename) || die "Couldn't open $filename for read.\n"; while (<$handle>) { chomp; $sth = $dbh->prepare_cached($query, {}, 1); $sth->execute($_); } $dbh->disconnect();
This is untested, but ought to work in theory.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://700450]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2018-06-18 20:26 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (110 votes). Check out past polls.