Markrh:PerlProgramming:DBIOracle

From BluWiki

#!/perl5.8.3
use strict;

...
...

my ($srt, $host, $usr, $pwd);
use Getopt::Long;
GetOptions("host=s" => \$host,
           "usr=s"  => \$usr,
           "pwd=s"  => \$pwd,
           "sort"   => \$srt);

use DBI;
my $dbh = DBI->connect("dbi:Oracle:$host", "$usr", "$pwd")
          or die "Connect error: $!\n";

...
...

Perl Programming, Cookbook