Как удалить несколько символов в названии файла?

Question

[Sargass]

Обрабатываю массив файлов в папке по шаблону имени $_ =~ /ee/i;
Файлы имеют название вида ссXXYYZZ_ее.XXX
Обработанные файлы складываю в подпапку, присвоив им my $filename = basename($work_file); точно такое же имя. (если без basename то получается весёлый путь вместо просто имени)
Так вот, в чём собственно вопрос. В идеале надо, чтобы файлы лежали в одной папке, но все числовые соответствия, вместе с расширением должны остаться, а вот "_ее" в конце у обработанных файлов как раз можно и нужно убрать.
Как убрать из названия файла (это всегда три последних символа до расширения, если что) эти символы в процессе обработки, и сохранить уже без них?

Answer 1

[Mikhail Osher]

s/_ee$/$filename/r

Разве не оно?

Comments

[Mikhail Osher]

Или как в Perl обозначается конец строки?

[Sargass]

Да, $, всё верно.
Что я делаю неправильно?
my $filen = basename($work_file); my $filename = s/_bd$/$filen/r; sysopen HRF, "XXX/$sub/$subsub/$subsubsik/hour_logs/$filename", O_WRONLY | O_CREAT | O_APPEND;
— Файлов впринципе нет.
my $filename = basename($work_file); s/_bd$/$filename/r; sysopen HRF, "XXX/$sub/$subsub/$subsubsik/hour_logs/$filename", O_WRONLY | O_CREAT | O_APPEND;
— Файлы остаются точно такими же как были.

Прошу прощения, за возможную тупость, я просто так ещё не делал.

[Mikhail Osher]

Это операция substitution в regular expressions, а не решение Вашей задачи! Я лишь привел примерный синтаксис.

Answer 2

[Sargass]

=~ s/^(.+)(_ee)(.+)$/$1$3/g
Неправильно делал очень простую вещь — my перед форматированием.

Comments

[Sargass]

Жара даёт о себе знать)