Форум программистов, компьютерный форум, киберфорум
Perl: Web
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 16.03.2021
Сообщений: 78

Необходимо обрезать строки, чтобы получилось так

07.06.2023, 12:41. Показов 1200. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Имеется файл со строками: (количество может быть любое)

upd.lst

E:\SEE\EFR\e\y\ty.java
E:\SEE\EFR\s\m\j\ru\ef\ef_ser\Ef.javа
E:\SEE\Con\main\java\ru\d\Type.java

мне необходимо обрезать строки, чтобы получилось так:

SEE\EFR
SEE\Con

т.е. убирая еще дубли


Код:

Perl
1
2
3
4
5
6
7
8
9
# В @upd находится список путей из файла upd.lst
my $SEEDir="\\\\SEE\\\\";
my @SEE = grep { s/.*$SEEDir// & s/\\.*// } @upd; 
# Убираем дубли
my %seen = ();
my @unique = grep { ! $seen{ $_ }++ } @SEE;
 
foreach my $n (@unique) {
  say $n;

На выходе получаю:
EFR
Con


Как мне исправить код, чтобы получить:

SEE\EFR
SEE\Con

Спасибо
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
07.06.2023, 12:41
Ответы с готовыми решениями:

Дано число. Необходимо удалить ровно K цифр так, чтобы получилось максимально возможное число
У меня программа неверно работает при больших числах. В чем дело? #include <iostream> using namespace std; int maxnumber(long...

Дано число. Необходимо удалить ровно K цифр так, чтобы получилось максимально возможное число
Дано N-значное число. Необходимо удалить ровно K цифр так, чтобы получилось максимально возможное число. Например у числа 19249 вычесть...

Не могу разложить 6p+1 так, чтобы получилось p+2
У меня есть пример по операционным счислениям. Вроде как решаю, а вот не могу разложить 6p+1 так, чтобы получилось p+2. Как это сделать?

4
 Аватар для volodin661
6627 / 2258 / 346
Регистрация: 10.12.2013
Сообщений: 7,809
08.06.2023, 08:20
Лучший ответ Сообщение было отмечено OLGA04_90 как решение

Решение

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use v5.10;
use strict;
use warnings;
 
my @list = qw {
    E:\SEE\EFR\e\y\ty.java
    E:\SEE\EFR\s\m\j\ru\ef\ef_ser\Ef.javа
    E:\SEE\Con\main\java\ru\d\Type.java
};
 
my %dict;
 
foreach( @list ) {
 
    my @parts = split/\\/;
 
    my $target = $parts[1]."\\".$parts[2];
 
    $dict{$target}++;
}
 
say for keys%dict;
1
0 / 0 / 0
Регистрация: 16.03.2021
Сообщений: 78
08.06.2023, 11:15  [ТС]
Спасибо, а если в файле будут содержаться пробелы и длина строки другая, код изменится? например,


U E:\w\test\SEE\Corn\m\ja\ru\s\codin\try.j ava
0
 Аватар для volodin661
6627 / 2258 / 346
Регистрация: 10.12.2013
Сообщений: 7,809
08.06.2023, 15:26
Цитата Сообщение от OLGA04_90 Посмотреть сообщение
если в файле будут содержаться пробелы и длина строки другая, код изменится?
не изменится

Цитата Сообщение от OLGA04_90 Посмотреть сообщение
например,
U E:\w\test\SEE\Corn\m\ja\ru\s\codin\try.j ava
а для такого случая изменится.
что, впрочем, нетрудно увидеть и самому, если выполнить его.

Добавлено через 58 минут
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
use v5.10;
use strict;
use warnings;
 
my @list = qw {
    E:\EFR\e  \y\ty.java
    ukaskn ajsajsa ddg E:\FFF\SEE\EFR\e\y\ty.java
    E:\SEE\EFR\s\m\j\ru\ef\ef_ser\Ef.javа
    E:\SEE\Con\main\java\ru\d\Type.java
};
 
my %dict;
 
foreach( @list ) {
 
    if( m{\\SEE\\.+$}) {
 
        $_ = $&;
 
        my @parts = split/\\/;
 
        my $target = $parts[1]."\\".$parts[2];
 
        $dict{$target}++;
    }
}
 
say for keys%dict;
1
0 / 0 / 0
Регистрация: 16.03.2021
Сообщений: 78
09.06.2023, 08:37  [ТС]
Спасибо большое за помощь!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.06.2023, 08:37
Помогаю со студенческими работами здесь

Необходимо изменить строку так, чтобы длина строки стала равна заданной длине
Дана строка текста, в котором нет начальных и конечных пробелов. Необходимо изменить её так, чтобы длина строки стала равна заданной длине...

Необходимо изменить строку так, чтобы длина строки стала равна заданной длине
Дана строка текста, в котором нет начальных и конечных пробелов. Необходимо изменить её так, чтобы длина строки стала равна заданной длине...

Необходимо изменить строку так, чтобы длина строки стала равна заданной длине
Дана строка текста, в котором нет начальных и конечных пробелов. Необходимо изменить ее так, чтобы длина строки стала равна заданной длине...

Cортировка: Надо провести сортировку так чтобы получилось 1,2,3,0,0...
Подскажите пожалуйста , я новичок и возник вопрос, как надо сделать . Надо провести сортировку так чтобы получилось 1,2,3,0,0(через desc...

Можно ли так расставить знаки, чтобы получилось число 8
Можно ли так расставить знаки (плюсы или минусы) в сумме ±1±2±3±4±5±6±7±8±9±10±1±2±3±4±5±6±7±8±9±10, чтобы получилось число 8? Как вообще...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru