LINUX.ORG.RU

#!/usr/bin/perl -w

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;

ip1981 ☆☆
()
Ответ на: комментарий от redgremlin

>>Такой вопрос от звезданутого???777

Для некоторых поясню, что бывают ситуации, когда выгоднее по времени запостить вопрос и со смартфона прочитать ответ в rss чем с неудобного девайса рыться в факе или спрашивать гугла.

Надеюсь ты удовлетворен?

lexius ★★
() автор топика

find -iname '*.mp3' -print0 | xargs -0 mid3iconv -eCP1251 --remove-v1

KRoN73 ★★★★★
()

Есть вот такое, но есть некоторые но..

#!/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

Буду ещё мусолить это

baaba ★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.