Mañana salimos para Lanzarote a desconectar unos días. Pensando en las cinco horas de coche que tenemos hasta el aeropuerto de Barajas se me ocurrió que quizás sería buena idea grabar algo para el camino, algo que no fuese música que ya tenemos, y me acordé de los programas que Nieves Concostrina tenía en R5 y los que estuve una buena temporada enganchado.
Afortunadamente los audios de todos los programas de «Polvo Eres» están disponibles en RNE y con un par de líneas es muy fácil de descargar todos. Si en un terminal copias estas líneas se descargan unos 375 mp3s correspondientes a otros tantos programas de unos 10 minutos.
n=0; for p in $(seq 1 26); do for audio in $(curl "http://www.rtve.es/alacarta/interno/contenttable.shtml?pbq=$p&orderCriteria=DESC&modl=TOC&locale=es&pageSize=15&ctx=2068" 2>&1 | grep -o -E 'href="http:([^"#]+).mp3"' | cut -d'"' -f2); do let n++; echo "Descargando pista $n, página $p ($audio)"; curl "$audio" -o "polvoeres_$(basename $audio)"; done; done
En la actualidad la periodista (creo, ya sólo la oigo de uvas a peras) realiza un programa de corte similar en Cadena SER llamado «Pretérito imperfecto«. Los audios también están disponible en un canal de podcast de IVOOX, no se si están todos o es que son pocos ( hay 58 archivos mp3 ) pero para descargarlos igualmente basta con poner en una consola:
for p in $(seq 1 3); do urlBase="http://www.ivoox.com/podcast-preterito-imperfecto_sq_f160919_$p.html"; for audio in $(curl "$urlBase" 2>&1 | grep -o -E 'href="preterito-imperfecto-([^"]*)?autoplay=1"' | cut -d'"' -f2|uniq); do url=$(echo "$audio" | sed -r 's/(.*)-audios-mp3_rf_(.*)_1\.html.*/http:\/\/www.ivoox.com\/\1_mf_\2_feed_1.mp3/g'); curl -L "$url" -o "preteritoimperfecto_$(basename $url)"; done; done
