|
Модераторы: korob2001, ginnie |
|
FreeGanzter |
|
|||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 4.5.2011 Репутация: нет Всего: нет |
пожалуйста помогите
нужно из файла .txt вытащить все cтроки которые повторяются не меньше 2ух раз остальное удалить и удалить все строки которые состоят не из английских букв и цифр то есть если в стоке есть + или удаляем строку результат сохроняем в файл .txt вот такой вот формат списка fdsfsdffsdf fsfsdfsdf fdsfsdf fdsfsdfsdf fsdfsdfsdf помогите пожалуйста Это сообщение отредактировал(а) FreeGanzter - 21.2.2018, 09:31 |
|||
|
||||
arto |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
my%h=map{$_=>1} grep{++$h{$_}>1&&m#^[[:alnum:]]+$#}<STDIN>;print keys%h
|
|||
|
||||
tishaishii |
|
|||
Создатель Профиль Группа: Завсегдатай Сообщений: 1262 Регистрация: 14.2.2006 Где: Москва Репутация: 4 Всего: 8 |
Предыдущий код не сработает из-за переводов на новую строку в STDIN. Да и $h{...}++ срабатывает раньше объявления %h.
Это сообщение отредактировал(а) tishaishii - 12.9.2018, 20:30 |
|||
|
||||
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |