Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сравнение двух текстовых файлов 
:(
    Опции темы
mustafallah
Дата 21.12.2016, 23:42 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 18.3.2008

Репутация: нет
Всего: 1



Всем привет.
Ребят подскажите простенький скриптик, который сравнит  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;
}


Это сообщение отредактировал(а) mustafallah - 21.12.2016, 23:43
PM MAIL   Вверх
arto
Дата 22.12.2016, 07:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



Дубликаты чего? Строк, файлов?
PM MAIL ICQ   Вверх
alezzz
Дата 22.12.2016, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


Профиль
Группа: Участник
Сообщений: 499
Регистрация: 17.8.2009

Репутация: 1
Всего: 14



Код

foreach my $line (keys %filter) {
    print "$line\n";
}

PM MAIL   Вверх
mustafallah
Дата 22.12.2016, 12:33 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 18.3.2008

Репутация: нет
Всего: 1



Это куда вставить? народ подскажите я просто вообще в программировании не шарю
PM MAIL   Вверх
alezzz
Дата 22.12.2016, 13:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


Профиль
Группа: Участник
Сообщений: 499
Регистрация: 17.8.2009

Репутация: 1
Всего: 14



это вставить в конец программы, а потом перенаправить вывод в файл.

Добавлено через 5 минут и 6 секунд
вот блин, невнимательно прочитал и суть проблемы, и исходный текст, там уже выводит уникальные строки, просто перенаправьте в файл.
PM MAIL   Вверх
mustafallah
Дата 22.12.2016, 14:45 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 18.3.2008

Репутация: нет
Всего: 1



а как перенаправить?  я просто говорю же в программировании 0, если не сложно покажите готовый скрипт
PM MAIL   Вверх
alezzz
Дата 22.12.2016, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


Профиль
Группа: Участник
Сообщений: 499
Регистрация: 17.8.2009

Репутация: 1
Всего: 14



тут как раз от программирования 0 и нужен
https://ru.wikipedia.org/wiki/Перенаправление_ввода-вывода
PM MAIL   Вверх
mustafallah
Дата 23.12.2016, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 18.3.2008

Репутация: нет
Всего: 1



Понял smile тупанул, спасибо ;) разобрался
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1163 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.