#!/usr/bin/perl
use HTML::Entities; 
binmode ("STDOUT", ":utf8"); 
print decode_entities(<>);

Для превращения текста со всякими &xxx; и &nnn; в обычный utf8.

Понадобилось из-за штуки, которая в виде таких numeric character references и character entity references сохраняет всё, что не основные символы (латиница, цифры и что-то ещё по минимуму). Кириллицу, например.
Читать дальше

В связи с покупкой нового телефона (Samsung S5230) — возникла потребность конвертировать видео в mp4.

Из найденных решений ничего толком не понравилось. Поэтому решил изобрести еще один велосипед.
Ну а так как я начал немного интересовать Perl-ом — то решил на нем и сваять, т.с. попрактиковаться.
Для работы скрипта нужны ffmpeg и mplayer (а точнее скрипт идущий с ним — midentify).
Проверял на файлах avi и mkv.

Используется элементарно

./tomp4 filename

Читать дальше

Инструкция по созданию локального репозитория Perl-модулей, записанных на переносной носитель.

Устанавливаем модуль CPAN::Mini:

# perl -MCPAN -e "install CPAN::Mini"

или для Debian/Ubuntu:

sudo apt-get install libcpan-mini-perl

или для Fedora/RHEL/CentOS:

sudo yum install libcpan-mini-perl

Если все зависимости удовлетворяют модулю, то установка пройдет без проблем.

На следующей стадии загружаем копию репозитория на сменный носитель
(загружается около 1 Гб данных):

Читать дальше

Предположим, что ставить мы его будем на Дебиан (самый распространенный вариант) или Убунту (дома у меня такой).

Для работы с нормальной нагрузкой такому серверу необходимо не менее 256 Мб оперативной памяти. Это Мускль большинство хавает.

Итак, заходим по ssh или просто садимся за свой сервер (если он под рукой). На нем уже должен стоять Дебиан или Убунту.

Читать дальше