#!/usr/bin/perl -w

use DBI;
$NAME = shift;
$TYPE = shift;
$dbname = 'prod';
$dbuser = 'prod';
$dbpass = 'prod';
$dbd     = 'Oracle';
$dbh     = DBI->connect ( $dbname, $dbuser, $dbpass, $dbd);
if (!$dbh) {
    print "Error conecting to DB; $DBI::errstr\n";
}

my $sql = <<SQL;
select 
    text 
from 
    user_source 
where
    name = ?
    and type = ?
SQL

my $sth = $dbh->prepare($sql) || die $dbh->errstr;

print "CREATE or REPLACE\n";
$sth->execute( $NAME, $TYPE );
while ( my @r = $sth->fetchrow_array ) {
    print @r;
}
print "/\n";
print "show errors\n";

$sth->finish || die;
$dbh->disconnect;
[download]

... I thought that I would modify this script
so that I could get the source code for triggers.
And here's the trigger getting script which does not
seem to get any trigger source!

#!/usr/bin/perl -w

use DBI;
use Data::Dumper;

$NAME = shift;
$dbname = 'prod';
$dbuser = 'prod';
$dbpass = 'prod';
$dbd     = 'Oracle';
$dbh     = DBI->connect ( $dbname, $dbuser, $dbpass, $dbd);
if (!$dbh) {
    print "Error conecting to DB; $DBI::errstr\n";
}

my $sql = <<SQL;
select 
    description,
    trigger_body 
from 
    user_triggers 
where
    trigger_name = ?
SQL
#print $sql;
my $sth = $dbh->prepare($sql) || die $dbh->errstr;

print "CREATE or REPLACE $NAME\n";
$sth->execute( $NAME );
while ( my @r = $sth->fetchrow_array ) {
    print @r;
}
print "/\n";
print "show errors\n";

$sth->finish || die;
$dbh->disconnect;
[download]

When I run this above script like so ...

$ ./getTrigger.pl MY_TRIGGER

... the only output I get is this ...

CREATE or REPLACE MY_TRIGGER
/
show errors

And there is a trigger named MY_TRIGGER in my DB. :(
I must be missing something.
Your help is appreicated!