Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^2: Regex and writing lines in file

by amma (Novice)
on May 01, 2013 at 10:02 UTC ( #1031539=note: print w/ replies, xml ) Need Help??


in reply to Re: Regex and writing lines in file
in thread Regex and writing lines in file

Yes there is one line where we can do match out of the three lines and that line is the first line in three lines.


Comment on Re^2: Regex and writing lines in file
Re^3: Regex and writing lines in file
by BillKSmith (Chaplain) on May 01, 2013 at 18:45 UTC
    The following code uses an array as a "circular list" to delay the printing of the EXTRA. Is this what you need?
    use strict; use warnings; my $match = qr /Match/; my $extra = qq(EXTRA\nEXTRA\n); my @extras = (q()) x 3; my $in = 3; my $out = 0; while (my $line = <DATA>) { $out = ($out+1) % 4; print $line, $extras[$out]; $in = ($in +1) % 4; $extras[$in] = ($line =~ /$match/)? $extra : q(); } __DATA__ a b Match1 Match2 c d e f g Match3 h i j k
    Bill

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2014-07-31 03:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (244 votes), past polls