Re^2: key value pair or simply a regexp

No you are not missing anything, and thank you b/c your regexp worked. I asked what I needed in the beginning which was everything between the = and , But if a new string is entered in the front, middle or end such as node1=xxxx, thats why I started out using key/value pairs. thx agn :)

Comment on Re^2: key value pair or simply a regexp

Replies are listed 'Best First'.
Re^3: key value pair or simply a regexp by mikejones (Scribe) on May 18, 2007 at 22:33 UTC
Was able to get it working! Yea! Thanks to thezip for pointing me in the right direction after a little mod, it works. `#!/usr/bin/perl use strict; use warnings; my $out = qq(/home/smith/out); open (my $file, "+<", $out) or die $!; local $/ = ','; while (<$file>) { s/^\s+\|\s+$//g; my ($msgagt) = $_ =~ /\w+=([^,]+)/; print $msgagt, "\n"; }` [download]	[reply] [d/l]
Re^4: key value pair or simply a regexp by jdporter (Paladin) on May 21, 2007 at 14:59 UTC
That's fine, but you should understand the following idiom, because it's much more general and is applicable in this case too. `$_ = <<EOF; msgagt=ESM_WMB_AIX,sec_id=Sec_id,severity=Low,node=test,msgnode=qwmbap +01.xxxxxxxxxxxxx.net,utc=2007-04-26 18:01:59.472+00:00,om=UID=3a7affd +6-f420-11db-80b1-000000000000,AlertCode=AEM001,AlertType=AEM-default, +AppName=AEM-CommonService2,Message=5004:An error has been reported by + the BIPXML4C component.:XML EOF my %hash = map { split /=/, $_, 2 } split /,/; print $hash{'msgagt'}, "\n";` [download] With this, you've loaded the entire string into a hash. You can then access the "variable" you want, e.g. `msgagt`, by simply looking it up in the hash.	[reply] [d/l] [select]