Re: Looping a script

["Ashley M. Kirchner" <ashley pcraft com>]

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:ashley pcraft com>   .   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.