| | Первое я бы хотел спросить, насколько быстрей, чем пхп, работает Перл и стоит ли он того, чтоб переходить на него и есть ли у него функции для работы с изображениями...?
Второе, скажите пожалста, в чем я ошибся?::
<?
$tabsymbs = Array(
'10' => 'a',
'11' => 'b',
'12' => 'c',
'13' => 'd',
'14' => 'e',
'15' => 'f',
'16' => 'g',
'17' => 'h',
'18' => 'i',
'19' => 'j',
'20' => 'k',
'21' => 'l',
'22' => 'm',
'23' => 'n',
'24' => 'o',
'25' => 'p',
'26' => 'q',
'27' => 'r',
'28' => 's',
'29' => 't',
'30' => 'u',
'31' => 'v',
'32' => 'w',
'33' => 'x',
'34' => 'y',
'35' => 'z'
);
$img = imagecreate(200, 90);
$bg = imagecolorallocate($img, mt_rand(100, 255), mt_rand(150, 240), mt_rand(150, 240));
$strlenght = mt_rand(5, 8);
$str = '';
$rand = mt_rand(0, 35);
while(strlen($str) <= $strlenght){
if($rand < 10){
$str .= $rand;
}else{
$str .= strtr($rand, $tabsymbs);
}
$rand = mt_rand(0, 35);
}
$black = imagecolorallocatealpha($img, 0, 0, 0, 50);
//imagestring($img, 5, 25, 28, $str, $black);
$var = 0;
while($var <= $strlenght){
$str1[$var] = preg_replace('/(\w{'.$var.'})(\w{1}).*/', '\2', $str);
$var++;
}
$var = 0;
while($var <= $strlenght){
$coord_x = ($var = 0) ? (10 + mt_rand(-3, 6)) : ((23 * $var) + mt_rand(-4, 3));
imageTTFtext($img, 30, mt_rand(-25, 25), $coord_x, mt_rand(25, 40), $black, 'COLONNA.ttf', $str1[$var]);
$var++;
}
header('Content-Type: image/png');
imagepng($img);
?>
|
при выполнении говорит только то, что превышен лимит выполнения скрипта....(30 сек.)
щас всё работало, но я случайно выдернул вилку из розетки с сетевым фильтром))), после ребута чето нехочет пахать...
П.С. другие скрипты выполняются нормально
П.П.С. там вы увидили наверн регулярное выражение... я при помощи него и цикла, ложил каждый сгенерированый символ в массив, по отдельности, подскажите мож есть какая функция для подобных действий? explode и split вродь без первого аргумента неработают... | |
