nmm:

You'd probably get some assistance if you'd edit your post and add code tags around the code (<c> your code </c>) to make it readable.

I went ahead and looked at the script, but don't really see what you're asking about. It's not accessing a database, which is where I'd expect to see ORA- errors. If you mean that you're examining a log file with error messages, then what is it doing incorrectly?

Also, while looking over your code, I may have accidentally stumbled across the (first) issue:

if ( -e "$fp" ) {
    open( TF, $fp );
    while (<TF>) {
        chomp;
        $kr = $_;
    }
    close(TF);
}
else {
    $kr = 0;
}
[download]

If you're expecting $kr to hold the contents of your file, then you'll want to change the marked line to $kr .= $_; to successively add each line to $kr. As it is now, each iteration of the loop replaces $kr with the latest line read, so at the end of the loop, it will hold only the last line of the file.

...roboticus

When your only tool is a hammer, all problems look like your thumb.