[Sommaire] [Imprimer]

   1  <?php
   2  // +----------------------------------------------------------------------+

   3  // | PHP Version 4                                                        |

   4  // +----------------------------------------------------------------------+

   5  // | Copyright (c) 1997-2004 The PHP Group                                |

   6  // +----------------------------------------------------------------------+

   7  // | This source file is subject to version 3.0 of the PHP license,       |

   8  // | that is bundled with this package in the file LICENSE, and is        |

   9  // | available at through the world-wide-web at                           |

  10  // | http://www.php.net/license/3_0.txt.                                  |

  11  // | If you did not receive a copy of the PHP license and are unable to   |

  12  // | obtain it through the world-wide-web, please send a note to          |

  13  // | license@php.net so we can mail you a copy immediately.               |

  14  // +----------------------------------------------------------------------+

  15  // | Authors: Stephan Schmidt <schst@php.net>                             |

  16  // +----------------------------------------------------------------------+

  17  //

  18  // $Id: strpbrk.php,v 1.4 2005/01/26 04:55:13 aidan Exp $

  19  
  20  
  21  /**

  22   * Replace strpbrk()

  23   *

  24   * @category    PHP

  25   * @package     PHP_Compat

  26   * @link        http://php.net/function.strpbrk

  27   * @author      Stephan Schmidt <schst@php.net>

  28   * @version     $Revision: 1.4 $

  29   * @since       PHP 5

  30   * @require     PHP 4.0.0 (user_error)

  31   */
  32  if (!function_exists('strpbrk')) {
  33      function strpbrk($haystack, $char_list)
  34      {
  35          if (!is_scalar($haystack)) {
  36              user_error('strpbrk() expects parameter 1 to be string, ' .
  37                  gettype($haystack) . ' given', E_USER_WARNING);
  38              return false;
  39          }
  40  
  41          if (!is_scalar($char_list)) {
  42              user_error('strpbrk() expects parameter 2 to be scalar, ' .
  43                  gettype($needle) . ' given', E_USER_WARNING);
  44              return false;
  45          }
  46  
  47          $haystack  = (string) $haystack;
  48          $char_list = (string) $char_list;
  49  
  50          $len = strlen($haystack);
  51          for ($i = 0; $i < $len; $i++) {
  52              $char = substr($haystack, $i, 1);
  53              if (strpos($char_list, $char) === false) {
  54                  continue;
  55              }
  56              return substr($haystack, $i);
  57          }
  58  
  59          return false;
  60      }
  61  }
  62  
  63  ?>