Построчное сравнение 2 файлов

Тема в разделе "Другие языки", создана пользователем pikasun, 6 июл 2011.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. pikasun

    pikasun Постоялец

    Регистр.:
    23 сен 2009
    Сообщения:
    117
    Симпатии:
    9
    У кого есть простенький пример на Perl построчного сравнения 2 файлов.
    Сравниваются все строки 1-ого и 2-ого файла между собой.
     
  2. Darkmind

    Darkmind SNMP maniac

    Регистр.:
    31 май 2006
    Сообщения:
    184
    Симпатии:
    76
    Код:
    use strict;
    use warnings;
     
    my $f1 = '/opt/1.txt';
    my $f2 = '/opt/2.txt';
    my $outfile = '/opt/result.txt';
    my %results = ();
     
    open FILE1, "$f1" or die "Could not open file: $! \n";
    while(my $line = <FILE1>){
       $results{$line}=1;
    }
    close(FILE1);
     
    open FILE2, "$f2" or die "Could not open file: $! \n";
    while(my $line =<FILE2>) {
       $results{$line}++;
    }
    close(FILE2);
     
    open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \n";
    foreach my $line (keys %results) {
       print OUTFILE $line if $results{$line} == 1;
    }
    close OUTFILE;
    
     
    pikasun нравится это.
  3. pikasun

    pikasun Постоялец

    Регистр.:
    23 сен 2009
    Сообщения:
    117
    Симпатии:
    9
    Ага, спасибо, понял!
    Я через слияние массивов искал.
     
Статус темы:
Закрыта.