Как переименовать файлы с определенным условием в Linux?

Question

[Sergey]

У меня есть в папке файлы

name1-20-pencvjdvlbfkgbfkgfgjkf.jpg
name3-120-pencvjdvlbfkgbfkgfggrgrgrjkf.jpg
name4-dfdfdfd-pencvjdvlbfkgbfkgfgjkf.webp
name5-2adsd0-wwdencvjdvlbfkgbfkgfgjkf.jpg
name6-2dd-rtywdencvjdvlbfkgbfkgfgjkf.jpg
name7-hhdd-vvvtywdencvjdvlbfkgbfkgfgjkf.webp

Нужно переименовать так чтобы все удалилось все вот эти хвостики из набора букв. Получается если читать справа налево нужно удалить символы от точки до первого тире.
-vvvtywdencvjdvlbfkgbfkgfgjkf в файле name7-hhdd-vvvtywdencvjdvlbfkgbfkgfgjkf.webp должно получится name7-hhdd.webp
-rtywdencvjdvlbfkgbfkgfgjkf в файле name6-2dd-rtywdencvjdvlbfkgbfkgfgjkf.jpg должно получится name6-2dd.jpg
-wwdencvjdvlbfkgbfkgfgjkf в файле name5-2adsd0-wwdencvjdvlbfkgbfkgfgjkf.jpg должно получится name5-2adsd0.jpg и так далее все файлы в одной директории.

Answer 1

[shurshur]

В Linux есть замечательная утилита rename. Ну, точнее, их две: одна входит в пакет util-linux, другая - скрипт на базе perl-модуля File::Rename. В deb-дистрибутивах нужный нам скрипт устанавливается в составе пакета rename и также имеет имя второе file-rename (а версия из util-linux имеет имя rename.ul). В других дистрибутивах может быть иначе, поэтому смотрим внимательнее параметры запуска (можно запустить rename без параметров и убедиться, что это нужный вариант).

Синтаксис предельно простой: rename регулярное_выражение_замены_perl имена_файлов

Синтаксис rename.ul для сравнения: rename что_заменить на_что_заменить имена_файлов

Вот что можно сделать для решения задачи (в предположении, что других точек, кроме как перед расширением, в имени файла нет):

rename 's/-\w+\././' *

Этот скрипт намного удобнее многоэтажных однострочников, да и пригодится в жизни ещё не раз.

Comments

[Sergey]

Нвписал ругнулся что uknown option и список файлов выдал. неизвестная опция:имя_файла

[shurshur]

Sergey, а проверка что это правильный rename проведена? Показываю как у меня это выглядит:

shurik@ubuntu ~ $ rename
Usage:
    rename [ -h|-m|-V ] [ -v ] [ -0 ] [ -n ] [ -f ] [ -d ]
    [ -e|-E perlexpr]*|perlexpr [ files ]

shurik@ubuntu ~ $ rename.ul
rename.ul: недостаточно аргументов
Try 'rename.ul --help' for more information.

[shurshur]

Sergey, да, ещё советую ключ -n использовать, который пропускает реальное переименование, полезно для тестирования того что в итоге получится.

[Sergey]

shurshur,
Usage:
rename [ -h|-m|-V ] [ -v ] [ -0 ] [ -n ] [ -f ] [ -d ]
[ -e|-E perlexpr]*|perlexpr [ files ]

Да тоже самое.
Он почему то думает что имя файла это опция пишу вот так
rename 's/-\w+\././' *

[shurshur]

Sergey, скорее всего есть файл с именем, начинающимся на -. Самое простое - вместо * указывать ./* или -- * (в большинстве приличных парсеров опций командной строки пара минусов является признаком "дальше не будет опций").

[Sergey]

shurshur,
писать
rename 's/-\w+\././' ./*

вместо rename 's/-\w+\././' * ? правильно понял?

[shurshur]

Sergey, да, и даже для начала

rename -n 's/-\w+\././' ./*

Ключ -n чтобы посмотреть что он соберётся в итоге сделать с файлами, чтобы убедиться, что это именно ожидаемое поведение.

Answer 2

[Виктор Таран]

https://regex101.com/r/NeoDkO/1
find + regexp
вот так ищешь файлы. - далее можно или через exec
или xargs
или просто через print 0
и sedom поменять до сохранения.

Answer 3

[Дмитрий]

perl -e 'foreach(glob("*")) { $o = $_; s/^(.+)\-\w+(\.\w+)$/\1\2/; rename($o, $_) or die("ERROR: can not rename $o to $_!\n"); }'

Answer 4

[AUser0]

find . -type f -exec prename -n 's/-[a-z]+(\.[^.]+)$/$1/' {} +

Comments

[Sergey]

ничего не произошло может быть проблема в том что там еще кириллицей наименования могут быть

[AUser0]

Sergey, упс, чуточку ошибся

find . -type f -exec prename -n 's/-[a-z]+(\.[^.]+)$/$1/' {} \;

И нужно установить в системе пакет prename.