Public feed #1064067

clueless

public text v1 · immutable
Raw Edit
·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(  );