MySQL IP字符串转数字存储过程

DELIMITER $$

USE `db_im`$$

DROP  PROCEDURE  IF  EXISTS `P_bi_parasIP`$$

CREATE DEFINER =`root`@`localhost`  PROCEDURE `P_bi_parasIP`(
     IN Pi_ipstr  VARCHAR( 50),
    OUT Po_int1  INT,
    OUT Po_int2  INT,
    OUT Po_int3  INT,
    OUT Po_int4  INT,
    OUT Po_ret  INT
    )
BEGIN
     DECLARE v_strtemp  VARCHAR( 50);
     DECLARE v_pos  INT;
     DECLARE v_sub  VARCHAR( 10);
     DECLARE v_tail  VARCHAR( 50);
     DECLARE v_val  INT;
    
    
     SET v_pos  = 0;
         SET Po_ret = 1;
     SET v_strtemp  =TRIM(Pi_ipstr);
    
    P: BEGIN
     /* 192.168.1.1 */
     SET v_pos =INSTR(v_strtemp, ' . ');
    
     IF(v_pos > 0  AND LENGTH(v_strtemp) >v_pos) THEN
        SET v_sub = SUBSTRING(v_strtemp, 1,v_pos - 1);
        SET v_tail  = SUBSTRING(v_strtemp,v_pos + 1);
        SET v_val  =v_sub + 0;
       
        IF((v_sub REGEXP  ' ^[0-9]*$ ')  = 0) THEN
           SET Po_ret  =- 1;
          LEAVE P;
        ELSE
           SET Po_int1 =v_val;
        END  IF;    
     ELSE
        SET Po_ret  =- 1;
       LEAVE P;
     END  IF;
    
     /*  168.1.1 */
         SET v_pos =INSTR(v_tail, ' . ');
    
     IF(v_pos > 0  AND  LENGTH(v_tail) >v_pos) THEN
        SET v_sub = SUBSTRING(v_tail, 1,v_pos - 1);
        SET v_tail  = SUBSTRING(v_tail,v_pos + 1);
        SET v_val  =v_sub + 0;       
       
        IF((v_sub REGEXP  ' ^[0-9]*$ ')  = 0) THEN
           SET Po_ret  =- 1;
          LEAVE P;
        ELSE
           SET Po_int2 =v_val;
        END  IF;    
     ELSE
        SET Po_ret  =- 1;
       LEAVE P;
     END  IF;
    

    
     /* 1.1 */
     SET v_pos =INSTR(v_tail, ' . ');
    
     IF(v_pos > 0  AND  LENGTH(v_tail) >v_pos) THEN
        SET v_sub = SUBSTRING(v_tail, 1,v_pos - 1);
        SET v_tail  = SUBSTRING(v_tail,v_pos + 1);
        SET v_val  =v_sub + 0;
       
        IF((v_sub REGEXP  ' ^[0-9]*$ ')  = 0) THEN
           SET Po_ret  =- 1;
          LEAVE P;
        ELSE
           SET Po_int3 =v_val;
        END  IF;    
     ELSE
        SET Po_ret  =- 1;
       LEAVE P;
     END  IF;
    
         SET v_val  =v_tail + 0;
       
     IF((v_tail REGEXP  ' ^[0-9]*$ ')  = 0) THEN
        SET Po_ret  =- 1;
       LEAVE P;
     ELSE
        SET Po_int4 =v_val;
     END  IF;
    
            SET Po_ret = 1;    
            
     END P;
     END$$

DELIMITER ;