uring.rbs.co.uk/GTrswi/
> -Original Message-
> From: Denham Eva [SMTP:[EMAIL PROTECTED]
> Sent: Friday, August 20, 2004 11:30 AM
> To: Perl-Win32-Users@listserv.ActiveState.com; beginners@perl.org
> Subject: Pls Help with a Basic Script.
>
> *** WARNING : This
From: "Denham Eva" <[EMAIL PROTECTED]>
> Are you just trying to report the ORA-XXX errors in reverse order? If
> so, something like this should work:
>
> my @errs;
> while () {
> push @errs, $_ if /ORA-/;
> }
> print reverse @errs;
I wanted to ask why do you push the lines
Thanks Bob,
I discovered this when using Mark's suggestion.
[snip]
You haven't read a row from SITELOG. So the regex below is checking the
row
from your SITES file.
>
> # Check the file for any ORA- entries
>
> if($_ =~ m/ORA-/) {
>
> # If it contains records, reverse the file
>
>
m Eva; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: RE: Pls Help with a Basic Script.
At the line: if($_ =~ m/ORA-/ ){
a) you don't need the m/ just /
b) what are you expecting to be in $_ and have you checked (print stderr
"$_";)?
Kind regards,
Mark Anderson
SMS Deployme
Denham Eva wrote:
> Please could the wise folks give me some help. Something is wrong and
> I can not find out what.
>
> When I run this program it returns everything is OK (Suspect a logic
> error somewhere), which is not possible as the logs in question do
> have data that I require (i.e. ORA-12
uring.rbs.co.uk/GTrswi/
> -Original Message-
> From: Denham Eva [SMTP:[EMAIL PROTECTED]
> Sent: Friday, August 20, 2004 11:30 AM
> To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
> Subject: Pls Help with a Basic Script.
>
> *** WARNING : This message originates from the
Please could the wise folks give me some help. Something is wrong and I
can not find out what.
When I run this program it returns everything is OK (Suspect a logic
error somewhere), which is not possible as the logs in question do have
data that I require (i.e. ORA-12571: TNS:packet writer failure
