Help for this page

Select Code to Download


  1. or download this
    my $result = qx{$ENV{ORACLE_HOME}/bin/sqlplus -L -V scott/scott \@data
+base 2>&1};
  2. or download this
    use Capture::Tiny qw(capture);

my ($stdout, $stderr, $exit) = capture {
    system("$ENV{ORACLE_HOME}/bin/sqlplus", '-L', '-V', 'scott/scott',
+ '@database');
};