Форум программистов «Весельчак У»
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
Начало
Наши сайты
Галерея
Весельчак У
Наша Вики
Хранилище
Проекты
Правила
Правила форума
Правила русского языка
Помощь
Поиск
Календарь
Почта
Войти
Регистрация
Форум программистов «Весельчак У»
>
Программирование
>
Perl
(Модератор:
McZim
) > Тема:
Perl скрипт
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: Perl скрипт (Прочитано 23998 раз)
0 Пользователей и 3 Гостей смотрят эту тему.
Louie
Новенький
Offline
Perl скрипт
«
:
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
Технический
Администратор
Offline
Пол:
Re: Perl скрипт
«
Ответ #1 :
28-02-2011 14:58 »
Вот в этой строчке генерируется случайный номер:
Код:
$play=int(rand($num));
Но переделкой одной строчки дело не решится.
Записан
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Louie
Новенький
Offline
Re: Perl скрипт
«
Ответ #2 :
28-02-2011 15:00 »
Я уж понял что эта.
Только чем её заменить , этого я недогоняю +(
Записан
RXL
Технический
Администратор
Offline
Пол:
Re: Perl скрипт
«
Ответ #3 :
28-02-2011 16:49 »
Я тоже
Чтобы понять, нужно видеть другую часть программы, которая вызывает данную функцию (ices_get_next).
Записан
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Louie
Новенький
Offline
Re: Perl скрипт
«
Ответ #4 :
28-02-2011 17:38 »
И что именно Вам надо показать?
Записан
RXL
Технический
Администратор
Offline
Пол:
Re: Perl скрипт
«
Ответ #5 :
28-02-2011 21:57 »
Я свой хрустальный шар где-то потерял, а без него телепатия не работает...
Ну, откуда я знаю, что у тебя там? Ты или доставай всю программу, или разбирайся самостоятельно. И пользуйся моментом, пока помогают бесплатно!
Записан
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [
1
]
Вверх
Печать
« предыдущая тема
следующая тема »
Форум программистов «Весельчак У»
>
Программирование
>
Perl
(Модератор:
McZim
) > Тема:
Perl скрипт
Загружается...