Автор Тема: Perl Звук Управление процессом  (Прочитано 4902 раз)

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Стоит задача организовать аналог Radioboss (ведение радиоэфира)
Функционал простой... Основной музыкальный фон играет постоянно.
В необходимое время запускается трек объявления по второму каналу первый приглушается на это время по окончании объявления основной фон опять увеличивает звук.

поскольку про такие пакеты не слышал
решил реализовывать в PERL

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

1. два трека одновременно запускаются спокойно. но управление пакетом одно, то-есть например для эксперимента запускаем два трека, в ручную на одном уменьшаем звук второй уменьшается тоже
 Вопрос ... каким макаром создать два абсолютно автономных процесса.
2.Как  эмулировать из основной программы сигналы на увеличение и уменьшение звука, в оригинале кнопки "/" и "*" на нумпаде.
« Последнее редактирование: 29.06.2009 20:45:16 от Axe79 »
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #1 : 29.06.2009 21:24:16 »
Похоже что-то `родное` есть на CPAN-е но блин фсё на англицком.  ???
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн KPETuH

  • Участник
  • *
  • Сообщений: 1 162
    • SG
Re: Perl Звук Управление процессом
« Ответ #2 : 29.06.2009 22:17:57 »
Вопрос ... каким макаром создать два абсолютно автономных процесса.
Мультипоточность? Разве в перл нет подобных библиотек либо эмуляции мультепоточности. Помниться в php нет мультипоточности как таковой но ее можно эмулировать... Думается в перл можно добиться подобного результата.
Мой небосклон и чист, и ясен,
И полон радужных картин...  Не потому что мир прекрасен,  А потому, что я - KPETuH

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #3 : 29.06.2009 22:30:39 »
Вообще-то библиотек на том же CPAN-е полно
http://search.cpan.org/search?query=audio&mode=all
но как их юзать разобраться тяжело
если работать с родными библиотеками то на мой взгляд надо
модуль плеера и модуль микшера
я изначально думал про внешний софт стандартный mplayer  но он не тянет
так что пока ищу мануалы по аудио модулям на русском
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн KPETuH

  • Участник
  • *
  • Сообщений: 1 162
    • SG
Re: Perl Звук Управление процессом
« Ответ #4 : 29.06.2009 22:54:30 »
я изначально думал про внешний софт стандартный mplayer  но он не тянет
как это mplayer не тянет...
Мой небосклон и чист, и ясен,
И полон радужных картин...  Не потому что мир прекрасен,  А потому, что я - KPETuH

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #5 : 29.06.2009 23:49:50 »
1. не удалось организовать управление из под perl скрипта
тоесть запускаю его как дочерний процесс но передачу данных он не воспринимает
читал разделы по управлению процесами ... не выходит... наверное опыта мало..
2. запускал в двух консольных окнах два отдельных трека ... оба играют но когда  захотел например на одном увеличить громкость второй тоже стал реагировать на все изменения...
тоесть на сколько понял mplayer ьщжет запустить два потокоа но в активе процесс управления один...
ну это как я себе понял...

возможно есть какие-то решения...

но если б была возможность использовать perlовские моды мне кажется работа скрипта была б устойчивее
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #6 : 30.06.2009 00:00:04 »
особенно приятно было б если модуль можно было установить с какого либо репозитория автоматом
как ни стыдно признавать но в ручную мне ещё сборка и установка не удавалась

Да и synaptic зараза матерится что нельзя получить все индексы репозитория
« Последнее редактирование: 30.06.2009 00:03:21 от Axe79 »
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Drool

  • Гость
Re: Perl Звук Управление процессом
« Ответ #7 : 30.06.2009 00:17:47 »
Да и synaptic зараза матерится что нельзя получить все индексы репозитория

grep '^rpm' /etc/apt/sources.list.d/*
grep '^rpm' /etc/apt/sources.list

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #8 : 30.06.2009 01:23:18 »

grep '^rpm' /etc/apt/sources.list.d/*
grep '^rpm' /etc/apt/sources.list
спасибо
Удалось найти пакет perl-MPlaer
щас бы ещо маны к нему)))
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн KPETuH

  • Участник
  • *
  • Сообщений: 1 162
    • SG
Re: Perl Звук Управление процессом
« Ответ #9 : 30.06.2009 01:24:20 »
google
Мой небосклон и чист, и ясен,
И полон радужных картин...  Не потому что мир прекрасен,  А потому, что я - KPETuH

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #10 : 30.06.2009 11:07:34 »
гуглить пробовал тока внятного не нашёл сам пакет кiкухош а вот доки...

пробовал через perldoc

[root@localhost my_soft]# perldoc perl-MPlayer
No documentation found for "perl-MPlayer".

или

[root@localhost my_soft]# perldoc MPlayer
Error while formatting with Pod::Perldoc::ToMan:
 Insecure dependency in `` while running with -T switch at /usr/lib/perl5/vendor_perl/Pod/Perldoc/ToMan.pm line 103.

Got a 0-length file from /usr/lib/perl5/vendor_perl/MPlayer.pm via Pod::Perldoc::ToMan!?


ищем дальше...
а времени осталось 2 дня  ???
« Последнее редактирование: 30.06.2009 11:20:32 от Axe79 »
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #11 : 30.06.2009 11:29:27 »
блин!!! кино и немцы...

perldoc имеет свои ключи

для просмотра ключей просто в консоли perldoc ENTER

правильное обращение для мануала

perldoc -t имя_модуля

фсё... маны слил иду курить
« Последнее редактирование: 30.06.2009 17:38:34 от Axe79 »
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #12 : 01.07.2009 00:54:43 »
А вообще кто то организовывал что то похожее ?
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени

Drool

  • Гость
Re: Perl Звук Управление процессом
« Ответ #13 : 01.07.2009 01:00:44 »
А вообще кто то организовывал что то похожее ?

Вы бы в рассылке спросили, там шансов больше.

Оффлайн Axe79

  • Участник
  • *
  • Сообщений: 175
Re: Perl Звук Управление процессом
« Ответ #14 : 01.07.2009 10:52:00 »
Про рассылку как то уже говорили.
Но я ей так и не воспользовался.
Тогда вроде как сам разобрался.

Если можно линк на описание...
как работает  и в чём нюансы...
Ничто так не стимулирует тягу к труду интеллектуальному, как обилие труда физического!
Gutta cavat lapidem non vi, sed saepe cadendo Капля долбит камень не силой, а частым падени