Perl 调用BTEQ

在开发一些ETL作业时，常常需要批量提交SQL，这时，我们可以使用BTEQ进行批量操作。.

注意：在使用BTEQ运行SQL前，需要登录。

使用 .HELP BTEQ; 命令，列出BTEQ命令的帮助文档。

#!/usr/bin/perl
#通过管道调用BTEQ
my $bteq_rc = open(BTEQ, "| bteq");
unless ($bteq_rc) {
print "Could not invoke BTEQ command\n";
return -1;
}
print BTEQ <<ENDOFINPUT;
.WIDTH 1024;
.HELP BTEQ;
ENDOFINPUT