home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / perl4s.lzh / perl4.035 / cscript / playmod.pl < prev    next >
Perl Script  |  1992-09-19  |  344b  |  21 lines
  1. #!max2:bin/perl -I/usr/lib/perl
  2. #
  3. # perl script to play a mod
  4. #
  5. #
  6. #
  7. $arglist = "";
  8. $count = 0;
  9. foreach (@ARGV) {
  10.   $count = $count+1;
  11.   if($count != 2) {
  12.     $arglist = $arglist." Max3:music/mods/mod.$_";
  13.   }
  14.   else {
  15.     $arglist = $arglist." dummy Max3:music/mods/mod.$_";
  16.   }
  17. }
  18. print "/c/player PLAY $arglist\n";
  19. `/c/player PLAY $arglist`;
  20.  
  21.