50 lines
1.1 KiB
Perl
50 lines
1.1 KiB
Perl
|
#!@@@perl@@@ -w
|
||
|
|
|
||
|
|
# $Id: oragetsrc.pl,v 1.1 2001-02-12 14:32:43 hjp Exp $
|
||
|
|
#
|
||
|
|
# print a named source (e.g, a function or procedure) from an oracle schema
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
use DBI;
|
||
|
|
|
||
|
|
sub read_cred {
|
||
|
|
my ($fn) = @_;
|
||
|
|
|
||
|
|
open(FN, "<$fn") or die "cannot open $fn: $!";
|
||
|
|
my $line = <FN>;
|
||
|
|
close(FN);
|
||
|
|
my @cred = split(/[\s\n]/, $line);
|
||
|
|
return @cred;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (@ARGV != 2) {
|
||
|
|
print STDERR "Usage: $0 credential_file source_name\n";
|
||
|
|
print STDERR "\tcredential_file is a filename relative to \$HOME/.dbi/\n";
|
||
|
|
print STDERR "\tThe file must contain a single line with three whitespace-separated fields:\n";
|
||
|
|
print STDERR "\tDBI data source, username, password.\n";
|
||
|
|
print STDERR "\te.g:\n";
|
||
|
|
print STDERR "\tdbi:Oracle:ORCL scott tiger\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
my $db_name = $ARGV[0];
|
||
|
|
my $src_name = $ARGV[1];
|
||
|
|
|
||
|
|
my @cred = read_cred("$ENV{HOME}/.dbi/$ARGV[0]");
|
||
|
|
my $dbh = DBI->connect($cred[0], $cred[1], $cred[2],
|
||
|
|
{ RaiseError => 1, AutoCommit => 0 });
|
||
|
|
|
||
|
|
my $lines =
|
||
|
|
$dbh->selectcol_arrayref(
|
||
|
|
"select text from user_source where name=? order by line",
|
||
|
|
{},
|
||
|
|
$src_name
|
||
|
|
);
|
||
|
|
|
||
|
|
for my $i (@$lines) {
|
||
|
|
print "$i";
|
||
|
|
}
|
||
|
|
$dbh->disconnect();
|
||
|
|
|