iTunes ja ääkköset (ID3)

[rugueux]

Poltin aikoinaan useamman dvd:n täyteen mp3-musiikkia. Tarkoitukseni on nyt lisätä ne iTunes-kirjastoon, mutta iTunes ei ymmärrä ID3-tagien ääkkösiä. Tarkoitus olisikin löytää kätevä työkalu tai tapa millä iTunes jättäisi nämä id3-tagit huomioimatta ja rakentaisi tietonsa tiedostonimen (TrackNumber - TrackName.mp3) mukaan ja hakisi tämän tiedon perusteella netistä toimivat id3-tagit (albumi ja esittäjä).

Kappaleita on satoja, en mielelläni rupeasi jokaista käsin korjaamaan.

Ideoita?

[rmho]

xxx

[rugueux]

<quota>
Oletkos kokeillut

iTunes -> Advanced -> Convert ID3 Tags..

Muistaakseni itse sain tuolla jotakin aikaan. Joskus.
[/quote]

Kiitos vinkistä. Muunnoksista ei kuitenkaan ollut apua, ääkköset eivät edelleenkään näy oikein. Pitää yrittää etsiä joku apuohjelma, joka osaa tehdä uudet ID3-tagit tiedostonimestä.

[Lem]

Kirjoitin aikanaan tällaisen softanpätkän Perlillä, mutta tämä oli yksi niistä tekeleistä, jotka pääsivät bittien taivaaseen kun iBookin winsu kilahti. Muistaakseni käytin itse tägäämiseen ihan tarkoitukseen sopivaa Perl-moduulia.

Tämä operaatio oli aikanaan tarpeen, kun siirryin tiedosto- ja hakemistopohjaisesta nimeämisestä ID3-tägien käyttäjäksi (eli siis iTunesiin). Softan tekemiseen meni max. 1 h.

-Lem

[Lem]

No niin, varmuuskopioita kaivelemalla tuokin skriptinpätkä löytyi. Tämä pätkä luo ID-tägit sellaisiin ämpäreihin, jotka ovat artistin ja levyn mukaisessa hakemistohierarkiassa. Tästä muokkaamalla saisi tietysti aikaan mitä haluaa.

Eli tätä käytettiin sanomalla esimerkiksi

Koodi: Valitse kaikki

% mp3tag.pl Marillion/Misplaced\ Childhood/*.mp3

Skripti vaatii MP3::Info -moduulin asentamisen, joka onnistui muistaakseni suoraan CPAN-modulia käyttämällä. Jos haluat kehittää ajatusta edelleen, voin kyllä jeesiä.

Koodi: Valitse kaikki

#!/usr/bin/perl

use strict;

use File::Basename;
use MP3::Info;

while (my $file = shift)
{
    my $title  = basename($file);
    my $album  = basename(dirname($file));
    my $artist = basename(dirname(dirname($file)));

    $title  =~ s/^(\d+)(_|-)//;
    my $track = $1;

    if ($title =~ /__/)
    {
	($title, $artist) = split /__/, $title;
	$artist =~ s/\.\w+$//;
    }

    $artist =~ s/_/ /g;
    $album  =~ s/_/ /g;
    $title  =~ s/_/ /g;
    $title  =~ s/\.\w+$//;

    my $tag;

    $tag->{ARTIST} = $artist;
    $tag->{ALBUM} = $album;
    $tag->{TITLE} = $title;
    $tag->{TRACKNUM} = $track;
    
    set_mp3tag($file, $tag)
       or die "Could not edit $file: $!";
}