Re^6: How to extract certain range of text and display it?

Do you mean this one?

use Modern::Perl;

{
    local $/ = ".EON\n\n";
    while ( my $record = <DATA> ) {
        say "I found: $record";
        # ... now do something with $record ...
    }
}
[download]

use Modern::Perl prompts to give error.

Comment on Re^6: How to extract certain range of text and display it? Download Code

Replies are listed 'Best First'.
Re^7: How to extract certain range of text and display it? by marto (Cardinal) on Oct 15, 2013 at 07:38 UTC
"use Modern::Perl prompts to give error." Something like this: `Can't locate Modern/Perl.pm ...` [download] If so, install the module: `cpan Modern::Perl` [download] If this isn't the problem you're going to have to be more specific. Please read and understand How do I post a question effectively? to find out how to help us help you.	[reply] [d/l] [select]
Re^7: How to extract certain range of text and display it? by Anonymous Monk on Oct 15, 2013 at 07:36 UTC
Do you mean this one? use Modern::Perl prompts to give error. In that case see Re^2: How to extract certain range of text and display it?	[reply]