VPF::помогите распарсить текстовый файл

FreeGanzter

Дата 21.2.2018, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

пожалуйста помогите
нужно из файла .txt вытащить все cтроки которые повторяются не меньше 2ух раз остальное удалить и удалить все строки которые состоят не из английских букв и цифр то есть если в стоке есть + или удаляем строку
результат сохроняем
в файл .txt вот такой вот формат списка

fdsfsdffsdf
fsfsdfsdf
fdsfsdf
fdsfsdfsdf
fsdfsdfsdf
помогите пожалуйста

Это сообщение отредактировал(а) FreeGanzter - 21.2.2018, 09:31

arto

Дата 22.2.2018, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

my%h=map{$_=>1} grep{++$h{$_}>1&&m#^[[:alnum:]]+$#}<STDIN>;print keys%h

tishaishii

Дата 12.9.2018, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Создатель

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

Репутация: 4
Всего: 8

Предыдущий код не сработает из-за переводов на новую строку в STDIN. Да и $h{...}++ срабатывает раньше объявления %h.

Код


my %h ;

$, = "\n" ;

print keys %{ {
    map {
        $_ => undef
    } grep {
        $h{ $_ } > 1
    } map {
        m{^([A-Za-z0-9]+)\s*$}os and $h{ $1 } ++ ; $1 ;
    } <>
} } ;

Это сообщение отредактировал(а) tishaishii - 12.9.2018, 20:30

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