Le mardi 24 janvier 2006, à 08 heures 56, Julien Künzi écrivait :
> On Saturday 21 January 2006 16:34, François Heredero - Top Music SA wrote:
> > [snip]
> > 2) Mélanger au hasard les lignes d'un fichier
> > [EMAIL PROTECTED] dossier]# melange resultat_ls
> > dossier1/dossier2/fichier2_1.mp3
> > fichier1.mp3
> > dossier1/fichier1_1.mp3
> > dossier1/fichier1_2.mp3
> > fichier2.mp3
>
> Je ferais ça en Perl.
>
> [EMAIL PROTECTED]:/tmp$ cat resultat_ls | perl -e 'my @in = <STDIN>; while (
> scalar @in ) { print splice @in, int rand scalar @in, 1; }'
> ./libgii0/env.txt
> ./texmf/generic/babel/announce.txt
> ./libwxgtk2.4-python/README.txt
> ./openssl/doc/HOWTO/keys.txt
> ...
Plus simple:
find -iname \*.mp3 | perl -MList::Util=shuffle -e 'print shuffle <>'
List::Util est en standard dans la distribution de Perl depuis la
version 5.7.3.
--
C é d r i c B o u v i e r
signature.asc
Description: Digital signature
_______________________________________________ gull mailing list [email protected] http://lists.alphanet.ch/mailman/listinfo/gull
