strrstr / strristr

/**
 * Trouve la dernière occurrence dans une chaîne
 *
 * @param string $haystack      La chaîne d'entrée
 * @param mixed  $needle        Si needle n'est pas une chaîne, elle sera convertie en entier, et utilisée comme code ASCII du caractère correspondant
 * @param bool   $before_needle Si vaut TRUE, strrstr() retourne la partie de haystack avant la dernière occurrence de needle (needle étant exclus)
 *
 * @return mixed
 */
function strrstr($haystack, $needle, $before_needle = false)
{
    $haystack      = (string)$haystack;
    $before_needle = (bool)$before_needle;

    $pos = strrpos($haystack, $needle);

    if (!$before_needle) {
        $retval = substr($haystack, $pos);
    } else {
        $retval = substr($haystack, 0, $pos);
    }

    return $retval;
}

/**
 * Trouve la dernière occurrence dans une chaîne, de façon insensible à la casse
 *
 * @param string $haystack      La chaîne d'entrée
 * @param mixed  $needle        Si needle n'est pas une chaîne, elle sera convertie en entier, et utilisée comme code ASCII du caractère correspondant
 * @param bool   $before_needle Si vaut TRUE, strristr() retourne la partie de haystack avant la dernière occurrence de needle (needle étant exclus)
 *
 * @return mixed
 */
function strristr($haystack, $needle, $before_needle = false)
{
    $haystack      = (string)$haystack;
    $before_needle = (bool)$before_needle;

    $pos = strripos($haystack, $needle);

    if (!$before_needle) {
        $retval = substr($haystack, $pos);
    } else {
        $retval = substr($haystack, 0, $pos);
    }

    return $retval;
}