PPT Slide
Perlparse output from sql_runner.bat
foreach $SQL_ROW (@SQL_DATA) {
if ($SQL_ROW eq "\n") { next; }; # Exclude this line
if ($SQL_ROW =~ /Database selected/i) { next; }; # Exclude this line
if ($SQL_ROW =~ /Database closed/i) { next; }; # Exclude this line
if ($SQL_ROW =~ /\|/) { # Pipe delimited record ??
push (@UNLOAD_LIST,$SQL_ROW); # Append to array $CNT_FOUND++; # Count records unloaded
} else { # must be stdout/stderr
if ($SQL_ROW =~ /Error/i) { # Error found ?
$FLAG_ERROR=$TRUE; # Flag if error is found
if ($SQL_ROW =~ /1 row\(s\) inserted\./i) { # Successful insert ?
print "$SQL_ROW<BR>\n"; # Display this line to output