How to invoke console application in Perl ?，Reship

How to invoke console application in Perl ?

Perl 是一种很好的脚本语言,与shell相比,能够跨平台是它的优势

之一.本文介绍了怎样用perl调用Oracle的sql loader完成外部数

据导入并且解析sql loader输出的日志.

首先,我们写一个run_load过程来调用sql loader,需要通过管道

的方式来实现.

sub run_load

{

my($sqlldr_parfile,$sqlldr_log) = @_;

$sqlldr_exe = "$ENV/bin/sqlldr";

$command = "|$sqlldr_exe parfile=$sqlldr_parfile log=$sqlldr_log";

write_log_file("Command:$command",$logdir);

open(LDR_FH, $command)|| die "Couldn't execute $sqlldr_exen";

print LDR_FH "exitn";

close LDR_FH;

}

parfile:sql loader用到的参数文件

log: sql loader输出的日志文件

然后,我们需要写一个parseErrors的过程来解析sql loader 输出的

日志文件. 这里面用到了正则表达式. 事实上,perl是对正则表达式

支持最好的脚本语言.

sub parseErrors()

{

my ($ldr_log)=@_;

if (-e $_[0])

{

open(LOGFILE, $_[0]) || die "Can't open SQL LOADER's log file:$!n";

@arr_log = ;

close LOGFILE;

$cont = "@arr_log";

print STDOUT $cont;

if(($cont !~ /ORA-[0-9]/) && ($cont !~ /SQL*Loader-[0-9]/))

{

write_log_file("SQL LOADER: No Errors",$logdir);

return 1;

}

elsif($cont =~ /SQL*Loader-[0-9]/)

{

write_log_file("SQL LOADER: Detected error from $ldr_log",$logdir);

return 0;

}

}

else

{

write_log_file("SQL LOADER's log file doesn't exist: $_[0]",$logdir);

return 0;

}

}

分析:

1. 如果sql loader 运行时出现错误,日志文件中必然会有ORA-XXXXX 或者

SQL*Loader-XXXXX这样的特征字符,我们就用它来作为解析的标准.

2. write_log_file 是一个通用的过程,完成写日志文件的功能.你应该

很容易就能写出来的.

最后,我们可以写一个main()的过程,来调用上面的两个子过程.