Сравнение двух текстовых файлов

 
-1
 
Perl
ava
mustafallah | 21.12.2016, 23:42
Всем привет.
Ребят подскажите простенький скриптик, который сравнит  2 текстовых файла и удалит дубликаты создаст 3 файл и выдаст уникальные строки.
Вот нашел на просторах интернета, только как доделать чтобы результат сохранялся в файл 3.txt, а не выводился на экран?

#!/usr/bin/perl

use strict;
use warnings;

die "Usage: $0 filtered.txt filter.txt\n" if @ARGV != 2;

my %filter;

open F, $ARGV[1] or die "Cannot open $ARGV[1]: $!\n";
while(<F>) {
    chomp;
    $filter{$_} = 1;
}
close F;

open F, $ARGV[0] or die "Cannot open $ARGV[0]: $!\n";
while(<F>) {
    chomp;
    print "$_\n" unless $filter{$_};
    $filter{$_} = 1;
}
Kommentare (7)
ava
arto | 22.12.2016, 07:50 #
Дубликаты чего? Строк, файлов?
ava
AlexZagr | 22.12.2016, 08:59 #

foreach my $line (keys %filter) {
    print "$line\n";
}
ava
mustafallah | 22.12.2016, 12:33 #
Это куда вставить? народ подскажите я просто вообще в программировании не шарю
ava
AlexZagr | 22.12.2016, 13:24 #
это вставить в конец программы, а потом перенаправить вывод в файл.
ava
mustafallah | 22.12.2016, 14:45 #
а как перенаправить?  я просто говорю же в программировании 0, если не сложно покажите готовый скрипт
ava
AlexZagr | 22.12.2016, 16:06 #
тут как раз от программирования 0 и нужен
https://ru.wikipedia.org/wiki/Перенаправление_ввода-вывода
ava
mustafallah | 23.12.2016, 11:21 #
Понял :) тупанул, спасибо ;) разобрался
Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
advanced
Absenden