Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: how to insert new line in text file after regex match?

by aaron_baugher (Curate)
on May 21, 2015 at 11:48 UTC ( [id://1127341]=note: print w/replies, xml ) Need Help??


in reply to how to insert new line in text file after regex match?

Let's say I wanted to find the word 'banana' in a file, then add a line later, such that there were three lines between the 'banana' line and my new line. I could do this:

#!/usr/bin/env perl use 5.010; use warnings; use strict; while(<DATA>){ print; # print the line if(/banana/){ # if it contained banana print scalar <DATA> for 1..3; # print the next three lines print "This line was added.\n"; # then add the new line } } # then print the rest of the +lines __DATA__ a is for apple b is for banana c is for cantaloupe d is for dill e is for elderberry f is for fennel g is for grapefruit h is for honeydew

You should be able to adapt that for your needs. For production code, you'd want to add something to handle the case where there aren't three lines between 'banana' and the end of the file, but since this looks like a homework assignment, I'll assume that's not necessary. Another improvement would be to make the search word and the number of lines to skip arguments set with variables at the top of the problem or taken from the command line. You could also write it as a subroutine which takes the input filename/filehandle, search word, and number of lines as arguments.

Aaron B.
Available for small or large Perl jobs and *nix system administration; see my home node.

Replies are listed 'Best First'.
Re^2: how to insert new line in text file after regex match?
by marinersk (Priest) on May 21, 2015 at 18:34 UTC

    An interesting approach, Aaron.

    Most folks here would make OP show the current code set, to ensure they understood the whole read file/write file process, and that all they were stuck on were particulars of the logic.

    You kind of took an interesting middle ground and fed him a complete-from-scratch working example, but he had to at least show enough cleverness to adapt it to his needs.

    Not sure it's the middle ground I would have chosen, but it is a creative way to not do absolutely everything for the student.

      That's what I was shooting for; didn't know how well I succeeded. We get a lot of questions from people who clearly should still be working through getting a "Hello world!" script working. I figured if he was one of them, my example would be no help to him; but if he had some experience and skill, he'd be okay. It's a hard balance to find, though, between giving a fish and teaching to fish.

      Aaron B.
      Available for small or large Perl jobs and *nix system administration; see my home node.

Re^2: how to insert new line in text file after regex match?
by sumathigokul (Acolyte) on May 21, 2015 at 12:44 UTC

    Yeah i modified it to my requirement and it is working for me guru....

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1127341]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2024-06-20 20:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.