Перекодировка mp3 тэгов (из cp1251 в koi8-r)

Mitya-ncc · Сообщение **Mitya-ncc** » 15.06.2004 06:44

Могу предложить такой однострочник для subj.

for i in *mp3; do id3tag -s"`id3info "${i}" | iconv -f CP1251 -t KOI8R | grep "=== TIT2" | sed -e 's/^.*: //'`
" "${i}" >  /dev/null && id3tag -a"`id3info "${i}" | iconv -f CP1251 -t KOI8R | grep "=== TPE1" | sed -e 's/^.
*: //'`" "${i}" > /dev/null &&  id3tag -A"`id3info "${i}" | iconv -f CP1251 -t KOI8R | grep "=== TALB" | sed -
e 's/^.*: //'`" "${i}" > /dev/null; done

Сообщение **StraNNicK** » 15.06.2004 07:45

*застыл в восхищении*
Надо shell-scripting учить...

А если имена файлов надо перегнать?
Из кириллицы в транслит?

Gloomy · Сообщение **Gloomy** » 15.06.2004 11:30

Надо shell-scripting учить...

Точно, надо! Вот он, истинный unix-way - связать несколько простых команд чтобы они делали большую полезную работу

Из кириллицы в транслит?

Тогда наверное нужно будет делать что-то типа таблицы перекодировок...

Mitya-ncc, респект! B)

[мысли вслух] ИМХО было бы лучше к XMMS патч прикрутить чтобы он cp-1251 понимал вместо того чтобы конвертировать теги

[/мысли вслух]

xorader · Сообщение **xorader** » 15.06.2004 11:51

(Gloomy @ Вторник, 15 Июня 2004, 10:30) писал(а):Тогда наверное нужно будет делать что-то типа таблицы перекодировок...

iconv --list

был там, вроде, где то транслит в списке

madskull · Сообщение **madskull** » 15.06.2004 14:23

Mitya-ncc прости, что вмешиваюсь.

Код: Выделить всё

for i in *mp3; do
    eval `id3info "$i" | grep '===' | iconv -f windows-1251 -t koi8-r | sed -e 's/^=* //;s/\(["\$]\)/\\\\\1/g;s/ (.*: \(.*\)/="\1"/'`
    id3tag -s"$TIT2" -a"$TPE1" -c"$COMM" -A"$TALB" "$i"
done

Главное, на что хочу обратить внимание - eval.
Он(а) часто бывает полезнее многих преобразований.

Mitya-ncc · Сообщение **Mitya-ncc** » 18.06.2004 02:54

(Gloomy @ Вторник, 15 Июня 2004, 10:30) писал(а):[мысли вслух] ИМХО было бы лучше к XMMS патч прикрутить чтобы он cp-1251 понимал вместо того чтобы конвертировать теги [/мысли вслух]

Дык есть такая штука. У тебя же сейчас gentoo? Там этот патч даже по дефолту ставится.

Добавил @ 18.06.2004 03:08

(madskull @ Вторник, 15 Июня 2004, 13:23) писал(а):Mitya-ncc прости, что вмешиваюсь.
Код: Выделить всё
for i in *mp3; do   eval `id3info "$i" | grep '===' | iconv -f windows-1251 -t koi8-r | sed -e 's/^=* //;s/$["\$]$/\\\\\1/g;s/ (.*: $.*$/="\1"/'`   id3tag -s"$TIT2" -a"$TPE1" -c"$COMM" -A"$TALB" "$i"done
Главное, на что хочу обратить внимание - eval.
Он(а) часто бывает полезнее многих преобразований.

Вот это красота! Особенно регулярное выражение просто поражает. Класс! Можно в bash golf играть. :P (по аналогии с Перл гольфом)

Добавил @ 18.06.2004 03:40

(StraNNicK @ Вторник, 15 Июня 2004, 6:45) писал(а):А если имена файлов надо перегнать?
Из кириллицы в транслит?

вот попробуй это. сам не пробовал...

Код: Выделить всё

#!/usr/bin/perl
#Writen be Evgeniy %)
$ddd=($ARGV[0] or './');

$debug=1;
if (($ARGV[0] eq '--scan') || ($ARGV[1] eq '--scan'))
{$debug = 0}


if ($^O=~/mswin/i){$slash='\\';}else{$slash='/';}

opendir (DIRR, $ddd);
@diri=readdir DIRR;
close DIRR;

foreach $dir (@diri)
{
$dir=$ddd.$dir;
}

splice (@diri,0,2);

if ($debug)
{
        open (F , '>'.$ddd.'mp3list.txt');
        select (F);
        $|=1;
        select (STDOUT);
}
foreach $dir (@diri){

        $dir2=&recode($dir);
        if ($dir2 ne $dir)
                {
                if ($debug)
                        {
                        print F "$dir -> $dir2 \n";
                        print ((' 'x10)."\r".(++$i));
                        }
                else
                        {
                        rename $dir,$dir2;
                        print ("(".(++$i).") $dir -> $dir2 \n");
                        }

                }


        $dir=$dir2;

        if (-d $dir ) {
        opendir (DIR2, "$dir");
        @subdir=readdir DIR2;
        close DIR2;
        splice (@subdir,0,2);

        foreach $subfile (@subdir){push @diri, "$dir$slash$subfile";}
        }

}

if ($debug){close F;}

sub recode
{
local($q)=@_;

$q=~s/з//g;
$q=~s/З//g;
$q=~s/Э//g;
$q=~s/э//g;

$q=~s/ф/ZG/g;
$q=~s/Ф/zg/g;
$q=~s/В/ch/g;
$q=~s/в/CH/g;
$q=~s/Ь/sh/g;
$q=~s/ь/SH/g;
$q=~s/Ы/sha/g;
$q=~s/ы/SHA/g;
$q=~s/Ш/yi/g;
$q=~s/ш/YI/g;
$q=~s/Щ/ye/g;
$q=~s/щ/YE/g;
$q=~s/Ч/yu/g;
$q=~s/ч/YU/g;
$q=~s/Ъ/ya/g;
$q=~s/ъ/YA/g;
$q=~s/ /_/g;

$q=~tr/[юабцдегхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ]/[ABVGDEZIYKLMNOPRSTUFHCzzx_YXzxQabwgdevziyklmnoprstu
fhczzzzyxzzq]/;
#$q=~tr/[:]/[_]/;
return $q;
}

xorader · Сообщение **xorader** » 23.06.2004 09:20

Код: Выделить всё

# echo "Здравствуй, мир! :)" | iconv -t KOI-7 | tr [:upper:][:lower:] [:lower:][:upper:]
Zdrawstwuj, mir! :)

и нефиг изобретать велосипед :P

madskull · Сообщение **madskull** » 23.06.2004 13:40

(xorader @ Среда, 23 Июня 2004, 8:20) писал(а):
Код: Выделить всё
# echo "Здравствуй, мир! :)" | iconv -t KOI-7 | tr [:upper:][:lower:] [:lower:][:upper:]Zdrawstwuj, mir! :)
и нефиг изобретать велосипед :P

О! Вот оно! KOI-7!
Знаю, что iconv так может делать, а вот как?.. Я все к LATIN цеплялся, а оказалось все так просто.
Спасибо.

Mitya-ncc · Сообщение **Mitya-ncc** » 24.06.2004 00:11

Да, действительно

Не знал такого

russian_knight · Сообщение **russian_knight** » 24.06.2004 09:15

Нао бы эту тему как-то получше назвать и переместить куда следует. Очень полезна, а тут затеряется...

Mitya-ncc · Сообщение **Mitya-ncc** » 25.06.2004 00:41

Ну и порезать тогда. Например тот скрипт перловый.

Сообщение **sash-kan** » 08.07.2004 15:29

(xorader @ Wednesday, 23 June 2004, 8:20) писал(а):
Код: Выделить всё
# echo "Здравствуй, мир! :)" | iconv -t KOI-7 | tr [:upper:][:lower:] [:lower:][:upper:]Zdrawstwuj, mir! :)
и нефиг изобретать велосипед :P

↑

это транслит??? --

Код: Выделить всё

# echo "Чаща"|iconv -t KOI-7
~A]A

неет, это не заливная рыба :) © ирония судьбы, или ...

вот в пакете yudit от (вроде бы) mandrake есть утилита uniconv.
вот это заливная рыба:

Код: Выделить всё

# echo "Чаща"|uniconv -encode Russian-Translit
CHashcha

Gloomy · Сообщение **Gloomy** » 17.07.2004 17:41

Помогите пожалуйста улучшить скрипт: нужно чтобы он переименовывал не только файлы но еще и находящиеся в текущем каталоге каталоги. А если получится переименовывать рекурсивно тогда вообще отлично будет.

Код: Выделить всё

for i in *mp3; do
   eval `id3info "$i" | grep '===' | iconv -f windows-1251 -t koi8-r | sed -e 's/^=* //;s/\(["\$]\)/\\\\\1/g;s/ (.*: \(.*\)/="\1"/'`
   id3tag -s"$TIT2" -a"$TPE1" -c"$COMM" -A"$TALB" "$i"
   rm tmp[123]
   echo "$i" > tmp1
   perl rcd.pl -koi2lat < tmp1 > tmp2 # перекодировка KOI8-R в транслит
   sed -e 's/ /_/g' < tmp2 > tmp3 # убираем пробелы
   mv "$i" "`cat tmp3`"
done
rm tmp[123]

Файл rcd.pl можно скачать тут.

Можно ли избавиться от временных файлов tmp1~3?

Mitya-ncc · Сообщение **Mitya-ncc** » 18.07.2004 02:05

Попробую посмотреть. Завтра расскажу, что получилось

madskull · Сообщение **madskull** » 18.07.2004 19:37

На первый взгляд, это можно упростить до

Код: Выделить всё

find ./ | grep -v '^\./$'| sort -r | while read f; do
    if [ ! -d "$f" ]; then
        eval `id3info "$f" | grep '===' | iconv -f windows-1251 -t koi8-r | sed -e 's/^=* //;s/\(["\$]\)/\\\\\1/g;s/ (.*: \(.*\)/="\1"/'`
        id3tag -s"$TIT2" -a"$TPE1" -c"$COMM" -A"$TALB" "$f"
    fi
    fn="$(dirname "$f")/$(basename "$f" | perl rcd.pl -koi2lat | sed -e 's/ /_/g')"
    [ "$f" == "$fn" ] || mv "$f" "$fn"
done

Перекодируются не только файлы, но и каталоги. Вложенность не ограниченна.
Используется поиск всех файлов, а не по маске *mp3 для того, чтобы "зацепить" не только файлы, но и каталоги.
Отработку со скриптом rcd.pl не проверял.

Mitya-ncc · Сообщение **Mitya-ncc** » 19.07.2004 05:13

Класс!

А я всё пытал

Код: Выделить всё

for i in `find . -name "*.[mM][pP]3"`; do ...

а вот с каталогами у меня и не получалось

Gloomy · Сообщение **Gloomy** » 20.07.2004 19:46

madskull
К сожалению скрипт не работает т.к. в первую очередь переименовывает самого себя; перловый скрипт траслита тоже не работает

madskull · Сообщение **madskull** » 21.07.2004 12:03

Не должон, смотри внимательней.

Код: Выделить всё

[ "$f" == "$fn" ] || mv "$f" "$fn"

Проверка специально стоит, чтоб не пытаться переименовывать неизменяемые имена файлов.

А перловый скрипт слишком большой, чтоб его ковырять и разбираться что там к чему.

К тому же, скрипт в лине - это не BAT в досе. Можешь его вообще удалить после его старта, он нормально отработает до конца.

Gloomy · Сообщение **Gloomy** » 21.07.2004 23:27

А перловый скрипт слишком большой, чтоб его ковырять и разбираться что там к чему.

Переделал с временными файлами - все заработало, спасибо :thumbsup:

Сообщение **Warderer** » 11.04.2005 09:23

Люди, а давайте глупый скрипт до ума доведем?

Код: Выделить всё

#!/usr/bin/perl -w
use Getopt::Std;
$fromenc=$opts{'f'} if defined $opts{'f'};
$toenc=$opts{'t'} if defined $opts{'t'};
if($toenc){}else{$toenc="utf-8"};
if($fromenc){}else{$fromenc="koi8-r"};
$filename=$ARGV[0];
$tags=`id3v2 -l "$filename"`;
($artist)=$tags=~/TIT2.+?:(.*)/;
($title)=$tags=~/TPE1.+?:(.*)/;
($album)=$tags=~/TALB.+?:(.*)/;
chomp($artist);
chomp($album);
chomp($title);
if($artist){$newartist=(`echo "$artist" | iconv -f $fromenc -t $toenc`)}else{$newartist=""};
if($title){$newtitle=(`echo "$title" | iconv -f $fromenc -t $toenc`)}else{$newtitle=""};
if($album){$newalbum=(`echo "$album" | iconv -f $fromenc -t $toenc`)}else{$newalbum=""};
`id3v2 -a "$newartist" -A "$newalbum" -t "$newtitle" "$filename"`;

clx · Сообщение **clx** » 11.04.2005 11:25

2 Strangerrr:

Большое спасибо! Оч нужная вещь.
З.Ы. Может стоит тему перенести в проекты форума ?

Сообщение **Warderer** » 11.04.2005 11:32

(clx @ Понедельник, 11 Апреля 2005, 11:25) писал(а):2 Strangerrr:

Большое спасибо! Оч нужная вещь.
З.Ы. Может стоит тему перенести в проекты форума ?

↑

Подожди чуть-чуть. Я-таки надеюсь что к этому скрипту снизойдет madskull, вот тогда мы скрипт в "проекты" и перенесем.

madskull · Сообщение **madskull** » 11.04.2005 13:02

А что - Косой? Чуть что - так Косой!...

Ну нате, получите. Я это так вижу

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use Text::Iconv;

my %opts;
getopts('f:t:', \%opts);
my ($fromenc,$toenc) = ("koi8-r","utf-8");
$fromenc=$opts{'f'} if defined $opts{'f'};
$toenc=$opts{'t'} if defined $opts{'t'};

my $filename=$ARGV[0] or die "Usage: bla-bla-bla";

my $tags=`id3v2 -l "$filename"`;
my ($artist)=$tags=~/TIT2.+?:\s*(.*)/;
my ($title)=$tags=~/TPE1.+?:\s*(.*)/;
my ($album)=$tags=~/TALB.+?:\s*(.*)/;

my $iconv = new Text::Iconv($fromenc, $toenc);

my ($newartist,$newtitle,$newalbum) = (
    $artist? '-a "'.$iconv->convert($artist).'"': "",
    $title? '-t "'.$iconv->convert($title).'"': "",
    $album? '-A "'.$iconv->convert($album).'"': "",
);

`id3v2 $newartist $newalbum $newtitle "$filename"`;

Не проверял!!!

Хотя, по большому счету, надо было добавить только забытый getopts('f:t:', \%opts)

nercus · Сообщение **nercus** » 11.04.2005 21:14

Вспомнил тут, как сам в свое время мучался с кодировками mp3. Тоже писал всякие гадости

Правда потом узнал, что MusicPD все и сам умеет и плюнул. Но потом меня кое чего не устроило, и я написал вот эту гадость (мож пригодится кому):

Код: Выделить всё

#!/bin/sh

SPATH="music"
DPATH="music.new"
FENC="-f cp1251"
#TENC="-t utf8"
TENC=
rm .unprocessed
find "${SPATH}" -name '*.mp3' -type f | while read MP3FILE
do
unset TPE1 TALB TRCK TIT2 TYER Bitrate
EVAL=$(id3info "${MP3FILE}"|sed \
'/^===/{s!`!'\''!g;s!["$]!\&!g;'\
's!^=== \(....\)[^:]*: !\1="!;'\
's!$!"!;p};'\
'/Bitrate/{s!: !=!;p};'\
'd'| iconv -f cp1251)
eval "${EVAL}"
[ -z "${TPE1}" -o -z "${TALB}" -o -z "${TIT2}" ] && echo "${MP3FILE}" >>.unprocessed && continue
DP=$(echo "${DPATH}/${TPE1}/${TYER}${TYER:+\ -\ }${TALB}" | sed "s!\`!\'!g")
[ -n "${TRCK}" ] && TRCK=$(echo "0${TRCK}"|sed 's!.*\(..\)$!\1!')
DN=$(echo "${TRCK}${TRCK:+\ -\ }${TIT2}.mp3" | sed "s!\`!\'!g")
mkdir -p "${DP}" >/dev/null
echo "${DP}/${DN} - ${Bitrate}"
cp -i "${MP3FILE}" "${DP}/${DN}"
done

На всякий случай - оно раскидывает mp3'шки по каталогам. Когда-то там была еще одна строчечка с id3v2, но потом за ненадобностью отмерла. Гадость родилась быстро и использовалась всего однажды. Как следствие - поле для усовершенствования имеется.

Мак Сим · Сообщение **Мак Сим** » 08.05.2006 23:09

Блин, я в восхищение! Это что то.
Толкьо один вопрос... Люди, вы все пользуетесь id3info. А откель её взять то?

Сообщение **valeri_ufo** » 09.05.2006 02:32

Мак Сим писал(а): ↑
08.05.2006 23:09
Блин, я в восхищение! Это что то.
Толкьо один вопрос... Люди, вы все пользуетесь id3info. А откель её взять то?

http://id3lib.sourceforge.net/

Мак Сим · Сообщение **Мак Сим** » 09.05.2006 16:54

Спасибо, заработало.
Проникся трепетом перед башем

Сообщение **aim** » 11.05.2006 23:00

Mitya-ncc писал(а): ↑

15.06.2004 06:44

Могу предложить такой однострочник для subj.

Код: Выделить всё

for i in *mp3; do id3tag -s"`id3info "${i}" | iconv -f CP1251 -t KOI8R | grep "=== TIT2" | sed -e 's/^.*: //'`
" "${i}" >  /dev/null && id3tag -a"`id3info "${i}" | iconv -f CP1251 -t KOI8R | grep "=== TPE1" | sed -e 's/^.
*: //'`" "${i}" > /dev/null &&  id3tag -A"`id3info "${i}" | iconv -f CP1251 -t KOI8R | grep "=== TALB" | sed -
e 's/^.*: //'`" "${i}" > /dev/null; done

г-ди... какой ужас.

помимо знаний шелл-скриптинга должны присутсвовать ещё и другие. например те, что говорят что теги должны быть в unicode и idv2 2.3 или 2.4

dr-evil · Сообщение **dr-evil** » 31.03.2008 12:19

а для переименования convmv совсем не катит?
тема-то вроде начиналась про перекодировку тегов, а продолжилась уже в переименовании...

unixforum.org

Перекодировка mp3 тэгов (из cp1251 в koi8-r)

Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов

Re: Перекодировка mp3 тэгов