判断email 输入是否合法

最新推荐文章于 2022-05-06 19:10:35 发布
最新推荐文章于 2022-05-06 19:10:35 发布
阅读量1.4k 收藏
点赞数
分类专栏： 优秀代码
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/kangqianglong/article/details/60578779
版权
PROCEDURE check_client_email(p_check_char IN VARCHAR2,
                               p_sign       OUT VARCHAR2,
                               p_message    OUT VARCHAR2) IS
    v_email      VARCHAR2(1000);
    v_singlechar VARCHAR2(3);


    v_err_code VARCHAR2(10);
    v_prompt   VARCHAR2(1000);
  BEGIN
    p_sign := 'N';


    --不区分大小写，全部换成小写
    v_email := LOWER(p_check_char);
    v_email := NVL(v_email, '*');


    --IF LENGTH(v_email) >= 6 THEN
    --检查邮件地址中是否有“@”和“.”两个关键字符
    IF INSTR(v_email, '@') = 0 OR INSTR(v_email, '.') = 0 THEN
      p_sign    := 'N';
      p_message := '录入的EMAIL不规范，EMAIL未含有“@”和“.”两个关键字符';
      RETURN;
    END IF;


    --检查：
    --1、是否出现了多个“@”符号
    --2、检查“@”符号是否在开头和结尾
    --3、“.”符号在“@”符号之前的部分及“@”符号之后的部分，均不能作为开始或结尾符
    --4、“@”符号后的部分，点号至少出现一次，且不能连续出现
    IF INSTR(v_email, '@', INSTR(v_email, '@') + 1) <> 0 OR
       INSTR(v_email, '@') = 1 OR INSTR(v_email, '@') = LENGTH(v_email) OR
       INSTR((SUBSTR(v_email, 1, INSTR(v_email, '@') - 1)), '.') = 1 OR
       INSTR(SUBSTR(v_email, 1, INSTR(v_email, '@') - 1), '.', -1) =
       LENGTH(SUBSTR(v_email, 1, INSTR(v_email, '@') - 1)) OR
       INSTR((SUBSTR(v_email, INSTR(v_email, '@') + 1)), '.') = 1 OR
       INSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1), '.', -1) =
       LENGTH((SUBSTR(v_email, INSTR(v_email, '@') + 1))) OR
       INSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1), '.') = 0 OR
       INSTR((SUBSTR(v_email, INSTR(v_email, '@') + 1)), '..') > 0 THEN
      p_sign    := 'N';
      p_message := '录入的EMAIL不规范';
      RETURN;
    END IF;


    --A段只能由字母、数字、下划线、中划线和点号组成
    FOR i IN 1 .. LENGTH(SUBSTR(v_email, 1, INSTR(v_email, '@') - 1)) LOOP
      v_singlechar := SUBSTR((SUBSTR(v_email, 1, INSTR(v_email, '@') - 1)),
                             i,
                             1);


      IF v_singlechar NOT IN ('_',
                              '-',
                              '.',
                              '0',
                              '1',
                              '2',
                              '3',
                              '4',
                              '5',
                              '6',
                              '7',
                              '8',
                              '9',
                              'a',
                              'b',
                              'c',
                              'd',
                              'e',
                              'f',
                              'g',
                              'h',
                              'i',
                              'j',
                              'k',
                              'l',
                              'm',
                              'n',
                              'o',
                              'p',
                              'q',
                              'r',
                              's',
                              't',
                              'u',
                              'v',
                              'w',
                              'x',
                              'y',
                              'z') THEN
        p_sign    := 'N';
        p_message := '录入的EMAIL不规范';
        RETURN;
      END IF;
    END LOOP;


    --B、C段开头只能为字母或数字
    IF SUBSTR(SUBSTR(v_email,
                     INSTR(v_email, '@') + 1,
                     INSTR(v_email, '.') - 1 - INSTR(v_email, '@')),
              1,
              1) NOT IN ('0',
                         '1',
                         '2',
                         '3',
                         '4',
                         '5',
                         '6',
                         '7',
                         '8',
                         '9',
                         'a',
                         'b',
                         'c',
                         'd',
                         'e',
                         'f',
                         'g',
                         'h',
                         'i',
                         'j',
                         'k',
                         'l',
                         'm',
                         'n',
                         'o',
                         'p',
                         'q',
                         'r',
                         's',
                         't',
                         'u',
                         'v',
                         'w',
                         'x',
                         'y',
                         'z') OR
       SUBSTR(SUBSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1),
                     INSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1), '.') + 1),
              1,
              1) NOT IN ('0',
                         '1',
                         '2',
                         '3',
                         '4',
                         '5',
                         '6',
                         '7',
                         '8',
                         '9',
                         'a',
                         'b',
                         'c',
                         'd',
                         'e',
                         'f',
                         'g',
                         'h',
                         'i',
                         'j',
                         'k',
                         'l',
                         'm',
                         'n',
                         'o',
                         'p',
                         'q',
                         'r',
                         's',
                         't',
                         'u',
                         'v',
                         'w',
                         'x',
                         'y',
                         'z') THEN
      p_sign    := 'N';
      p_message := '录入的EMAIL不规范';
      RETURN;
    END IF;


    --B段只能由字母、数字、下划线、中划线和点号组成
    IF LENGTH(SUBSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1),
                     1,
                     INSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1), '.') - 1)) > 1 THEN
      FOR i IN 2 .. LENGTH(SUBSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1),
                                  1,
                                  INSTR(SUBSTR(v_email,
                                               INSTR(v_email, '@') + 1),
                                        '.') - 1)) LOOP
        v_singlechar := SUBSTR(SUBSTR(SUBSTR(v_email,
                                             INSTR(v_email, '@') + 1),
                                      1,
                                      INSTR(SUBSTR(v_email,
                                                   INSTR(v_email, '@') + 1),
                                            '.') - 1),
                               i,
                               1);


        IF v_singlechar NOT IN ('_',
                                '-',
                                '.',
                                '0',
                                '1',
                                '2',
                                '3',
                                '4',
                                '5',
                                '6',
                                '7',
                                '8',
                                '9',
                                'a',
                                'b',
                                'c',
                                'd',
                                'e',
                                'f',
                                'g',
                                'h',
                                'i',
                                'j',
                                'k',
                                'l',
                                'm',
                                'n',
                                'o',
                                'p',
                                'q',
                                'r',
                                's',
                                't',
                                'u',
                                'v',
                                'w',
                                'x',
                                'y',
                                'z') THEN
          p_sign    := 'N';
          p_message := '录入的EMAIL不规范';
          RETURN;
        END IF;
      END LOOP;
    END IF;


    --C段只能由字母、数字、下划线、中划线和点号组成
    IF LENGTH(SUBSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1),
                     INSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1), '.') + 1)) > 1 THEN
      FOR i IN 2 .. LENGTH(SUBSTR(SUBSTR(v_email, INSTR(v_email, '@') + 1),
                                  INSTR(SUBSTR(v_email,
                                               INSTR(v_email, '@') + 1),
                                        '.') + 1)) LOOP
        v_singlechar := SUBSTR(SUBSTR(SUBSTR(v_email,
                                             INSTR(v_email, '@') + 1),
                                      INSTR(SUBSTR(v_email,
                                                   INSTR(v_email, '@') + 1),
                                            '.') + 1),
                               i,
                               1);


        IF v_singlechar NOT IN ('_',
                                '-',
                                '.',
                                '0',
                                '1',
                                '2',
                                '3',
                                '4',
                                '5',
                                '6',
                                '7',
                                '8',
                                '9',
                                'a',
                                'b',
                                'c',
                                'd',
                                'e',
                                'f',
                                'g',
                                'h',
                                'i',
                                'j',
                                'k',
                                'l',
                                'm',
                                'n',
                                'o',
                                'p',
                                'q',
                                'r',
                                's',
                                't',
                                'u',
                                'v',
                                'w',
                                'x',
                                'y',
                                'z') THEN
          p_sign    := 'N';
          p_message := '录入的EMAIL不规范';
          RETURN;
        END IF;
      END LOOP;
    END IF;


    p_sign    := 'Y';
    p_message := '校验成功';
  EXCEPTION
    WHEN OTHERS THEN
      p_sign    := 'E';
      p_message := SUBSTRB('校验EMAIL信息' || p_check_char || '时异常：' || SQLERRM,
                           1,
                           300);
      -- Logging the error
      v_err_code := NULL;
      pub_error_handle.exception_no_raise('l_pub_public_biz.check_client_email',
                                          v_err_code,
                                          p_message,
                                          v_prompt);
  END check_client_email;
Java不是C
关注
专栏目录
c#判断email地址是否为合法
09-01
6. 检查字符串是否以`@sina.com`结尾，如果满足所有条件，说明输入的地址可能是合法的。 需要注意的是，这个简单的验证方法并不完全符合RFC 5322定义的电子邮件地址标准，它可能无法处理某些合法但非典型的电子邮件...
正则表达式简单的检查输入email是否合法程序
10-30
正则表达式简单的检查输入email是否合法程序 正则表达式简单的检查输入email是否合法程序是使用正则表达式来验证用户输入的email地址是否合法的程序。下面是该程序的详细解释： 函数定义： 该程序定义了一个名为...
输入邮箱判断邮箱是否合法
AHincsdn的博客
10-25 8330
传入邮箱判断是否合法 1：首先邮箱要有@符号 2： 里面只能又一个@符号 3： 邮箱里面有’ .’ 4: @字符必须在’.‘之前 5： @字符则必须在输入字符串的第一位； 6：’.'不能出现在最后一位 7：@**.**不能在一起连着` 1 public static boolean youxainghefa(String youxiang){ if(youxiang.indexOf("@")...
判断是否是正确的EMAIL格式
谭洪星
07-04 6443
function isEmail (s)  //判断是否是正确的EMAIL格式{  if (isEmpty(s))  {    window.alert("输入的E-mail地址不能为空，请输入");     return false;  }  if (isWhitespace(s))  {    window.alert("输入的E-mail地址中不能包含空格符，请重新输入");     ret
email的判断
ziyouhuxi0的专栏
11-03 573
function ismail(mail){return(new RegExp(/^/w+((-/w+)|(/./w+))*/@[A-Za-z0-9]+((/.|-)[A-Za-z0-9]+)*/.[A-Za-z0-9]+$/).test(mail));} 
判断E-Mail的合法性
降龙十八炒
02-26 3707
unit mainunit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Label1: TLabel;    Edit1: TEdit;    Butt
判断Email的合法性【JavaScript】！
Kevin的程序人生
11-18 599
function   CheckEmail(email)   //给一个地址   {             var   pattern   =   /^[_/.0-9a-z-]+@([0-9a-z][0-9a-z-]+/.)+[a-z]{2,3}$/;             if(!pattern.test(str)){         alert("请输入正确的em
正则表达式检测用户输入的email地址是否合法
10-26
函数内部定义了一个正则表达式re，并使用正则表达式的test方法来判断输入的email地址是否与模式匹配。 具体到正则表达式的细节，正则表达式如下： ```regex /^(([^()[\]\\.,;:\s@\"]+(\.[^()[\]\\.,;:\s@\"]+)*)|(\...
C#判断是否为合法的email地址
12-22
在C#编程中，验证一个字符串是否为合法的电子邮件地址是一项常见的任务，这涉及到对字符串格式的严格检查。电子邮件地址的格式通常遵循特定的规则，包括一个或多个由点分隔的部分，以及一个特定的域名后缀。在这个...
检查输入参数是否为合法的email地址
08-13 1182
function CheckEmail(str){     var CHAR_LETTER_NUMERIC=1;     var CHAR_UNDERLINE=2;     var CHAR_DOT=3;     var CHAR_AT=4;     var CHAR_DIVIDE=5;     var CHAR_END=6;     var CHAR_OTHER=7;     var DIV_C...
正则判断email的合法性方法
random496的专栏
04-18 797
public static boolean isEmail(String email) {         String reg = "^([a-zA-Z0-9_\\-\\.]+)@((\\[[0-9]{1,3}\\.[0-9]{1,3}\\.[0-9]{1,3}\\.)|(([a-zA-Z0-9\\-]+\\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\\]?)$";
用正则判断所输入的Email是否合法
苦行僧
01-09 518
script language="Javascript">function form1_onsubmit(){s=document.form1.email.value        var regu = "^(([0-9a-zA-Z]+)|([0-9a-zA-Z]+[_.0-9a-zA-Z-]*[0-9a-zA-Z]+))@([a-zA-Z0-9-]+[.])+([a-zA-Z]{2}.Net
判断输入的EMAIL地址是否合法
世间的轮回总是悲喜难捉摸
08-28 845
/*判断输入的EMAIL地址是否合法*/function isValidEmail( str ){    if (str.indexOf ('@',0) == -1 || str.indexOf ('.',0) == -1)    {        return false;    }    else        return true;}
判断输入的邮箱地址是否合法_php验证邮箱是否合格的方法
weixin_39534759的博客
12-05 853
网站的注册中一般都需要填写邮箱地址，以便用户忘记密码或其它通知时，可以通过系统发送邮件的形式来通知用户，如果网站没有做好邮件地址的检测工作，可能会对一些业务产生影响，今天我们就来说一说，在php中如何验证邮箱地址格式是否合格的方法php利用 filter_var() 验证邮箱地址filter_var()：函数可以通过指定的过滤器来过滤变量。示例1：$email = 'admin@feiniaomy...
编写Java程序，判断一个email地址是否合法
qq_44758926的博客
07-01 5842
编写Java程序，判断一个email地址是否合法（提示：只需要判断@和.即可） 源代码： package com.lzg.class4; public class Demo03 { public static void main(String[]args){ String email="711026978@qq.com"; System.out.println(email+":"+(validate(email)?"Email地址合法":"Email地址不合法")); } p
判断字符串是否是合法的EMail
zgqtxwd的专栏
05-01 336
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
编写程序，校验键盘录入的电子邮箱是否合法，并测试。
dayichengxuyuan的博客
05-06 1428
python编写程序，校验键盘录入的电子邮箱是否合法，并测试。 def check_email(email): postfix = email[-4:] for i in email: if len(email)>10 and i == '@' and postfix == '.com' and i!=' ': return True if i.isalpha() == False and i.isdigit() == Fal
编写程序检查用户注册的电子邮箱是否合法。（原创分享）
weixin_69152476的博客
04-07 1472
要求如下： （1）电子邮箱的字符数必须在10个字符以上# （2）有且仅有1个@，且@不打头，不结尾# （3）至少有1个“.”，且“.”在@后面一个字符之后，且“.”不能打头和结尾 （4）在电子邮箱格式正确情况下，输出邮箱的“用户名”和“域名” email=input('请输入邮箱:') if len(email)<10: print('电子邮箱的字符数必须在10个字符以上') elif email.count('@')!=1 or email.find('@')==0 or email.f
用正则表达式来判断E-mail地址是否合法
热门推荐
少年一贯快马扬帆，道阻且长不转弯； 要盛大，要绚烂，要哗然； 要用理想的泰坦尼克，去撞现实的冰川； 要当烧赤壁的风，而非借鉴草船； 要为了一片海，就肯翻万山。
09-25 3万+
用正则表达式来判断E-mail地址是否合法 通常情况下E-mail的格式为：X@X.com.cn X:表示任意的一个或者多个字符； \\w : 匹配任意字符 + ： 表示一次或者多次 (): 可省略 \\w{2,3} : 任意字符出现2-3次 package com.work; /** * @author: By yangbocsu * @date: 2021/9/25 10:57 * @description: */ public class Judge { public stati
判断用户输入的Email地址是否正确，如果正确的话，获取Email中的用户名和域名。 说明：一个合法的Email地址中，有且只能有一个“@”字符，@字符左侧内容是用户名，@字符右侧字内容为域名。 合法的Email地址的标准： 1. @不能是第1个字符 2. 有且仅有一个@字符
最新发布
06-13
判断用户输入的Email地址是否正确，可以使用正则表达式进行匹配，以下是一个简单的示例代码： ```python import re def check_email(email): # 定义正则表达式 pattern = r'^[a-zA-Z0-9_-]+@[a-zA-Z0-9_-]+(\.[a...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值