ДНЕВНИКИ
Назад >>
Сергей ШИБКА
>>
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)
[ Назад ]
|
