Shell Programming and Scripting

SQL>    SELECT name INTO OUTFILE "/orahome/test.txt" FROM dummy;
                                         *
ERROR at line 1:
ORA-00923: FROM keyword not found where expected

perl -MDBI -Mstrict -le'
  
  my $csv = "my.csv";
  my $dsn = "<your_tns>";
  my $usr = "<user>";
  my $passwd = "";
  my ($dbh, $sth, $fh, $town, $tname);
  
  open $fh, ">", $csv or die "open: $!\n";

  $dbh = DBI->connect("dbi:Oracle:$dsn", $usr,
                    $passwd, {RaiseError => 1, PrintError =>0});

  $sth = $dbh->prepare("select owner, table_name from all_tables");
  $sth->execute();
  print $fh "$town, $tname" while (($town, $tname) = $sth->fetchrow());
  
  $sth->finish();
  $dbh->disconnect();
  
  close $fh or warn "close: $!\n";

  '