if ($razdel =~ /^(((ht|f)tp(s?))\://)?(www.|[a-zA-Z].)[a-zA-Z0-9\-\.]+\.(com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk|ru|su)(\:[0-9]+)*(/($|[a-zA-Z0-9\.\,\;\?\'\\\+&%\$#\=~_\-]+))*$/igsm) {опа гангамстайл...}
Установка библиотек в Perl через MCPAN
perl -MCPAN -e 'install "LWP::UserAgent"'
или
cpan install LWP::UserAgent perl -MCPAN -eshell cpan> force install LWP::UserAgent
Вы можете проверить путь установки модуля:
perldoc -l LWP::UserAgent
или быстрая и грязная проверка:
perl -MLWP::UserAgent -e 1
Ручная установка:
Модули находящиеся на CPAN можно скачивать и компилировать вручную. Как правило последовательность команд компиляции и требуемые модули, перечислены в файле README, обычно входящем в состав дистрибутива модуля. Используем файл Makefile.PL.
Для установки в домашний каталог требуется указать переменную окружения INSTALL_BASE:
perl Makefile.PL INSTALL_BASE=~
ну а далее как указано в файле README
make make test make install
Установка Samba на CentOS
В первую очередь необходимо настроить или отключить SELinux. Проверить, включен ли в вашей системе SELinux можно, выполнив следующую команду:
selinuxenabled && echo enabled || echo disabled
Или прописываем в конфиг rc.local
/usr/sbin/setsebool -P samba_domain_controller on /usr/sbin/setsebool -P samba_enable_home_dirs on /usr/bin/chcon -t samba_share_t /FILEDUMP/SHARE
Затем выполните установку Samba:
yum install samba samba-common cups-libs samba-clientЧитать далее «Установка Samba на CentOS»