В ходе отрабатывания IVR при определенном донаборе запускался скрипт для
проигрывания случайного музыкального файла из определенной директории.
Текст:
exten => 1,n,Set(FILE=${SHELL( perl -e '$_=( sort {rand(12)<=>rand(12)}
glob("/var/lib/asterisk/sounds/*.*") )[0]\;chomp\;
s#\.(\w+)$##\; print' )})
exten => 2,n,Playback(${FILE})