匹配固定格式的数字

sunzhiguolu

有一些具有固定格式的数字, 如下:

1. 
   
2. 031-723-2328
   
3. 12345678
   
4. (234)-001-8932
   
5. 123-345-1234
   
6. 5761234
   
7. (234-777-1234

复制代码

条件:
1.> 长度为7的数字
2.> 由 3,3,4 长度组成, 并由 - 字符进行分割的
3.> 第一组数字由一对小括号包围起来的, 但是必须成对出现

要求的结果是:
031-723-2328
(234)-001-8932
123-345-1234
5761234

请问该如何匹配, 谢谢...

jason680

回复 1# sunzhiguolu

你都写完了，写出正则也没有问题才对
   

sunzhiguolu

回复 2# jason680
我写的是期望的结果啊,,,

   

sunzhiguolu

@jason680
之所以写的这么全, 下面有真相, 请看:

sunzhiguolu

回复 2# jason680
以上的问题中其实就差 => 处理过程
我想利用条件表达式进行处理, 但是就是写不出来. 不知道大神能否指点一下.

   

jason680

回复 5# sunzhiguolu

你不自已写出正则，如何能提高？

条件:
1.> 长度为7的数字
        \d{7}

2.> 由 3,3,4 长度组成, 并由 - 字符进行分割的
   

3.> 第一组数字由一对小括号包围起来的, 但是必须成对出现
   

sunzhiguolu

回复 6# jason680
使用条件表达式的方式, 如何弄啊, 您能展示个小例子吗?

1. ^(?:(?:\(\d{3}\)|\d{3})-)?\d{3}-?\d{4}$

复制代码

jason680

回复 7# sunzhiguolu

条件:
1.> 长度为7的数字
        \d{7}

2.> 由 3,3,4 长度组成, 并由 - 字符进行分割的
      \d{3}-\d{3}-\d{4}

3.> 第一组数字由一对小括号包围起来的, 但是必须成对出现
      [(]\d{3}[)]-\d{3}-\d{4}
      \(\d{3}\)-\d{3}-\d{4}


就这样,你要的结果...
其他自已想(这问题不再回帖),多看书---骆驼书
Here you are

$ perl -lane '{
  print if(
    m/^(
         \d{7}                    # xxxxxxx  (7 digits)
       | \d{3}-\d{3}-\d{4}        # xxx-xxx-xxxx
       | [(]\d{3}[)]-\d{3}-\d{4}  # (xxx)-xxx-xxxx
         )$ /x
  )
}' FILE
031-723-2328
(234)-001-8932
123-345-1234
5761234

sunzhiguolu

@jason680
我写的那个问题还是很多, 多谢大神指点. 谢谢!

小perl

自己多写多测试就会了、、