remove-line

This script will remove every line with the keyword ftwsx (of course you can change this). The result will be stored in 2.txt.

open (ERSTE, "1.txt") || die "file not found\n";

@urls = <ERSTE>;
close (ERSTE);
open (OUTFILE, ">>2.txt");

for(@urls)
{

next if $_ =~ /ftwsx/;
# remove all lines with keyword ftwsx


print OUTFILE $_,;
$i++;
}
close (OUTFILE);


 

Back to previous page