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

Hi, thanks for your response. I did it as following but nothing display of the output.

use warnings;
use strict;
my $test;
my @words;
open(INFO,"<","testing.pl")||die"Can't open file:$!\n";
chomp (@words=<INFO>);
close(INFO);

    local $/ = ".EOM\n\n";
    while ( my $record = @words) {
    print $record;
            }
[download]

Where did I make mistake?

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

Replies are listed 'Best First'.
Re^3: How to extract certain range of text and display it? by soonix (Chancellor) on Oct 14, 2013 at 08:45 UTC
CountZero's advice is more than just "setting $/". You have to define $/ before reading your file of course, spell your record separator correctly, as noted by jakeease change your logic accordingly, because a "record" now contains multiple lines (those belonging to one name)	[reply]
Re^4: How to extract certain range of text and display it? by annel (Novice) on Oct 15, 2013 at 05:34 UTC
Thanks for your response. I have updated my code and question. Can you give me some idea where to define $/?	[reply]
Re^5: How to extract certain range of text and display it? by soonix (Chancellor) on Oct 15, 2013 at 08:44 UTC
For example, I need to extract the $ NAME: sandy until $$.TO and then join with the contents inside $NAME: patrick which is start from G1 until $$SRU. Your sample data seems to indicate that the data for each name starts with "$ NAME" and ends with a line ".EON", which is the base of our suggestions until now. The quoted sentence seems to indicate something different. So you should clarify: how do you recognize which line belongs to which name (via $ NAME and .EON, or different)? how do you determine which part of those lines for a particular name you are interested in? [Update: additional question] do you need to preserve the order of these entries/lines?	[reply]
Re^5: How to extract certain range of text and display it? by Anonymous Monk on Oct 15, 2013 at 06:48 UTC
Um, why not simply "copy/paste" what others have posted? Up above?	[reply]
Re^6: How to extract certain range of text and display it? by annel (Novice) on Oct 15, 2013 at 07:30 UTC
Re^7: How to extract certain range of text and display it? by marto (Cardinal) on Oct 15, 2013 at 07:38 UTC
Re^7: How to extract certain range of text and display it? by Anonymous Monk on Oct 15, 2013 at 07:36 UTC
Re^3: How to extract certain range of text and display it? by jakeease (Friar) on Oct 14, 2013 at 07:21 UTC
CountZero's suggestion is `local $/ = ".EON\n\n";` you simply have a typo:`".EOM`...	[reply] [d/l] [select]