Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Batch loading data into Oracle - my solution

by hotyopa (Scribe)
on Jan 28, 2003 at 22:52 UTC ( [id://230789]=note: print w/replies, xml ) Need Help??


in reply to Re: Batch loading data into Oracle - Perl to the rescue!
in thread Batch loading data into Oracle - Perl to the rescue!

Thanks tomas, that's what I've done. I still wanted to automate the creation of these control files though, so this is what I did. Wrote a generic control file called control.ctl:

LOAD DATA INFILE <table>.txt INTO TABLE <table> ( person_id POSITION(1:9) CHAR(9) surname POSITION(10:34) CHAR(25) given_names POSITION(35-59) CHAR(25) )

Then wrote the following script to write a control file for each data file in the directory:

#!/usr/bin/perl #configuration variables $lpath="/u04/tmp/log"; $cpath="/u04/tmp/ctl/"; $cfile="control.ctl"; $dirname="/u04/tmp/txt/"; # load the control file data open(SOURCE, "< $cpath$cfile") or die "Couldn't open $cpath for reading: $!\n"; @control = <SOURCE>; foreach $line (@control) { $ctl .= $line; } #process all files in the directory opendir(DIR, $dirname) or die "can't opendir $dirname: $!"; while (defined($file = readdir(DIR))) { if ($file =~ /.txt/) { ($table = $file) =~ s/.txt//; #print "$file -> $table \n"; #write the control file open(COUT, "> $cpath$table.ctl") or die "Couldn't open $cpath$file.ctl for writing: $!"; ($tmp = $ctl) =~ s/<table>/$table/g; print COUT $tmp; close COUT; #call SQL*Loader $cmd = "sqlldr USERID=user/id\@service ". "control=$cpath$table.ctl " . "log=$lpath$table.log " . "bad=$lpath$table.bad direct=true"; $status = system($cmd); } } closedir(DIR);

I'm sure this code could be cleaned up a bit, but it does the job.

*~-}hotyopa{-~*

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://230789]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (1)
As of 2024-04-18 23:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found