Краткий справочник по массовому переименовыванию файлов :-)

Скриптик для переименования кириллических имен файлов в руглиш:

#!/usr/bin/perl
 
@ARGV || die " Usage:
    scriptname файл1 файл2 ...
    scriptname \"имя файла\" ...
    scriptname имя\\ файла ...
    scriptname \*.mp3
    scriptname \*";
 
sub translit
{
    my $text = shift;
    $text =~ y/ абвгдеёзийклмнопрстуфхъыьэ/_abvgdeezijklmnoprstufh'y'e/;
    $text =~ y/АБВГДЕЁЗИЙКЛМНОПРСТУФХЪЫЬЭ/ABVGDEEZIJKLMNOPRSTUFH'Y'E/;
    my %mchars = ('ж'=>'zh','ц'=>'tz','ч'=>'ch','ш'=>'sh','щ'=>'sch','ю'=>'ju','я'=>'ja',
                  'Ж'=>'ZH','Ц'=>'TZ','Ч'=>'CH','Ш'=>'SH','Щ'=>'SCH','Ю'=>'JU','Я'=>'JA');
    for my $c (keys %mchars) {
        $text =~ s/$c/$mchars{$c}/g;
    }
    return $text;
}
 
while (@ARGV)
{
  rename($ARGV[0],translit($ARGV[0])) || die "Can't rename $ARGV[0] to translit($ARGV[0]): $!";
  shift;
}

ЗЫ: А еще ЕМНИП вроде был патч к convmv - добавление кодировки руглиш...

Уважаемые гуру.

Зачем такие сложности? :-)

В Delphin находите нужную папку с файлами в которых полный бардак.
Выделяете все файлы "Правка" > "Выделить всё"> в окне курсором мышки становитесь на выделенное, при нажатии правой кнопки мыши появляется меню, выбираете "Перименовать", появляется окошко в котором написано "объект" и #. Вместо объекта ставите все что хотите и нажимете ОК и будет вам счастье переименованное с 1 и до......

вместо

cp ReallyVeryLongFileNameYouDontWantToTypeTwice ReallyVeryLongFileNameYouDontWantToTypeTwice.bak

пишем

cp ReallyVeryLongFileNameYouDontWantToTypeTwice{,.bak}

взято здесь

из кучи файлов с различными именами, допустим расширением *.gif требуется привести к такому виду:
image001.gif
image002.gif
...
imageNNN.gif

Хотя это очень востребовано, но ненагугливается красивое решение...

Почему-то никто не написал способ для find. Однако он тоже может команды исполнять.

К примеру тупое переименование всех файлов в каталоге

$ find . * -exec mv {} {}.bak \;

А я через mc копирую/переименовываю. Выделяешь нужные файлы, жмёшь F5 или F6, в источнике пишешь:
*.c
а в приемнике:
*.bak

И всё. Или, например, поменять местами имя и расширение:
*.*
\2.\1

Только метасимволы шелл галочка должна быть включена для обоих примеров. Если её выключить, то там чуть сложнее, но зато гибче. Короче F1 в помошь :)

1) Дополнение к трудоёмкому способу :

for i in *.c; do
  mv "$i" "${i%.c}.bak"
done

2) Насчёт rename из состава perl: огромное спасибо, раньше не знал, что там можно любые команды писать; использовал только s для замены :D. Кстати, с русскими буквами это не сработает. Если локаль не utf8, то можно сделать так:

rename 'use locale; tr/ /_/;$_=lc' *

Но если utf8 - не работает. Есть идеи?

3) Не совсем в тему, но тем не менее:

Для массового переименования файлов между разными кодировками есть convmv

Спасибо ramok за капитальный труд и mancubus за идею. Господа линуксоиды, добавляйте сюда свои способы переименовывания ;)

добавлю свои 2 копейки - пакет mmv (apt-get install mmv), включает в себя утилитки mmv, mcp, mad, mln (ну, все они линки на один exeшник, но це не столь важно ;)