![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
Louie |
|
|||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
Вем добрый день.
Сразу приступлю к теме. Имеется скрипт проигрывания музыки. Он беред рандомную музыку из папки и через кажды 5 песенок вставляет другую песенку. Но суть в другом. Как я уже подметил , скрипт играет рандомно, но мне надо чтобы всё шло по порядку. вот код:
Можете помочь и поправить этот код? Это сообщение отредактировал(а) Louie - 28.2.2011, 16:53 |
|||
|
||||
powerfox |
|
|||
![]() I wanna fork() ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3990 Регистрация: 1.10.2005 Где: Санкт-Петербург Репутация: нет Всего: 97 |
Как-то так:
Это сообщение отредактировал(а) powerfox - 28.2.2011, 17:19 |
|||
|
||||
Louie |
|
||||||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
так. походу что-то не так.
выложу полностью плагин
после замены он выглядит так:
и тогда Перл начинает ругаться:
|
||||||
|
|||||||
powerfox |
|
|||
![]() I wanna fork() ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3990 Регистрация: 1.10.2005 Где: Санкт-Петербург Репутация: нет Всего: 97 |
Стр. 22-24:
Это сообщение отредактировал(а) powerfox - 28.2.2011, 17:55 |
|||
|
||||
Louie |
|
|||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
|
|||
|
||||
powerfox |
|
|||
![]() I wanna fork() ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3990 Регистрация: 1.10.2005 Где: Санкт-Петербург Репутация: нет Всего: 97 |
Извиняюсь, ошибся
![]() Надо так (не забудьте скобки в начали в конце):
|
|||
|
||||
Louie |
|
||||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
Наверное уже достал Вас =( Общий код теперь выглядит так -
|
||||
|
|||||
powerfox |
|
|||
![]() I wanna fork() ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3990 Регистрация: 1.10.2005 Где: Санкт-Петербург Репутация: нет Всего: 97 |
Да это я косячу ![]()
Это сообщение отредактировал(а) powerfox - 1.3.2011, 00:43 |
|||
|
||||
Louie |
|
|||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
так.. код работает. считывает все по порядку!! но теперь он ненаходит вставки .
Тобишь через каждые 5 песен он играет "вставку". Но когда дело доходит до этого, то перл выдает вот это.
Хотя до этого находил так же рандомно из папки и никакой плейлист ему не нужен был.. Исправили одно, нарисовался другой косяк +( Эх... достал уже этот скрипт... _------------------------------------------- Хотя если поменять название папки - vstavki , на основную папку, то все продолжает играть дальше, по порядку. Т.е. Перл "потерял" папку. Права поставил 777 и на все песни в ней (ради проверки), всё равно не находит =( Он хочет играть только с одной папки =( Это сообщение отредактировал(а) Louie - 1.3.2011, 04:13 |
|||
|
||||
powerfox |
|
||||
![]() I wanna fork() ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3990 Регистрация: 1.10.2005 Где: Санкт-Петербург Репутация: нет Всего: 97 |
Нужно так:
--->
|
||||
|
|||||
arto |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
my @mp3;
sub ices_init { my @j = </home/muzika/vstavki/*.mp3> my ( $i,$j ); @mp3 = map { if (++$i%5 == 0) { $j[++$j%$#j] } else { $_ } } </home/muzika/*.mp3>; } sub ices_get_next { return shift @mp3; } проверить крайние эффекты. |
|||
|
||||
Louie |
|
||||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
arto -
powerfox - Поменял код, выдаёт тоже-самое +( Это сообщение отредактировал(а) Louie - 2.3.2011, 01:20 |
||||
|
|||||
arto |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
а чыто там до 5'ой строчки?
|
|||
|
||||
Louie |
|
|||
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 28.2.2011 Репутация: нет Всего: нет |
Это весь код, который я вставил. Тобишь всё что есть, написано выше
|
|||
|
||||
arto |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
my @j = </home/muzika/vstavki/*.mp3>;
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |