Re^2: Multi-line regex help needed

Thanks, tried that by doing the following:

#!/usr/bin/perl

$file = shift;

open(LOG, $file) or die "Couldn't open $file: $!\n";
local $/ = "";
while (<LOG>) {
        print "================BLAH================\n$_\n";
}

close(LOG);
[download]

it didn't quite do what's expected though. $_ doesn't have exactly one section in it. here's what's in it:

================BLAH================
abc1-wl-wlc1.domain.com


================BLAH================
Successful downloads: 0
Failed downloads: 1
Warnings: 0


================BLAH================
Detailed Log Info


================BLAH================
General Expect Errors: 1
Text Dump Failure: 1
Binary Transfer Successful: 1
Attempts to get Text Dump: 1
Attempts to use TFTP: 1
Attempted binary transfers: 1


================BLAH================
Textual log of the file transfer:
Processing abc1-wl-wlc1.domain.com Performing [/usr/bin/ssh -2 -a -o "
+StrictHostKeyChecking no" abc1-wl-wlc1.domain.com] Exception: 3:Child
+ PID 20854 exited with status 256 at /usr/SD/perl-5.6.1/lib/site_perl
/EMAN/Config/DeviceConfig/WLC.pm line 288, line 62. ExpectLog: Sorry, 
+telnet is not allowed on this port!Connection to abc1-wl-wlc1.domain.
+com closed. Performing TFTP using SNMP: DestHost [x.x.x.x] Com
munity [private] agentTransferUploadServerIP [x.x.x.x] agentTransferUp
+loadFilename [x.x.x.x.UCFM.18433] Exception: 3:Child PID 20854 exited
+ with status 256 at /usr/SD/perl-5.6.1/lib/site_perl/
EMAN/Config/DeviceConfig/WLC.pm line 288, line 62. Updating CVS


================BLAH================
abc1-wl-wlc2.domain.com
[download]

Comment on Re^2: Multi-line regex help needed Select or Download Code

Replies are listed 'Best First'.
Re^3: Multi-line regex help needed by Limbic~Region (Chancellor) on Jun 18, 2009 at 16:15 UTC
vxp, Well then your real data and your posted data are not the same thing. What I provided you would have worked otherwise. Apparently all of your $ are actually not there in your real data. At this point, I would use the flip flop operator or my own flag to tell me the start and end of a section. It doesn't make sense to me to use a multi-line regex unless you intend to slurp the entire file into memory (scalability issues) or you intend to create your own sliding buffer window (code complexity issues). Cheers - L~R	[reply]
Re^4: Multi-line regex help needed by vxp (Pilgrim) on Jun 18, 2009 at 17:10 UTC
I have to respectfully disagree there, what I posted and the "actual data" are one and the same (to the best of my knowledge) The full text file (redacted to get rid of an actual domain and IPs) is over here: http://www.yoda.im/pmonks.txt	[reply]
Re^5: Multi-line regex help needed by Limbic~Region (Chancellor) on Jun 18, 2009 at 17:21 UTC
vxp, You can disagree all you want, but the data you posted is different than the code you ran against. See the following as proof: Read more... (4 kB) Again, I believe it is because the $ you pasted in your root node aren't really there in your real data. When I look at the data you linked against, I can see that the $ are in fact not there. I am not trying to be a pain, I am just explaining why the code I wrote for the data you provided isn't working against the data you need it to (they aren't the same). I did provide other suggestions by the way. Have you looked into those? Cheers - L~R	[reply] [d/l]
Re^6: Multi-line regex help needed by vxp (Pilgrim) on Jun 18, 2009 at 17:32 UTC
Re^7: Multi-line regex help needed by Limbic~Region (Chancellor) on Jun 18, 2009 at 17:36 UTC
Some notes below your chosen depth have not been shown here
Re^3: Multi-line regex help needed by vxp (Pilgrim) on Jun 18, 2009 at 15:53 UTC
now I tried changing $/ to "domain.com" and it's a little closer. Actually _almost_ there: `#!/usr/bin/perl $file = shift; open(LOG, $file) or die "Couldn't open $file: $!\n"; local $/ = "cisco.com\n"; while (<LOG>) { print "================BLAH================\n$_\n"; } close(LOG);` [download] Resulting output: abc1-wl-wlc1.domain.com ================BLAH================ Successful downloads: 0 Failed downloads: 1 Warnings: 0 Detailed Log Info General Expect Errors: 1 Text Dump Failure: 1 Binary Transfer Successful: 1 Attempts to get Text Dump: 1 Attempts to use TFTP: 1 Attempted binary transfers: 1 Textual log of the file transfer: Processing abc1-wl-wlc1.domain.com Performing [/usr/bin/ssh -2 -a -o " +StrictHostKeyChecking no" abc1-wl-wlc1.domain.com] Exception: 3:Child + PID 20854 exited with status 256 at /usr/SD/perl-5.6.1/lib/site_perl /EMAN/Config/DeviceConfig/WLC.pm line 288, line 62. ExpectLog: Sorry, +telnet is not allowed on this port!Connection to abc1-wl-wlc1.domain. +com closed. Performing TFTP using SNMP: DestHost [x.x.x.x] Com munity [private] agentTransferUploadServerIP [x.x.x.x] agentTransferUp +loadFilename [x.x.x.x.UCFM.18433] Exception: 3:Child PID 20854 exited + with status 256 at /usr/SD/perl-5.6.1/lib/site_perl/ EMAN/Config/DeviceConfig/WLC.pm line 288, line 62. Updating CVS abc1-wl-wlc2.domain.com ================BLAH================ Successful downloads: 0 Failed downloads: 1 Warnings: 0 Detailed Log Info General Expect Errors: 1 Text Dump Failure: 1 Binary Transfer Successful: 1 Attempts to get Text Dump: 1 Attempts to use TFTP: 1 Attempted binary transfers: 1 Textual log of the file transfer: Processing abc1-wl-wlc2.cisco.com Performing [/usr/bin/ssh -2 -a -o "S +trictHostKeyChecking no" abc1-wl-wlc2.domain.com] Exception: 3:Child +PID 20855 exited with status 256 at /usr/SD/perl-5.6.1/lib/site_perl /EMAN/Config/DeviceConfig/WLC.pm line 288, line 58. ExpectLog: Sorry, +telnet is not allowed on this port!Connection to abc1-wl-wlc2.domain. +com closed. Performing TFTP using SNMP: DestHost [x.x.x.x] Com munity [tasMANia] agentTransferUploadServerIP [x.x.x.x] agentTransferU +ploadFilename [x.x.x.x.UCFM.18441] Exception: 3:Child PID 20855 exite +d with status 256 at /usr/SD/perl-5.6.1/lib/site_perl/ EMAN/Config/DeviceConfig/WLC.pm line 288, line 58. Updating CVS [download] The correct hostname needs to be in between the blah's - right now BLAH comes right after the correct hostname for the section :/	[reply] [d/l] [select]