Re^2: Extract Block Of Text From Log

> Well, i'd use a classic state machine for this problem, then we can work line-by-line, without having to load the whole file into memory.

Sorry for nitpicking, but ... :)

Flip/Flop solutions are state machines and do it in one pass.

I even demonstrated that you can safely nest them, hence the technology is "scalable".

The advantage of your solution is that it's easily portable to other languages, i.o.W. it ignores Perl's possibilities. ;-)

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re^2: Extract Block Of Text From Log

Replies are listed 'Best First'.
Re^3: Extract Block Of Text From Log by cavac (Parson) on Nov 23, 2018 at 10:04 UTC
I fully support your argument. I just like to write easy-to-read easy-to-port examples. When you write stuff that might still have to be supported in a couple of decades, then making it easy to read and understand is much more important than making it "nice and fast and only understandable by perlmonks" ;-) `perl -e 'use MIME::Base64; print decode_base64("4pmsIE5ldmVyIGdvbm5hIGdpdmUgeW91IHVwCiAgTmV2ZXIgZ29ubmEgbGV0IHlvdSBkb3duLi4uIOKZqwo=");'`	[reply] [d/l]
Re^4: Extract Block Of Text From Log by LanX (Saint) on Nov 23, 2018 at 10:22 UTC
> only understandable by perlmonks" ;-) I disagree because state-machines need a lot of documentations and flip/flop is well documented in perldoc. At worst you'll just need to add a link in the comments. > just like to write easy-to-read easy-to-port examples. So consequently you use `goto` instead of loop constructs, to keep it easily portable to assembler? ;-) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply]
Re^5: Extract Block Of Text From Log by cavac (Parson) on Nov 23, 2018 at 12:14 UTC
I very rarely use goto, but there are a few cases where it is the correct function to use. `perl -e 'use MIME::Base64; print decode_base64("4pmsIE5ldmVyIGdvbm5hIGdpdmUgeW91IHVwCiAgTmV2ZXIgZ29ubmEgbGV0IHlvdSBkb3duLi4uIOKZqwo=");'`	[reply] [d/l]


We don't bite newbies here... much
	PerlMonks