Perl скрипт

[Louie]

Всем добрый день.
есть скрипт перловский для проигрывания треков из определенной папки. и через каждые 5 треков появляется вставка (мп3шная), но суть не в этом. Скрипт изначально настроен рандомно играть треки из папки. А мне надо по порядку. Может кто помочь переделать? Выкладываю скрипт.

Код: (Perl)

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 < 5){
        $jingle ++;
        @music=`/bin/ls -1 /home/user/music/*.mp3`;
    }else{
        $jingle = 0;
        @music=`/bin/ls -1 /home/user/vstavki/*.mp3`;

    }
        $num = scalar (@music);
        $play=int(rand($num));
        chomp $music[$play];
        return $music[$play];
}

return 1;

[RXL]

Вот в этой строчке генерируется случайный номер:

Код:

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

Но переделкой одной строчки дело не решится.

[Louie]

Я уж понял что эта.
Только чем её заменить , этого я недогоняю +(

[RXL]

Я тоже
Чтобы понять, нужно видеть другую часть программы, которая вызывает данную функцию (ices_get_next).

[Louie]

И что именно Вам надо показать?

[RXL]

Я свой хрустальный шар где-то потерял, а без него телепатия не работает...

Ну, откуда я знаю, что у тебя там? Ты или доставай всю программу, или разбирайся самостоятельно. И пользуйся моментом, пока помогают бесплатно!