Рубрика: Программирование

Создание компьютерных программ

Опубликовано

Закрываем доступ к папке с помощью .htaccess и .htpasswd

Если необходимо закрыть доступ к файлам, в опредиленной папке, данный скрипт создаст все необходимые файлы для конфигурации вебсервера Apache

Читать далее «Закрываем доступ к папке с помощью .htaccess и .htpasswd»
Опубликовано

PHP date() – вывод русского месяца

Пример работы обычной команды data(«d M Y»);

Выведет результат: 01 Mar 2012

Пример работы новой функции rdate(«d M Y»);

Выведет результат: 01 Марта 2012

Во всем остальном новая функция rdate() работает точно также как и стандартная функция. Для вывода месяца в форматированной дате используется латинский символ «M». Так же возможен второй параметр функции, для указания метки времени – timestamp.

function rdate($param, $time=0) {
    if(intval($time)==0)$time=time();
    $MonthNames=array("Января", "Февраля", "Марта", "Апреля", "Мая", "Июня", "Июля", "Августа", "Сентября", "Октября", "Ноября", "Декабря");
    if(strpos($param,'M')===false) return date($param, $time);
        else return date(str_replace('M',$MonthNames[date('n',$time)-1],$param), $time);
}
Опубликовано

Транслитирация русской строки

Переводит русские букауки в латиницу

function TransliteString($str)
{
$str=strtr($str, array('а'=>'a','б'=>'b','в'=>'v','г'=>'g','д'=>'d','е'=>'e','з'=>'z','и'=>'i','й'=>'y','к'=>'k','л'=>'l','м'=>'m','н'=>'n',
'о'=>'o','п'=>'p','р'=>'r','с'=>'s','т'=>'t','у'=>'u','ф'=>'f','х'=>'h','ъ'=>'','ы'=>'y','э'=>'e','_'=>'i',' '=>'-',
'А'=>'A','Б'=>'B','В'=>'V','Г'=>'G','Д'=>'D','Е'=>'E','З'=>'Z','И'=>'I','Й'=>'Y','К'=>'K','Л'=>'L','М'=>'M','Н'=>'N',
'О'=>'O','П'=>'P','Р'=>'R','С'=>'S','Т'=>'T','У'=>'U','Ф'=>'F','Х'=>'H','Ъ'=>'','Ы'=>'Y','Э'=>'E','_'=>'I'
));
$str=strtr($str, array("ё"=>"yo","ж"=>"zh", "ц"=>"ts", "ч"=>"ch", "ш"=>"sh",
"щ"=>"shch","ь"=>"","ю"=>"yu","я"=>"ya", "Ё"=>"Yo", "Ж"=>"Zh", "Ц"=>"Ts",
"Ч"=>"Ch", "Ш"=>"Sh", "Щ"=>"Shch","Ь"=>"", "Ю"=>"Yu", "Я"=>"Ya", "ї"=>"i",
"Ї"=>"Yi", "є"=>"ie", "Є"=>"Ye"
));
return $str;
}
Опубликовано

Отправка письма с вложением

Функция предназначена для отправки письма с сайта с вложенным файлом. Создадим HTML-форму, предназначенную для заполнения пользователем

HTML-форма index.php

<HTML> 
<HEAD> 
<TITLE>Отправка сообщения с вложением</TITLE> 
</HEAD> 
<BODY> 
<H3> <center><font color=#1E90FF>Отправка сообщения с вложением</font></H3> 
<center> 
<table width=1 border=0> 
<form action=simple_mail.php enctype='multipart/form-data' method=post> 

<tr><td width=50%>To:</td><td align=right><input type=text name=mail_to maxlength=32></td></tr> 
<tr><td width=50%>Subject:</td><td align=right><input type=text name=mail_subject maxlength=64></td></tr> 
<tr><td colspan=2>Сообщение:<br><textarea cols=50 rows=8 name=mail_msg></textarea></td> 
<tr><td width=50%>Photo:</td><td align=right><input type=file name=mail_file maxlength=64></td></tr> 
</tr><tr><td colspan=2><input type=submit value='Отправить'></td></tr> 
</form> 
</table> 
</center> 
</BODY> 
</HTML>
Читать далее «Отправка письма с вложением»
Опубликовано

Пример использования number_format()

<?php

$number = 1234.56;

// английский формат (по умолчанию)
$english_format_number = number_format($number);
// 1,235

// французский формат
$nombre_format_francais = number_format($number, 2, ',', ' ');
// 1 234,56

$number = 1234.5678;

// английский формат без разделителей групп
$english_format_number = number_format($number, 2, '.', '');
// 1234.57

?>
Опубликовано

Установка библиотек в 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