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

@OLGA04_90 · Регистрация: 16.03.2021

Студворк — интернет-сервис помощи студентам

Имеется файл со строками: (количество может быть любое)

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

Спасибо

volodin661 · 08.06.2023, 08:20

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;

@OLGA04_90 · 08.06.2023, 11:15 **[ТС]**

Спасибо, а если в файле будут содержаться пробелы и длина строки другая, код изменится? например,

U E:\w\test\SEE\Corn\m\ja\ru\s\codin\try.j ava

volodin661 · 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;

@OLGA04_90 · 09.06.2023, 08:37 **[ТС]**

Спасибо большое за помощь!

Новые блоги и статьи Все статьи Все блоги /
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@OLGA04_90 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

@OLGA04_90 0 / 0 / 0 Регистрация: 16.03.2021 Сообщений: 78
	09.06.2023, 08:37 [ТС]
	Спасибо большое за помощь! 0

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

Решение