Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Perl скрипт  (Прочитано 23556 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Louie
Новенький

lv
Offline Offline

« : 28-02-2011 14:48 » 

Всем добрый день.
есть скрипт перловский для проигрывания треков из определенной папки. и через каждые 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;
« Последнее редактирование: 01-03-2011 18:52 от McZim » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 28-02-2011 14:58 » 

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

Код:
$play=int(rand($num));

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

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Louie
Новенький

lv
Offline Offline

« Ответ #2 : 28-02-2011 15:00 » new

Я уж понял что эта.
Только чем её заменить , этого я недогоняю +(
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 28-02-2011 16:49 » 

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

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Louie
Новенький

lv
Offline Offline

« Ответ #4 : 28-02-2011 17:38 » 

И что именно Вам надо показать?
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 28-02-2011 21:57 » 

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

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

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines