Johannes Eriksson wrote:
> #!/usr/bin/perl
>
> srand;
> for (;;)
> {
> @f = <*.mp3>;
> @s=();
> (push(@s,splice(@f,rand @f,1))) while (@f);
> map {system ("amp","-p",$_)} @s;
> }
>
> It will loop ad inifinitum, playing all mp3 files in the working
> directory randomly shuffled.
This works! Thanks! Now, I just have to remember to hit the CTRL-C
combination several times in a row if, and when I want to kill it. <grin>
AMK4
--
H | Hi, I'm currently out of my mind. Please leave a message. BEEEEP!
|____________________________________________________________________
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ashley M. Kirchner <mailto:[EMAIL PROTECTED]> . 303.442.6410 x130
Director of Internet Operations / SysAdmin . 800.441.3873 x130
Photo Craft Laboratories, Inc. . eFax 248.671.0909
http://www.pcraft.com . 3550 Arapahoe Ave, #6
.................. . . . . Boulder, CO 80303, U.S.A.
_______________________________________________
Redhat-list mailing list
[EMAIL PROTECTED]
https://listman.redhat.com/mailman/listinfo/redhat-list
