I have this block of text:
Node: dudbqa02 Message group: MoM_OpC_ADM-m-s
Application: OGTP Object: syslog Severity:
Critical Text: WebSph
ere Broker v6003[2998366]:
(QWMB01.EG500)[8225]BIP2951I: Event generated by user
code. Additional information :
'msgagt=ESM_WMB_AIX,sec_id=Sec
_id,severity=Low,msgnode=qwmbap01.cardinalhealth.net,utc={2007-04-26
18:01:59.472+00:00},om={UID=3a7affd6-f420-11db-80b1-000000000000,AlertCod
e=AEM001,AlertType=AEM-default,AppName=AEM-CommonService2,Message=5004:An
error has been reported by the BIPXML4C
component.:XML}' 'MS_Alert_E
SM_Integrator.InsertToSYSLOG' '{2}' '{3}' '{4}' '{5}'
'{6}' '{7}' '{8}' '{9}' :
QWMB01.1aef50ec-1001-0000-0080-dae5df22a0ad:
/build/S600_P/src
/DataFlowEngine/ImbRdl/ImbRdlThrowExceptionStatements.cpp:
158: SqlThrowExceptionStatement::execute:
ComIbmComputeNode: MS_Alert_ESM_Integrato
r#FCMComposite_1_2,cma={Location=Not_found,BusUnit=Not_found}
The strings I need out of this are:
msgagt=ESM_WMB_AIX
sec_id=Sec_id
severity=Low
msgnode=qwmbap01.cardinalhealth.net
utc={2007-04-26 18:01:59.472+00:00}
om={
UID=3a7affd6-f420-11db-80b1-000000000000
AlertCode=AEM001
AlertType=AEM-default
AppName=AEM-CommonService2
Message=5004:An error has been reported by the
BIPXML4C component.:XML
}
I have this test code but does not work:
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my $ovo = qq(/home/dbsmith/out);
my $msgagt = qr/(\w+\=\w+)/is;
open (my $out, "+<", $ovo) or die "file '$ovo' was not
opened $!";
while (<$out>) {
s/^\s+|\s+$//g; ## rid of newlines at
begin and end
next unless length $_; ## skip line of length
undef
print $_ if (/$msgagt/);
}
Any help/ideas?
thank you.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
