Господа, как можно реализовать случайный выбор музыкального файла из определенной директории?
Чувствую что делается это не сложно, но докопаться не смог
			
			
									
						
										
						Код: Выделить всё
exten => _X.,1,Set(FILE=${SHELL( perl -e '$_=( sort {rand(1000)<=>rand(1000)} glob("/var/lib/asterisk/sounds/custom/*.*") )[0]\;chomp\; s#\.(\w+)$##\; print' )})
exten => _X.,n,Playback(${FILE})
Код: Выделить всё
*CLI> 
  -= Info about function 'RAND' =- 
[Syntax]
RAND([min][,max])
[Synopsis]
Choose a random number in a range
[Description]
Choose a random number between min and max.  Min defaults to 0, if not
specified, while max defaults to RAND_MAX (2147483647 on many systems).
  Example:  Set(junky=${RAND(1,8)}); 
  Sets junky to a random number between 1 and 8, inclusive.