存储过程名字 CREATE OR REPLACE PROCEDURE "SHANXI"."TEST" ( aa in integer,bb out integer ) IS BEGIN bb:=abs(aa); END test; perl脚本中的内容 my $a; $a = 0; print "ssssssss\n"; $sth = $dbh->prepare( "BEGIN shanxi.test( ?, ? ); END;" ); print "aaaaaa\n"; $sth->bind_param( 1, 22 ); print "bbbbbbb\n"; $sth->bind_param_inout( 2,\$a,10000) or die ...
朋友们请教个问题 我在perl里面调用sed 原语句是,用于删除文本中为0的行 system ("/usr/bin/sed '/^0$/d/' qq_numbers > qqnumber_no_zero"); perl -c 可以通过 报错如下 sed: -e expression #1, char 3: unterminated address regex 改成 `/usr/bin/sed '/^0$/d/' qq_numbers > qqnumber_no_zero`; 也是报相同的错误 直接在shell 下执行 sed '/^0$/d' qq_numbers > qqnumber_no_zero 是可以执行的。 请问为什么会报这个错?...
按照perldoc的描述,要获取一个命令调用的返回值有以下几种情况: [code] @args = ( "command","arg1","arg2" ); system(@args) == 0 dir "execute system command failed[/code] 更加精确的捕捉: [code] if ($? == -1) { print "failed to execute: $!\n"; } elsif ($? & 127) { printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : ...
论坛中的各位大侠,最近在调试代码遇到一个棘手的问题。 perl调用R函数时,会进入R的环境,此时不会生成默认的*.Rout。 R的很多日志信息会在屏幕中输出,请问我怎样才能控制这种输出呢? sub Subtest{ my ($aa,$bb)=@_; open(RF, "|$rpath --vanilla --slave ") || failmessage($!); select RF; print <<"CODE"; source("$Bin/test.r") SAMR("$aa","$bb") warnings() q() CODE close RF; } 这里的print <<"CODE";也让我...