Jamleech 07-08-21 (diskuse)

[Přemek Vyhnal]

Tak to bych moh pridat tenhle skript, kterej stahne to co je urceno k online poslouchani kdyz nejde torrent (nevim proc mi to nekdy nejde). Nejdriv je potreba stahnout M3U playlist. Kvalitu (ogg/mp3) si nastavte nekde v nastaveni a pak kliknete na "Poslechnout kompletni album". Jestli mate nastaveno prehravani v tom jejich webovym prehravaci tak tam je dole "Exportovat tento seznam stop: ... M3U". Pak spustite nasledujici skript a on vytvori slozku (nazev alba) a stahne cely album a obal. Tady je:

#!/usr/bin/perl -w
open(IN,$ARGV[0]);
<IN>;
<IN> =~ m/\#EXTINF:\d+,(.*) -/g; 
$dirname = $1;
$dirname =~ s/ /_/g;
$dirname =~ s/_:_/-/g;
mkdir $dirname;
chdir $dirname;

while(<IN>){
    next if(m/^\#/g);
    s/ogg/mp3/g;         i# jenom kdyz mate nastaveno prehravani oggu a chcete stahnout mp3
    system("wget", $_);
    $last = $_;
}

$last =~ m/jamendo\.com\/(\d+)\//;
system("wget http://img.jamendo.com/albums/".$1."/covers/1.0.jpg");
rename("1.0.jpg","cover.jpg");
close(IN);

system("rename -f 's/[?].*//' *");

Pouziti:

(chmod +x jamendo-m3u-downloader.pl)
./jamendo-m3u-downloader.pl ../Downloads/jamendo-playlist.m3u

PS: Perl neumim .-) takze: (2 moznosti)
a) Nechte me na pokoji .-)
b) Opravte me

[Přemek Vyhnal]

to i na tomhle radku:

    s/ogg/mp3/g;         i# jenom kdyz...

je samozrejme zvyk z vimu a nema tam co delat .-)

[Lukáš Zapletal]

Cože, ty jsi to nepsal ve Vimu???

[Přemek Vyhnal]

no jenom sem pridaval ten komentar kdyz sem to daval sem..

[Boris Dušek]

V manuálu jsi na konci omylem zapomněl smazat nápovědu k wiki syntaxi (aneb pořád tam straší "Add your content here")

[Lukáš Zapletal]

Opraveno, dík.

[Lukáš Zapletal]

Malé doplnění (2010):

Jelikož stahování alb v kvalitě OGG není nejrychlejší (většina tahá MP3 -> nejsou moc seedy), vytvořil jsem jednoduchý Bash tutorial, jak stahovat přes HTTP.

Je na mém blogu.