Скрипт джингл через определенное количество треков (Страница 2 из 2)

Извинитеч что поднимаю эту тему заного, но у меня какой то глюк с перл скриптом.
Вроде всё работает, джинглы проигрываются как надо, но после проигрывания джинла снова начинает играть та песня которая была до джинла и потом идет без повтора, до очередного джингла .. в чём причина может быть.

И еще один вопросик , как выключить рандом??
тег в ices.conf
    <Randomize>0</Randomize>
прописан, но он всё равно играет рандомно..

так. а как его убрать из скрипта?

$play=int(rand($num));

я так понял эта строчка за это отвечает. С перлом я вообще не дружу, поэтому и прошу о помощи.

ну мануал в руки и вперед, я ведь тоже так делал )
лишиться рандума в этом скрипте не обойдеться изменением одной строчки

Добавлено спустя       45 секунд:

пишет pusik:

Попробуй так.

$play=int($num);

не уверен!

ничего хорошего из этого не выйдет ))

пишет Louie:

Гхм...  интересно. Какой именно мануал? тыкните пальчиком +)

забанили в гугле? ищите мануал по языке perl

пишет Louie:

Вот блин. Из-за рандома, надо половину и-нета пролистать +)) а заменить надо будет как всегда 1 или 2 строчки +)

ну если вы такой умный то заменяйте )) но скажу вам что 2мя строчками точно не обойдеться, обойдеться где-то в 3 ))

Застрял на той-же описанной ранее ошибке:

Logfile opened
Initialization of playlist handler failed. []
Ices Exiting...

ices.conf вот (искомый кусок):

Показать / Cкрыть текст

  <Playlist>
    <Randomize>1</Randomize>
    <Type>perl</Type>
    <Module>ices.pm</Module>
  </Playlist>

сам /usr/local/etc/modules/ices.pm вот (полностью):

Показать / Cкрыть текст

sub ices_init
{
print "Perl subsystem Initializing:\n";
$jingle = 0;
return 1;
}

sub ices_shutdown
{
print "Perl subsystem shutting down:\n";
}

sub ices_get_next
{
print "Perl subsystem quering for new track:\n";
if($jingle < 7)
{
  $jingle ++;
  @music=`/bin/ls -1 /home/icecast/data/playlist/*.mp3`;
}
else
{
  $jingle = 0;
  @music=`/bin/ls -1 /home/icecast/data/jingles/*.mp3`;
}
$num = scalar (@music);
$play=int(rand($num));
chomp $music[$play];
return $music[$play];
}

return 1;

помогите пожалуйста! Кто как решил эту проблему? Вы-ж так ничего и не написали толком..

Спасибо, всё получилось, дальше буду курить мануал по perl.

Меня просто сбила с толку эта фраза:

пишет tarasian666:

<Module>ices</Module> - название файла скрипта должно в таком случае быть ices.pm

..теперь только понимаю что фразу можно понять двояко, а не только так как я её понял.

Может кто из знающих Perl помочь, подсказать ?
Как заменить этот рандом на последовательную подстановку числа ?
То есть чтобы цифры подставлялись последовательно от 1 до N. Где N = $num (то есть кол-во строк[файлов])
И ещё. Дойдя до числа $num, последнего номера строки (последнего файла из списка), происходил повтор всего цикла, то есть от 1 и снова до значения в переменной $num.
Курение perl и гугление циклов - не помогают решить задачу.

//upd
Уже не нужно. Ices и perl - фтопку.

Отредактировано Render (07-07-2011 21:07:13)