Саратов + 26 °C 

Храмы Высота ЧБ Люди Вокзалы Парк Зима. Снег Саратов Сад-огород. Хлеба Грибы Лес Зима. Снег Цветы Живность Кошки Река Хлеба Лес Зима. Снег Новый Год Небо. Облака Радуга Курьезы Река Хлеба Лес Зима. Снег Небо. Облака Курьезы Астро Зима. Снег Новый Год Шарм Эль Шейх. Тропикана Гранд Азур Кошки Ящерица Йошкар-Ола. Казань. Чебоксары Гуамское ущелье Майкоп Грибы Зима. Снег Лошади Сад-огород. Зима. Снег Должанка Египет Люди Санкт-Петербург Санкт-Петербург Финляндия Финляндия Греция. Родос. Детский Сад 158 Новый Год Авто Мото Макро Карта Дети Питание Шарм Эль Шейх. Тропикана Гранд Азур Астро Набережная Петрозаводска Карелия. Путешествия. Весна Макро Карта Отдых Лыжные прогулки Стихи CentOS Oracle SAMBA GlassFish LAMP Motion EJabberd Postfix. Dovecot. Amavisd Perl Jabber VLC M3U Ubuntu
Обои для рабочего стола. Лучшее качество 1600x1200.
ДНЕВНИКИ


Назад >> Сергей ШИБКА >> Perl


06.06.2016 Создание плей-листа для VLC.

Переход с Win на Linux затрагивает смену привычного софта.

Под Windows использовался RadioSure для воспроизведения онлайн радио. Под Win очень приятный софт, никакой рекламы и большущий список станций. Под Linux версии нет и поэтому было решено использовать VLC. Одно но, под него нет нормального списка станций или я плохо искал. Решено было использовать тот же список, что и в RadioSure. Есть одна проблема, родной список не подходит форматом для VLC. Необходим список в формате M3U. И как всегда на помощь приходит мной любимый Perl. Набросал небольшой конвертер и через секунду плей-лист в нужном формате готов. Для этого необходимо скачать свежий архив станций с http://www.radiosure.com/stations/ и распаковать его. Далее создаем конвертер на Perl.

Создаем пустой файл:
touch /mnt/BackUp/pls-m3u.pl

Открываем на редактирование и добавляем в него содержимое:

#!/usr/bin/perl

$pls_m3u_path = '/mnt/BackUp';
$station_file = 'stations-2016-06-05';

open(PLS, "$pls_m3u_path/$station_file\.rsd") or die "Error: $!";
while ($read=<PLS>){
$count++;
(@lst) = split (/\t/, $read);
if ($lst[0] ne '' && $lst[5] ne '') {
open(M3U, '>>', "$pls_m3u_path/$station_file\.m3u") or die "Error: $!";
if ($count == 1){
print M3U "#EXTM3U\n\n";
} else {
print M3U "#EXTINF:0,$lst[0] $lst[1] $lst[2] $lst[3] $lst[4]\n$lst[5]\n\n";
}
close (M3U);
}
}
close (PLS);


Сохраняем файл и делаем его исполняемым:
chmod +x /mnt/BackUp/pls-m3u.pl

Запускаем на выполнение:
/mnt/BackUp/./pls-m3u.pl

В итоге получаем необходимый плей-лист, который можно загрузить в VLC: файл


комментарии (0)


[ Назад ]


© 2005 - 2018 * Сергей Шибка