Re: Delete specific lines from txt file.

[trizen]

in reply to Delete specific lines from txt file.

See perldoc Tie::File.

Here is a sample code:

use strict;
use warnings;
use Tie::File;

my $filename = '/path/to/file.txt';
my $firstname = 'John';
my $lastname = 'Watter';

tie my @array, 'Tie::File', $filename or die $!;
for(my $i = 0; $i <= $#array; $i++){
     if($array[$i] =~ /\b$firstname\b.+\b$lastname\b/){
        splice(@array, --$i, 5);
     }
}
untie @array;