Print This Post Simple mp3 broadcaster

Пятница, 11. Июнь 2010
Раздел: Perl, Windows, автор:

Простой консольный скрипт на Perl'е для вещания mp3 потока в сеть. Проигрывает треки случайным образом из заданной директории.

Желающие также могут воспользоваться .bat файлом и netcat для этих целей:

@ECHO OFF
SET music=C:\music\
SET port=1234
 
FOR /R %music% %%G IN (*.mp3) DO (
	echo Playing: %%G
	echo.
	(
		echo "HTTP/1.0 200 OK\r\nContent-Type: audio/x-mp3stream\r\n\r\n"
		type "%%G"
	) | nc -l -p %port% > NUL
)

Скачать: pl+bat

Комментариев: 5