bash

bash last day of month
$LASTDAY=`cal $MONTH $YEAR | grep . | fmt -1 | tail -1`


count files number, if "argument list too long"
# find . -name "*.php_expire" | wc -l

# find . -name "*.php_expire" | xargs rm

# touch -t MMDDhhmm date

# find . ! -newer date -name "*.php" | xargs rm

add to tar + gzip
# cd /dir1/dir2
# tar -czvf arcname.tgz dir3
extract
# cd /dir1/dir2
# tar -xzvf arcname.tgz

find file in date range ant tar
# find . -newer from_date ! -newer to_date | xargs tar -czvf arcname.tgz {}

file without comments and blank lines
#cat file | grep -v '^#' | sed '/^$/d'

FreeBSD alias

Как в FreeBSD добавить/убрать алиас для сетевого интерфейса Добавить: ifconfig fxp0 inet 192.168.1.1 netmask 255.255.255.255 alias Убрать: ifconfig fxp0 inet 192.168.1.1 netmask 255.255.255.255 -alias

Win7 login lang

Панель управления -- Язык и региональные стандарты -- Дополнительно -- Копировать параметр

Пределы восприятия звука

Пределы восприятия звука
дБ(А)	Краткое описание	Примечания
0	Нижний порог слышимости человека	Не слышно на любом расстоянии
<15	Звуки человеческого тела	Как правило, не слышно (дыхание, сердцебиение, переваривание пищи и т.д.)
15-20	Супербесшумный ПК без вентиляторов	Едва слышно
20-25	Тихий шёпот, едва слышный ПК	Очень тихо (уровень внешних шумов в студии звукозаписи)
25-30	Спальня ночью, очень тихий ПК	Тихо
30-45	Нешумный офис или библиотека, типичный ПК	Довольно слышно
50	Разговор на расстоянии 1 метра, шумный ПК	Отчётливо слышно
60	Ресторан или торговый центр, самый шумный ПК	Шумно
80	Оживлённая улица	Очень шумно
100	Машинный цех, печатный станок	Крайне шумно
120	Котельная, корабельное машинное отделение	Почти невыносимо
140	30 метров от реактивного двигателя при взлёте	Болевой порог

источник

10db normal breathing
20db mosquito, russling leaves
30db whisper
40db stream, refrigerator humming
50-60db normal conversation, laughter, quiet office.
70db hair dryer, vacume cleaner
75db dishwasher
80db garbage disposal, city traffic 
85-90db lawnmower,diesel truck at over 40mph
100db train, garbage truck
110db drill, power saw, jet flyover
120db thunderclap, dance clubs, sterios
130db jet takeoff, shotgun firing
110-140db rock concert
145db boom bass cars

Mysql query cache

Query Cache Configuration
site

За использование кеша запросов отвечают следующие конфигурационные переменные:

• query_cache_type = (ON, DEMAND, OFF) — определяет включено ли кеширование или нет(ON, OFF). При использовании DEMAND кешироваться будут только запросы, в которых есть директива SQL_CACHE;
• query_cache_size — размер кеша запросов. query_cache_size = 0 отключает использование кеша;
• query_cache_limit — размер максимальной выборки, хранимой в кеше;
• query_cache_min_res_unit — минимальный размер блока, хранимого в кеше;
• query_cache_wlock_invalidate — определяет будут ли данные браться из кеша, если таблица, к которым они относятся заблокирована на чтение.

SET GLOBAL query_cache_size = 10000000;
SHOW VARIABLES LIKE '%cache%';
SHOW GLOBAL STATUS LIKE 'Qcache%' ;

• Qcache_free_blocks показывает сколько свободных блоков есть в кеше;
• Qcache_total_blocks — количество занятых блоков;
• Qcache_free_memory говорит о том, сколько свободной памяти осталось в кеше;
• Qcache_hits — количество запросов, результаты которых были взяты из кеша;
• Qcache_inserts — количество запросов, которые были добавлены в кеш;
• Qcache_lowmem_prunes — количество запросов, которые были удалены из кеша из-за нехватки памяти;
• Qcache_not_cached — количество запросов, которые не были записаны в кеш из-за использования функций работы со временем и т. п.;
• Qcache_queries_in_cache — количество запросов, которые находятся в кеше.

Для дефрагментации кеша можно выполнить команду FLUSH QUERY CACHE. (FLUSH QUERY CACHE переносит все запросы, хранящиеся в кеше в его начало и помечает оставшуюся память как один свободный блок).
site

chmod

find . -type d -exec chmod 755 {} \;
This will recursively search your directory tree (starting at dir ‘dot’) and chmod 755 all directories only.

Similarly, the following will chmod all files only (and ignore the directories):
find . -type f -exec chmod 644 {} \;

source


Processing UTF-8 Files with Perl

use Encode;

open(IN, "<$ARGV[0]") or die "$!"; # Input as default encoding
my $file = do { local $/; }; # Read file contents into scalar
close(IN);
if ($file =~ /]+encoding[\s\x0d\x0a]*=[\s\x0d\x0a]*['"]utf-?8/i ||
$file =~ /]+charset[\s\x0d\x0a]*=[\s\x0d\x0a]*utf-?8/i) {
$file = decode('utf8', $file);
}

$file =~ s/(.)/asciiize($1)/eg; # Process by char

sub asciiize {
return $_[0] if (ord($_[0]) < 128); # ASCII
return sprintf('&#x%04X;', ord($_[0])); # Non-ASCII
}

print $file;


source: http://ripary.com/utf8.html