Re: [Lug-bg] кодировка на MP3 тагове и музикални плейъри

[markucz@xxxxxxxxx]

> Знаете ли за програмки, които решават горния проблем с кодировките в
> таговете на mp3 файловете? Ако не ще почопля още малко по проблема и
> накрая ще пусна скрипта върху колекцията си.

Преди време и мен ме сполетя същия проблем. Тогава писах един безумно грозен
скрипт, който работи, но: 1) изцяло зависи от ex, id3v2 и програмите, които
вървят с id3lib; 2) имената на файловете трябва да са на латиница. Ако знаеш
кои точно файлове са с CP1251 кодировка:

id3v2 --TXXX CHARSET:CP1251 file

После 

#!/bin/sh
id3info "$1" > "$1.t"
CHARSET=`grep CHARSET "$1.t" | awk -F: '{print $3}' | sed 's/ //g'`
if [ -z $CHARSET ]; then
        exit 0
fi
ex - "$1.t" 1>&- <<EOF
1,2d
/CHARSET/
d
/^\*\*\*/
.,\$d
1,\$s/(.*):\ (/(/g
1,\$s/(.*)://g
1,\$s/\$/"/g
1,\$s/\ \ /\ "/g
1,\$s/^===\ /--/g
1,\$s/"/\\"/g
0a
id3v2
.
w
EOF
echo "--TXXX \"CHARSET:UTF-8\"" >> "$1.t"
echo "\"$1\"" >> "$1.t"
tr "\n" " " < "$1.t" | iconv -f $CHARSET -t UTF-8 > "$1.sh"
. "$1.sh"
id3convert -s1 "$1" 1>&-
rm "$1.t" "$1.sh"

С това чудо обработих всичките си MP3-ки без проблеми. BTW интересно ми е как
изглежда това на Perl :)
_______________________________________________
Lug-bg mailing list
Lug-bg@xxxxxxxxxxxxxxxxxx
http://linux-bulgaria.org/mailman/listinfo/lug-bg