Господа, как можно реализовать случайный выбор музыкального файла из определенной директории?
Чувствую что делается это не сложно, но докопаться не смог
Код: Выделить всё
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.