FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.LINUX


	Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

Введите FGHI ссылку:

Присутствуют сообщения из эхоконференции RU.LINUX с датами от 24 Jan 02 06:01:34 до 23 Aug 24 12:51:58, всего сообщений: 8555

Ответить на сообщение

К списку сообщений

Предыдущее сообщение

Следующее сообщение

= Сообщение: 4628 из 8555 ========================================= RU.LINUX =
От   : Den Grigoriev                    2:5005/49.3        10 Jan 18 17:24:26
Кому : Victor Sudakov                                      10 Jan 18 17:24:26
Тема : Чем бы сконвертировать ape+cue, flac+cue в mp3 ?
FGHI : area://RU.LINUX?msgid=2:5005/49.3+5a55ebf5
На   : area://RU.LINUX?msgid=2:5005/49+5a55bb7b
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.LINUX?msgid=2:5005/49+5a5712ae
==============================================================================
Привет, Victor!

Кстати есть программка которая умеет ВСЁ :-)
http://forum.matuntu.org/index.php?topic=115.0

VS> А твой вариант с cuetag поддерживает разные версии и кодировки
VS> записываемых ID3 тэгов, как mp3splt?

Hет, у меня потом скрипт запускается по всем файлам
(и ещё я .cue в UTF-8 перекодирую сначала :-)  ):

#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use English;
use Encode;
use MP3::Tag;

use constant ENCODING => "utf-8";

if ($#ARGV < 0)
{
    print STDERR "Usage: mp3fix_tag file.mp3\n";
    exit;
}
binmode STDOUT, ":utf8";
my $mp3  = MP3::Tag->new($ARGV[0]);
my ($title, $track, $artist, $album) = $mp3->autoinfo();
eval
{
        $title  = decode(ENCODING, $title);
        $track  = decode(ENCODING, $track);
        $artist = decode(ENCODING, $artist);
        $album  = decode(ENCODING, $album);
};
print "title:  $title\n";
print "track:  $track\n";
print "artist: $artist\n";
print "album:  $album\n";
$mp3->get_tags;
$mp3->{ID3v1}->remove_tag if exists $mp3->{ID3v1};
$mp3->{ID3v2}->remove_tag if exists $mp3->{ID3v2};
$mp3->new_tag("ID3v2");
$mp3->{ID3v2}->add_frame("TIT2", $title);
$mp3->{ID3v2}->add_frame("TRCK", $track);
$mp3->{ID3v2}->add_frame("TPE1", $artist);
$mp3->{ID3v2}->add_frame("TALB", $album);
$mp3->{ID3v2}->write_tag;
$mp3->close;
$title =~ s/\// /g;
rename $ARGV[0], sprintf("%02d $title.mp3", $track);

С наилучшими пожеланиями, Den.

--- ---------------------------------------------
* Origin: Жизнь прекрасна, если подобрать антидепрессанты... (2:5005/49.3)

К главной странице гейта