Re: Regex find and replace - delete line

James Turnbull am Sonntag, 23. Juli 2006 08:01:
Hi all

Hi James

This feels like a really dumb question but doing a regex find and
replace is it possible to delete a line? For example,

The example below does not handle lines, but array entries (the entries may be
used as lines in the extended context, but they are just array entries for
the moment). The name '@file' may be a bit misleading.

for (@file) {
s/foo//g;
}

This means: For every entry in the array, replace all occurances of the
string 'foo' with the empty string, for example
"My foo loves foos" => "My loves s"

which equates to:

for each element in array 'file' if you find 'foo' then replace it with
null.

I then write the array to a file (using Tie::File) and it leaves a blank
line where the element containing 'foo' was like:

null
foo1
foo2
foo3

Perhaps I am confabulating two ideas here? Is there a way to walk
through an array and find a particular array element and delete it
rather than replace it with null (and then write it out to a file using
Tie::File)?

If you want to delete entries from @file completely...

a) that _equal_ to 'foo' (and the entry does not contain a line ending):

@file=grep { $_ eq 'foo' } @file;

b) that _contain_ one ore more 'foo' (presence of line ending does
not matter):

@file=grep { !/foo/ } @file;


Does this help?

Dani
.

Relevant Pages