“Una buena cancion puede ser Encontrada en cualquier lado, hazte un favor y buscala” : G n R

Cuando pude comprarme un Estereo de MP3 pal carro, me di a la tarea de hacer un directorio de canciones favoritas para grabarlas en cd y oirlas, como nunca borre los directorios para quemarlos de nuevo cuando se dañe o pierda el cd y fui agregando rolas al directorio, el casio que orita tengo 10 Gb aprox separadas en carpetas y de todo tipo de genero, el caso es que grababa por carpetas pero llegue a un punto que la carpeta de un genero casi me llenaba un CD, bueno el caso que como queria oir variedad me di a la tarea de hacer un escriptito en perl pa agarrar de forma aleatoria de los directorios y copiarlos a un dierctorio cd, el cual se quemara y se disfrutara en el carro…

NOTAS:
- NO soy programador, asi que eviten comentarios de “que feo codigo” etc
- Notas, el directiorio ha sido contaminado con rolas de otros, casi todas son mias pero como el directorio este aparece como el “jukebox oficial del depto de sistemas de pitic, pues le han metido mas rolas”
- El script corre en linux.
- Es necesario el modulo de perl file:random

FAQ -
Donde esta lo de ocioso?: momas checa las rolas que componen el CD

aqui va el script

COUNTER=`du cd | awk -F\ {’print $1′}`

while [ $COUNTER -lt 717080 ]; do
cp “/mnt/kotex/`./random`” ./cd
echo “cp \”/mnt/kotex/`./random`\” ./cd”
echo The counter is $COUNTER
COUNTER=`du cd | awk -F\ {’print $1′}`
done

#du cd | awk -F\ {’print $1′}

#cp “/mnt/kotex/`./random`” ./cd
#echo “cp \”/mnt/kotex/`./random`\” ./cd”

el otro …

feria@pedorra old]$ more random
#!/usr/bin/perl

use File::Random qw/:all/;

my $dir=”/mnt/kotex/CarAudio”;

my $file = random_file(
-dir => $dir,
-recursive => 1 # or 0
);
print $file;

—-

aqui va la demostracion.. :)

http://webmail.tpitic.com.mx/wordpress/mp3cd.txt



Incoherencias parecidas y calificaciones a este post:
          0 votos
  • Ripeando MP3 con Sound Juicer (o como dira bullwinkle, amo a grip)
  • El chiste friki de hoy (o como diria Bullwinkle Quema mucho el sol….)
  • Test de hoy, o como diria Bullwinkle, que ruco estoy!!!
  • Perl Podbrowse
  • CGI’s en Perl en UBUNTU Dapper for Dummies
    •