这种类型的任何问题都应该以“我不能使用 DBI 因为......”作为开头,因为如果可能的话,您真的想使用 DBI。您可能有充分的理由不使用它,但也许,我们可以告诉您为什么您的理由不是很好以及如何处理它。话虽这么说,这是执行您所要求的一种方法,使用 fork 和文件句柄,并一次输出一行(警告:如果您对这样的进程打印太多,它可能会由于缓冲区问题而阻塞):
use strict;
use warnings;
pipe(my($p_rdr, $c_wtr)) or die "Err: $!";
pipe(my($c_rdr, $p_wtr)) or die "Err: $!";
my $pid = fork;
die "Could not fork: $!" unless defined $pid;
unless ($pid) {
close $p_rdr;
close $p_wtr;
open(STDOUT, ">&=", $c_wtr) or die "dup: $!";
open(STDIN, "<&=", $c_rdr) or die "dup: $!";
print "Exec sqlplus\n";
exec qw(sqlplus user/passwd@dbname);
die "Could not exec: $!";
}
close $c_wtr;
close $c_rdr;
print "Print sql\n";
print $p_wtr "select * from table_name where col1 = 'something';\n";
print "Close fh\n";
close $p_wtr;
print "Read results\n";
while (<$p_rdr>) {
print "O: $_";
}
close $p_rdr;