Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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

by soonix (Prior)
on Oct 14, 2013 at 08:45 UTC ( #1058148=note: print w/replies, xml ) Need Help??

in reply to Re^2: How to extract certain range of text and display it?
in thread How to extract certain range of text and write into another file?

CountZero's advice is more than just "setting $/". You have to
  1. define $/ before reading your file
  2. of course, spell your record separator correctly, as noted by jakeease
  3. change your logic accordingly, because a "record" now contains multiple lines (those belonging to one name)
  • Comment on Re^3: How to extract certain range of text and display it?

Replies are listed 'Best First'.
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 $/?
      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?
      Um, why not simply "copy/paste" what others have posted? Up above?
        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 ... } }
        use Modern::Perl prompts to give error.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1058148]
[Corion]: Whoa! Somebody forwarded the AnyEvent::Impl:: Prima loop to schmorp and he's even interested in maintaining it himself - that'd be highly convenient for me ;)
[Corion]: (I also have a mail by dk who suggests some additions, which I should add this evening)
[ambrus]: Corion: um, that was me (duh)
[ambrus]: I just can't get you two to cooperate directly because schmorp doesn't want to be in the chatterbox

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2016-12-09 14:05 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (151 votes). Check out past polls.