perl trim
sub trim { my($string)=$_[0]; if(exists $_[1]){$reg=$_[1];}else{$reg='\s';} for ($string) { s/^$reg+//; s/$reg+$//; } return $string; } # Example trim($text); # Example trim($text,"\|"); |
Массовая замена текста в файлах
Причиной поиска решения массовой замены стало, лечение кривых рук некоторых программистов не желающих использовать переменные, а пишут прямые пути в файлах, да еще и виндовые пути =(
один slash «\» на «\\\\\\\» 7 в примере экранируются два слэша и того 14
slawka@slawka-book:~/tmp/Anton$ find ./ -name "*.php" | \ awk '{system("cat "$1" | sed -e \"s%D:\\\\\\\\\\\\\\Public\\\\\\\\\\\\\\VHosts\\\\\\\\\\\\\\nstali.ru\\\\\\\\\\\\\\httpdocs\\\\\\\\\\\\\\news_en\\\\\\\\\\\\\\mainblogs.php%/home/nstali.ru/httpdocs/news-en/mainblogs.php%\" > _tmp && cat _tmp > "$1"")}' |
PHP Fatal error: Call to undefined function imagerotate() debian
Столкнулся с проблемой отсутствие в сборке debian функции imagerotate().
Выкладываю пример решения данной проблемы на примере решения для Not Captcha
Читать далее
PHP Конвертер win-1251 в utf-8
Конвертер кодировки cp1251 в UTF8 работает 100%
function win2utf($s) { $t=""; for($i=0, $m=strlen($s); $i< $m; $i++) { $c=ord($s[$i]); if ($c<=127) {$t.=chr($c); continue; } if ($c>=192 && $c< =207) {$t.=chr(208).chr($c-48); continue; } if ($c>=208 && $c< =239) {$t.=chr(208).chr($c-48); continue; } if ($c>=240 && $c< =255) {$t.=chr(209).chr($c-112); continue; } if ($c==184) { $t.=chr(209).chr(145); continue; }; if ($c==168) { $t.=chr(208).chr(129); continue; }; } return $t; } |
Конвертер секунд в дни, часы, минуты и обратно.
Онлайн конвертер секунд в дни, часы и минуты.
Частенько приходится вводить время в секундах, хорошо когда оно стандартное, если нет.
Вот набросал быстренько конвертер считает и наоборот.
Читать далее
Скрипт perl ip калькулятор
Скрипт perl ip калькулятор, добавил возможность ввода маски вида /23.
./ipcalc.pl 10.2.2.1 /23
Network mask : 255.255.254.0
Network address : 10.2.2.0
Broadcast address: 10.2.3.255
Читать далее
Комментарии