Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: What would be the best way?

by Abigail-II (Bishop)
on Oct 15, 2002 at 13:37 UTC ( #205371=note: print w/replies, xml ) Need Help??


in reply to How to make only two of three substitutions?

The following program reads in a file, and if it finds a line that starts with GRANT, followed by a line containing whatever, followed by two lines containing just a '/', it will remove the slashes from the latter two lines. This is how I interpret what you want; however, your specification isn't very exact.
use strict; use warnings; my @buffer; for (1 .. 4) { push @buffer => scalar <>; last unless defined $buffer [-1]; } while (defined $buffer [-1]) { if ($buffer [0] =~ /^GRANT/ && $buffer [2] eq "/\n" && $buffer [3] eq "/\n") { $buffer [2] = $buffer [3] = "\n"; } print shift @buffer; push @buffer => scalar <>; } pop @buffer; print @buffer; __END__

Abigail

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2019-10-20 04:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?