(PERL) Сравнение 2-х текстовых файлов

achtung
Дата: 10.07.2006 12:13:16
Здравствуйте, Господа. Помогите пожалуйста пофиксить программу ,
которая сравнивает два текстовых файла
- есть текстовый файл 1.txt. В нем содержатся предложения (каждое с новой строки) со знаками препинания, отсортированныe в алфавитном порядке (предположим таких предложений 500)
- есть текстовый файл 2.txt, в котором содержатся идентичные предложения (таких предложений 100) из файла 1.txt, только без каких- либо знаков препинания, все буквы в нижнем регистре.
- задача состоит в том чтобы убрать из 1.txt те предложения, которые есть в fail 2.txt

Скрипт выглядит следующим образом:
#!/usr/bin/perl

my %src=();
open (FILE1,'eng_text1.txt') or die ("Prüfen Sie bitte die Name.");
open (FILE2,'eng_text2.txt') or die ("Prüfen Sie bitte die Name.");

while(<FILE2>) {
chomp;
s/\s{2,}/ /go;
$src{$_}=1;
}

close (FILE2);
my $dst;

while(<FILE1>) {
$dst=$_;
chomp;
lc;
s/[:punct:]//go;
s/\s{2,}/ /go;
print $dst unless ($scr{$_});
}
close(FILE1);

Благодарю Вас за идеи.
Модератор:
Оформляйте топики согласно требованиям форума!!! Топики оформленные не по правилам - будут удаляться.
g613
Дата: 10.07.2006 12:48:22
1: добавь use strict в начало, чтоб понять по чему оно в принципе не работает ( вернее игнорирует все из второго файла )...
2: добавь use locale в начало чтобы оно не только с инглишом работало...