All pastes #1064067 Raw Edit

clueless

public text v1 · immutable
#1064067 ·published 2008-07-06 20:34 UTC
rendered paste body
#!perl -wuse strict;use DBI;my $dbh = DBI->connect( 'dbi:Oracle:mydb', 'scott', 'tiger', { RaiseError => 1, AutoCommit => 0 } );print $dbh->selectrow_array(qq{ SELECT 'Hello World' FROM DUAL }),"\n";print $dbh->selectrow_array(qs{select name,database_role from v\$database}),"\n";$dbh->disconnect(  );