Переименовать mp3 по тэгам
Подскажите, плиз, как большую группу mp3 и ogg
переименовать, используя информацию из тэгов.
Консольный вариант предпочтительней.
-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 17867; Возраст листа: 629; Участников: 1362
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/351021
Hello, Michael!
on Thu, 14 Apr 2005 17:49:41 +0400 you wrote:
Вот, например, скрипт, который выдирает из тэга имя песни и переименовывает файл
в соотвествии с этим именем, заодно добавляя в начало названия текущий номер
файла:
-----start script#!/usr/bin/perl -w
use MP3::Info;
$index = 1;
while (defined($file = <STDIN>)) {
chop( $file );
my $tag = get_mp3tag($file) or die "No TAG info";
my $mp3 = new MP3::Info $file;
my $name = $mp3->title;
my $new_name = "";
if($index < 10){
$new_name = "0";
}
$new_name .= $index;
$new_name .= " - ";
$new_name .= $name;
$new_name .= ".mp3";
rename( $file, $new_name );
$index += 1;
}
-----end scriptОбзываем этот скрипт, например, rename.pl, и делаем
ls | grep mp3 | ./rename.pl
для переимения файлов в текущем каталоге
Поковыряйтесь в перловском MP3::Info, если не лень, посмотрите, какие он еще
поля из тегов выдирать умеет.
Еще можно попробовать с помощью bash и mp3tag/ogginfo чего-нибудь сообразить.