Perl: Удаление строк из файла

0

1

Есть 2 файла первый допустим с худ. текстом, а второй файл содержит строки которые надо удалять из первого файла.

Например:
1 файл:
"...Князь Василий не обдумывал своих планов. Он <еще менее> думал сделать людям зло для того, чтобы приобрести выгоду..."

2 файл:
<еще менее>

На выходе:

"...Князь Василий не обдумывал своих планов. Он думал сделать людям зло для того, чтобы приобрести выгоду..."

т.е. нужно удалить фрагмент из строки
Как это реализовать??

Ссылка

←	Запуск SBCL и ввод строк автоматически

[java]Построение иммутабельных объектов

→

http://perldoc.perl.org/functions/split.html

xspirit
(31.01.11 22:33:21 MSK)

Ссылка

первая ссылка в гугле

#!/usr/bin/env perl -w
# usage: script.pl words text >newfile
use English;

# poor man's argument handler
open(WORDS, shift @ARGV) || die "failed to open words file: $!";
open(REPLACE, shift @ARGV) || die "failed to open replacement file: $!";

my @words;

while ($_=<WORDS>) { 
  chop; # strip eol
  push @words, split; 
}

@words=sort { length($b) <=> length($a) } @words;

undef $RS;
$text = <REPLACE>;

foreach $word (@words) { 
     $text =~ s/\b\Q$word\E\s?//sg;
}

print $text;

xspirit
(31.01.11 22:56:09 MSK)