时间戳

首页 > 解决方案 > 在 perl 脚本中使用输入参数和输出游标调用存储过程

oracle - 在 perl 脚本中使用输入参数和输出游标调用存储过程

问题描述

尝试在 perl 脚本中执行过程，Proceure -> create or replace

PROCEDURE Getproc
(
    v_catg IN CHAR DEFAULT NULL,
    v_cursor OUT SYS_REFCURSOR
)

  1. 执行程序

    my $sth = $dbh->prepare(
    q{
        BEGIN
        Getproc(:category, :curs);
        END;
    }
);

  2. 绑定 i/p 和光标

    $sth->bind_param(":category", $category1);

$sth->bind_param_inout(":curs", \$cursrecords, 0, {ora_type => ORA_RSET});

$sth->execute;
$sth->finish;

  3. 从游标中获取记录

    while ($hashRef = $cursrecords->fetchrow_hashref) {
    foreach (keys %$hashRef) {
        print "hashref:$hashRef and $_ is $hashRef->{$_}\n";
    }
}

第三步是不检索任何东西。curserecords=DBI::st=HASH(0x2371bd0) 这有哈希对象。有人可以帮我知道这里缺少什么。为什么我无法从存储在游标中的表中检索行？

参考程序

create or replace PROCEDURE GetProc
(
    v_catg IN CHAR DEFAULT NULL,
    v_cursor OUT SYS_REFCURSOR
)
AS
BEGIN
IF ( v_catgIS NULL ) THEN
    BEGIN
        OPEN  v_cursor FOR
        SELECT EnvVar,
        VALUE 
        FROM table;
    END;
ELSE
    BEGIN
        OPEN  v_cursor FOR
        SELECT EnvVar ,
        VALUE 
        FROM table
        WHERE  Category = v_catg ;
    END;
END IF;

EXCEPTION
    WHEN OTHERS THEN raise_application_error(-20002,SQLCODE||':'||SQLERRM);
END;

标签： oracleperlstored-procedureshashdbi

解决方案

请尝试（如René Nyffenegger 的收藏）

my $sth = $dbh->prepare(
  q{
    DECLARE
      curs sys_refcursor;
    BEGIN
      Getproc(:category, :curs);
    END;
  });

推荐阅读