You're making this more difficult for us because you don't really specify the output you're specifically seeking.
Your code seems to indicate that you're looking for the associated value for the "msgagt" key (which has the value "ESM_WMB_AIX" in the data you provide). Is this correct?
My assumption is that this is what you're looking for. Given that,
my $data = qq(msgagt=ESM_WMB_AIX,sec_id=Sec_id,severity=Low,node=test, +msgnode=qwmbap01.xxxxxxxxxxxxx.net,utc=2007-04-26 18:01:59.472+00:00, +om=UID=3a7affd6-f420-11db-80b1-000000000000,AlertCode=AEM001,AlertTyp +e=AEM-default,AppName=AEM-CommonService2,Message=5004:An error has be +en reported by the BIPXML4C component.:XML); my ($msgagt) = $data =~ /msgagt=([^,]+)/; print $msgagt, "\n";
Am I missing any other specs for this problem?
In reply to Re: key value pair or simply a regexp
by thezip
in thread key value pair or simply a regexp
by mikejones
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |