第8行缺少分号

CREATE OR REPLACE FUNCTION f_fixIP(f_ip IN VARCHAR(50))
RETURN VARCHAR(50)
AS
f_ret VARCHAR(16);
f_p VARCHAR(50);
f_ch VARCHAR(4);
BEGIN
f_ret := '';
f_p := RTRIM(f_ip);
WHILE f_p <> '' -- 将loop移走，修正语法
LOOP
set f_ch = SUBSTRING(f_p,1,1);
IF((f_ch >= '0' and f_ch <= '9') or f_ch='.') THEN
set f_ret = f_ret || f_ch;
END IF;
dbms_output.put_line('ip:' || f_p);
set f_p = SUBSTRING(f_p,2,len(f_p)-1);
END LOOP;
RETURN f_ret;
END;