Delete a line from a file using Tie::File

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How can I delete a matchine line from a file?

tie my @file, 'Tie::File', $file or die 'Could not open file';
for (@file) {

   if (/matching_line/) {
         I need to delete this matiching line
   }
}
untie @file;
[download]

Comment on Delete a line from a file using Tie::File Download Code

Replies are listed 'Best First'.
Re: Delete a line from a file using Tie::File by kcott (Archbishop) on Nov 02, 2010 at 01:02 UTC
Replace your entire `for` block with: `@file = grep { ! /matching_line/ } @file;` [download] -- Ken	[reply] [d/l] [select]
Re^2: Delete a line from a file using Tie::File by Anonymous Monk on Nov 02, 2010 at 01:18 UTC
Thanks much Ken!	[reply]
Re^3: Delete a line from a file using Tie::File by Anonymous Monk on Nov 02, 2010 at 21:43 UTC
The above solution worked but it takes much time to process it.. Looks like it need more memory..Is there any other way I can delete an element from a Tie::File array?	[reply]
Re^4: Delete a line from a file using Tie::File by Anonymous Monk on Nov 03, 2010 at 03:24 UTC