PHP. Как получить дату завтрашнего дня.

date('d.m.Y', strtotime('+1 day', time()))

Также можно использовать '+6 days', '+1 week' и тд.

Scheme. Lisp. Заметки.

; Вычисление модуля

(define (abs x)
  (cond ((< x 0) (- x))
        (else x)))

(define (abs x)
  (if (< x 0) ; Предикат
      (- x)   ; Следствие
      x))     ; Альтернатива

.htaccess и кодировка html-файлов UTF-8

Если ничего не помогает, и браузер не хочет выставлять кодировку по-умолчнанию
(DOCTYPE, meta - все ок), можно попробовать выставить в .htaccess:

AddDefaultCharset UTF-8

PHP. Использование SimpleXML.

Код:

$newsXML = new SimpleXMLElement("<news></news>");
$newsXML->addAttribute('newsPagePrefix', 'value goes here');
$newsIntro = $newsXML->addChild('content');
$newsIntro->addAttribute('type', 'latest');
$newsXML->content = 'hello!';
Header('Content-type: text/xml');
echo $newsXML->asXML();


Результат:

<?xml version="1.0"?>
<news newsPagePrefix="value goes here"><content type="latest">hello!</content></news>

Zend Framework. Создание собственного элемента формы Zend_Form

Версия ZF: 1.10.
Создание собственного элемента формы Zend_Form довольно тривиально.
Ниже пример для класса Securimage. Собственно в Zend Framework достаточно вариантов капчи на любой вкус, все это лишь для иллюстрации того, как это работает.
Где-то у нас есть объект Zend_View ... Надо указать путь к хелперам (view helpers).
Допустим они у нас в каталоге Custom (по умолчанию Zend_View смотрит Zend/View/Helper/).

$view = new Zend_View();
$view->setHelperPath('Custom/View/Helper/', 'Custom_View_Helper_');

Объект вида можно хранить, допустим в реестре, а вообще как хотим.

файл: Custom/Form/Element/Securimage.php

class Custom_Form_Element_Securimage extends Zend_Form_Element
{
 public $helper = 'Securimage';
}

Собственно и все, просто указали хелпер вида для отображения, в данном случае.
Все может быть гораздо сложнее, но нам тут это не нужно.

файл: Custom/View/Helper/Securimage.php

class Custom_View_Helper_Securimage extends Zend_View_Helper_FormElement
{
 public function securimage($name, $value = null, $attribs = null)
 {
   $html = "<img src='http://path/to/captcha' />";
   $html .= "<input type='text' name='{$name}' />";
   return $html;
 }
}
?>

Одноименный метод хелпера возвращает html-код нашего элемента.
Это то что мы увидим в результате вызова метода render нашего элемента.

Ну и наконец нам нужен валидатор значения нашего элемента.
Подключение класса Securimage обеспечено автозагрузчиком.
Валидатор наследует класс фреймворка Zend_Validate_Abstract и должен реализовать метод
isValid с определенным списком параметров (это важно, иначе он не будет вызван методом isValid класса Zend_Form).

файл: Custom/Validate/Securimage.php

class Custom_Validate_Securimage extends Zend_Validate_Abstract
{
 const INVALID = 'invalid';

 protected $_messageTemplates = array(
   self::INVALID => 'Неверный код'
 );

 public function isValid($val, $context = null)
 {
    $val = (string) $val;
    $this->_setValue($val);
    $si = new Securimage();
    if(!$si->check($val)) {
        $this->_error(self::INVALID);
        return false;
    }
    return true;
 }
}

Осталось совсем немного, создать форму и добавить туда наш элемент, примерно так ...

class MyForm extends Zend_Form
{
 pulic function init()
 {
   // ....

   $si = new Custom_Form_Element_Securimage('cap');
   $si->addValidator(new Custom_Validate_Securimage());
   $si->setRequired();
   $si->setLabel('Код');
   $this->addElement($si);

   // ....
 }
}

Пути к файлам элемента и валидатора указывать не требуется, все включается автоматически.
Если нет, то возможно потребуется явно подключить все необходимые файлы.

Ubuntu 10.04. Установка java.

sudo add-apt-repository "deb http://archive.canonical.com/ lucid partner"
sudo apt-get update
sudo apt-get install sun-java6-jre sun-java6-plugin sun-java6-fonts

Zend Framework. Собственный Zend_Filter.

Создание собственного фильтра для Zend_Form, реализуем интерфейс Zend_Filter_Interface:

class MyFilter implements Zend_Filter_Interface
{
  public function filter($value)
  {
    return $valueFiltered;
  }
}

// Использование
$filterChain = new Zend_Filter();
$filterChain->addFilter(new MyFilter());

Perl. Обработка исключений.

Вот такой простой способ обработки исключений в Perl

eval {                           # try
    ... тут наш код ...
};
if( $@ ) {                       # catch
    ... тут обработка исключений $@ ...
}

PHP. Загрузка изображения.

Два простых способа загрузить изображение

$remote_img = 'http://www.somwhere.com/images/image.jpg';
$img = imagecreatefromjpeg($remote_img);
$path = 'images/';
imagejpeg($img, $path);

// CURL
function save_image($img,$fullpath)
{
  $ch = curl_init ($img);
  curl_setopt($ch, CURLOPT_HEADER, 0);
  curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
  curl_setopt($ch, CURLOPT_BINARYTRANSFER,1);
  $rawdata=curl_exec($ch);
  curl_close ($ch);
  if(file_exists($fullpath)){
    unlink($fullpath);
  }
  $fp = fopen($fullpath,'x');
  fwrite($fp, $rawdata);
  fclose($fp);
}

Perl с поддержкой threads. XAMPP. Ubuntu.

Perl в пакете XAMPP для Linux к сожалению собран без поддержки threads.
Можно пользоваться perl из системы. Для работы с MySQL через DBI при подключении указываем сокет MySQL из XAMPP.

my $dbh = DBI->connect("DBI:mysql:database=$db_name;mysql_socket=/opt/lampp/var/mysql/mysql.sock",
 $db_user, $db_pwd);

Ubuntu. Apache. mod_rewrite.

Подключаем модуль mod_rewrite apache:
leon@leon-desktop:/opt/lampp/htdocs/allmuz/application/scripts$ sudo a2enmod rewrite

Редактируем конфигурацию хостов:
leon@leon-desktop:/opt/lampp/htdocs/allmuz/application/scripts$ sudo nano /etc/apache2/sites-available/default

А именно, изменяем параметр AllowOverride None на AllowOverride All

Перезапускаем apache:
leon@leon-desktop:/opt/lampp/htdocs/allmuz/application/scripts$ sudo /etc/init.d/apache2 restart

Perl. Потоки.

#!/usr/bin/perl -w
use strict;
use warnings;
use threads;
use threads::shared;


my $var: shared;
$var = 0;
my @threads;
for(1..10) {
    new threads(\&myThread, $_);
}

$_->join for threads->list;

sub myThread
{
    my $thrn = shift;
    printf "thread %d started at %s\n", $thrn, scalar localtime time;
    while($var < 100) {
        #printf "thread #%d: var=%d\n", $thrn, $var;
        $var++;
        sleep 1;
    }
    printf "thread %d stopped at %s\n", $thrn, scalar localtime time;
}


leon@leon-desktop:/opt/lampp/htdocs/allmuz/application/scripts$ ./autocomments.pl 
thread 1 started at Wed Aug 11 11:52:20 2010
thread 2 started at Wed Aug 11 11:52:20 2010
thread 3 started at Wed Aug 11 11:52:20 2010
thread 4 started at Wed Aug 11 11:52:20 2010
thread 5 started at Wed Aug 11 11:52:20 2010
thread 6 started at Wed Aug 11 11:52:20 2010
thread 7 started at Wed Aug 11 11:52:20 2010
thread 8 started at Wed Aug 11 11:52:20 2010
thread 9 started at Wed Aug 11 11:52:20 2010
thread 10 started at Wed Aug 11 11:52:20 2010
thread 1 stopped at Wed Aug 11 11:52:30 2010
thread 2 stopped at Wed Aug 11 11:52:30 2010
thread 3 stopped at Wed Aug 11 11:52:30 2010
thread 4 stopped at Wed Aug 11 11:52:30 2010
thread 5 stopped at Wed Aug 11 11:52:30 2010
thread 6 stopped at Wed Aug 11 11:52:30 2010
thread 7 stopped at Wed Aug 11 11:52:30 2010
thread 8 stopped at Wed Aug 11 11:52:30 2010
thread 9 stopped at Wed Aug 11 11:52:30 2010
thread 10 stopped at Wed Aug 11 11:52:30 2010

Можно видеть, что все выполнилось за 10 секунд.

trim для Perl

sub trim
{
  my ($str) = @_;
  $str =~ s/^\s+//;
  $str =~ s/\s+$//;
  return $str;
}

Perl. Чтение файла в массив.

open(FILE, '< /path/to/file'); 
my @myarr = <FILE>
close(FILE); 

Perl. Получение произвольного количества случайных элементов массива.

Что-то вроде array_rand для PHP: 

use List::Util qw/shuffle/;
my @pop = (1..100);
my $samples = 30;
my @sample = (shuffle(@pop))[0..$samples-1];
print "@sample";