use strict;
use File::Find ();
use Text::Iconv;
use Getopt::Long qw(:config bundling);
use MP3::Mplib;
use Cwd;
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, $ENV{'LANG'});
use File::Basename;
Для некоторых поясню, что бывают ситуации, когда выгоднее по времени запостить вопрос и со смартфона прочитать ответ в rss чем с неудобного девайса рыться в факе или спрашивать гугла.
Есть вот такое, но есть некоторые но..
#!/bin/bash
FROMCODE=CP1251
TOCODE=UTF-8
case $# in
0)
for i in *mp3; do
eval `id3info "$i" | grep '===' | \
iconv -f $FROMCODE -t $TOCODE | \
sed -e 's/^=* //;s/\(["\$]\)/\\\\\1/g;s/ (.*: \(.*\)/="\1"/'`
id3tag -A"$TALB" -a"$TPE1" -s"$TIT2" "$i"
done
;;
*)
eval `id3info "$1" | grep '===' | \
iconv -f $FROMCODE -t $TOCODE | \
sed -e 's/^=* //;s/\(["\$]\)/\\\\\1/g;s/ (.*: \(.*\)/="\1"/'`
id3tag -A"$TALB" -a"$TPE1" -s"$TIT2" "$1"
;;
esac
==========================
Взял я это здесь:
http://linuxforum.ru/index.php?act=Print&client=printer&f=3&t=368
Буду ещё мусолить это