
preston3271
Novice
Nov 27, 2012, 9:52 AM
Post #7 of 7
(3073 views)
|
Re: [Laurent_R] How to isolate data elements with a data block with (\n) newlines????
[In reply to]
|
Can't Post
|
|
Thanks, I found my issue with my last question. I was using the "==" instead of the "eq" for grab out the desired elements I wanted. Thank you very much. #!C:\strawberry\perl\bin\perl @final=(); my ($request, $node); while (<DATA>) { next unless /^RequestID/ or /^Nodename/; chomp; my($name, $id) = split /:\s+/, $_; $request = $id if $name eq "RequestID"; $node = $id if $name eq "Nodename"; if(lnmtcodcld20 eq $node) { print "Yes: $node \n"; push(@final, $node, $request); } else { print "No Match: $node \n"; } if (defined $request and defined $node) { print "RequestID $request on Nodename $node \n"; ($request, $node) = (undef, undef); } } print "@final[0] and @final[1] \n"; __DATA__ RequestID: 44529658-5293-7561-0514-ef2b44ac8545 Context: CN: 82d246f6-51ff-7561-1702-ae217f13e8af Nodename: lnmtcodcld20 IPAddress: 10.109.240.184 Platform: Solaris 5.10, CPU: Sparc InstallType: Auto TimeReceived: 10/26/12 14:42:05 MDT RequestID: 5bacd03e-5293-7561-04ff-ba57719eb9f2 Context: CN: 82c0a1c6-51ff-7561-1a7f-cb57fc0b994f Nodename: lnmtcodcld10 IPAddress: 10.109.240.181 Platform: Solaris 5.10, CPU: Sparc InstallType: Auto TimeReceived: 10/26/12 14:42:06 MDT RequestID: 6dc42aaa-48b7-7561-0a8b-8e0c3919ec2c Context: CN: e860e9c2-48af-7561-18e5-a5791ab456c6 Nodename: lnmtcodzcba03.scc911.com IPAddress: 10.100.113.32 Platform: Linux 2.6.32, CPU: x64 InstallType: Auto TimeReceived: 10/25/12 08:35:27 MDT RequestID: aed765f4-f66b-7561-17cb-c28bb30ac813 Context: CN: 48cdb95e-f655-7561-0cf2-813ab27c6c99 Nodename: lnmtcodcala20.scc911.com IPAddress: 10.109.240.125 Platform: Linux 2.6.18, CPU: x64 InstallType: Auto TimeReceived: 11/16/12 10:07:04 MST RequestID: c4193482-6a49-7561-150b-8b0507771399 Context: CN: df58e362-6a41-7561-11aa-9f8c4f608300 Nodename: LMV08-DC02.corp.intrado.pri IPAddress: 10.100.28.1 Platform: Windows 6.1, CPU: x64 InstallType: Auto TimeReceived: 10/29/12 15:07:33 MDT RequestID: e0e00eb2-48be-7561-013b-e012ec75886d Context: CN: 2e122fe0-48be-7561-053a-a2b50066dba0 Nodename: lnmtcodzcba04.scc911.com IPAddress: 10.100.113.33 Platform: Linux 2.6.32, CPU: x64 InstallType: Auto TimeReceived: 10/25/12 08:40:47 MDT
|