Камрады в новой версии Jamendo выпили возможность скачивать альбомами в vorbis q7. Как теперь качать в свободных форматах? Пробовал api.jamendo.com но как получить номер трека в альбоме.
#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;
my $url = 'http://api.jamendo.com/v3.0/tracks/?client_id=b6747d04&format=xml&album_id=88689&audioformat=flac';
my $content = get $url or die "Unable to get $url\n";
my $xml = new XML::Simple (KeyAttr=>[]);
my $data = $xml->XMLin( $content );
foreach my $t (@{$data->{results}{tracks}{track}})
{
print "wget -O \"$t->{artist_name} - $t->{name}.flac\" $t->{audio} && ";
}
