使用PHP重新實現PHP指令碼引擎內建函數

// 實在無聊,突發奇想,想把PHP裡面部分已經提供封裝好的函數重新使用PHP實現一遍,
// 於是便有了下面的代碼主要實現了PHP中部分字串處理函數,同時實現了一些PHP中
// 沒有,但是同樣有作用的字串處理函數同樣的這些函數,也能夠使用其他語言來實
// 現,比如用C/VBScript/Perl等等,那麼你就能夠有一個自己的函數庫.
// 以下函數不一定能夠成功運行,只是為了學習而已。
//
// 假如無非凡聲明,全部是由於heiyeluren原創,要使用任何函數都請保留作者資訊


// {{{ strlen()
/**
* Count string length
*
* @param string $str need count length string variable
* @return int return count result
*/
function strlen1($str)
{
if ($str == '')
return 0;

$count = 0;
while (1)
{
if ($str[$count] != NULL)
{
$count ;
continue;
}
else
break;
}
return $count;
}
// }}}


// {{{ substr()
/**
* Get sub string
*
* @param string $str need get sub string variable
* @param int $start start get sub string
* @param int $length need get string length
* @return string return sub string
*/
function substr1($str, $start, $length=0)
{
if ($str == '')
return;
if ($start > strlen($str))
return;
if (($length != NULL) && ($start > 0) && ($length > strlen($str)-$start))
return;
if (($length != NULL) && ($start < 0) && ($length > strlen($str) $start))
return;

if ($length == NULL)
$length = (strlen($str) - $start);

if ($start < 0)
{
for ($i=(strlen($str) $start); $i<(strlen($str) $start $length); $i )
{
$substr .= $str[$i];
}
}

if ($length > 0)
{
for ($i=$start; $i<($start $length); $i )
{
$substr .= $str[$i];
}
}

if ($length < 0)
{
for ($i=$start; $i<(strlen($str) $length); $i )