Perl脚本中的SQL * Plus

我试图使用SQL*Plus连接到一个表，并获取Perl脚本中的数据并将该输出存储在Perl变量中。Perl脚本中的SQL * Plus

在一个shell脚本，我这样做：

SQL_RESULT=`sqlplus -s ${CONNECT_STRING} << EOF 
    ${SQLPLUS_SETTINGS} 
    select foo||'|'||bar ||'|'|| xyz from temp where dfg='some'; 
    exit; 
    EOF`

但我怎么能做到这一点在Perl？

来源

2009-11-13 Vijay

检出DBI模块。实际上，有一个专门的网站：dbi.perl.org。另外，请查看the CPAN module reference for DBI。

下面是一个代码示例，直接从the first DBI tutorial on google：

use DBI; 

    my $dbh = DBI->connect('DBI:Oracle:payroll') 
     or die "Couldn't connect to database: " . DBI->errstr; 
    my $sth = $dbh->prepare('SELECT * FROM people WHERE lastname = ?') 
     or die "Couldn't prepare statement: " . $dbh->errstr; 

    $sth->execute($lastname)    # Execute the query 
     or die "Couldn't execute statement: " . $sth->errstr; 

    # Read the matching records and print them out   
    while (@data = $sth->fetchrow_array()) { 
     my $firstname = $data[1]; 
     my $id = $data[2]; 
     print "\t$id: $firstname $lastname\n"; 
    } 
    if ($sth->rows == 0) { 
     print "No names matched `$lastname'.\n\n"; 
    } 
    $sth->finish; 
    print "\n"; 
    print "Enter name> "; 

    $dbh->disconnect;

的Perl也有EOF风格多行注释;你可以像这样的长查询：

my $query = <<'END_QUERY'; 
${SQLPLUS_SETTINGS} 
select foo||'|'||bar ||'|'|| xyz from temp where dfg='some'; 
exit; 
END_QUERY

来源

2009-11-13 07:17:08

建议使用DBI好，绝对是正确的方式做的事情，如果你想对数据库的Perl脚本编程。

然而，回答您的具体问题，如果你特别希望脚本SQL * Plus中，语法与Perl脚本来做到这一点是非常相似的外壳版本

my $connect_string = 'scott/[email protected]'; 
my $sqlplus_settings = ''; 
my $result = qx { sqlplus $connect_string <<EOF 
$sqlplus_settings 
select 1 from dual; 
exit; 
EOF 
}; 
print $result;

的qx操作我用在那里，只是一个反引号的politer形式，大括号分隔的块中的所有内容都由子shell运行，并且输出返回到赋值。 Perl中的变量通常不是上层的。

来源

2009-11-13 08:51:14 cms

我也想写一个shell脚本并返回quesry输出结果，我想调用perl script.is中的那个shell脚本也是可能的？ – Vijay 2009-11-13 09:38:40

确定 - 反引号或qx（）中的任何内容都将作为子外壳运行，并且输出的捕获类似。再一次，我不认为这是构建perl程序的非常好的方式。 – cms 2009-11-13 10:47:15

这是qx引用机制的神话般的用法，并且在一次性脚本方案中，这可能是一个不错的方法。 – 2009-11-13 16:55:09

几件事情：

DBI绝对是最好的一段路要走。但是，请注意我之前对Oracle问题的回答，这可能与“仍然”有关：How can I use a database server from a Perl CGI script?
如果SQL太长，SQL * Plus会引发错误。它有一个固定的行长度缓冲区（我不记得它是什么，但我认为它与Oracle 8在2000字节以下）。可能有一种解决方法（分割线路配置设置？），但我发现切换到DBI是这个原因和其他原因的最佳解决方案。

警告：我所有的上述信息基于Oracle 8

/I3az/

来源

2009-11-13 10:00:17 draegtun

此类型的任何问题应以“我不能使用DBI因为被开头... “因为你真的想尽可能使用DBI。你可能有充分的理由不使用它，但也许，我们可以告诉你为什么你的理由不是很好，以及如何处理它。也就是说，这里有一种方法可以使用fork和filehandles来完成你所要求的操作，并且一次获得一行代码（警告：如果你对这样的进程打印太多，可能因为缓冲区问题而阻塞）：

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/[email protected]); 
    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;

来源

2009-11-13 23:43:03 runrig

Perl脚本中的SQL * Plus

回答

相关问题