Board logo

标题: (已完成)100元写个文本的过滤 [打印本页]

作者: wuzu007    时间: 2022-3-17 09:24     标题: (已完成)100元写个文本的过滤

本帖最后由 wuzu007 于 2022-3-17 11:17 编辑

文本里面内容是这样的比如:

0037333.com
003939.net
00399.cn
003ab.com
tt3nb.com
004242.net
004646.net
a475h.com
adf1.com

就是说纯字母和数字的不要,只要字母和数字混合的4到7个字符过滤出来,并且尾巴是.com
上面过滤出来的结果是
003ab.com
tt3nb.com
a475h.com
adf1.com

我是mac系统如果能用mac写最好,实在不行那就PHP,我放服务器里面,我用网页打开的方式过滤也行。加我企鹅⑧⑦③⑨0⑥
作者: 523066680    时间: 2022-3-17 09:59

本帖最后由 523066680 于 2022-3-17 10:20 编辑

回复 1# wuzu007

    mac自带perl否?
作者: 523066680    时间: 2022-3-17 10:15

本帖最后由 523066680 于 2022-3-17 11:34 编辑
  1. use File::Slurp;
  2. my @list = read_file( "src.txt" );
  3. for my $e ( @list )
  4. {
  5.     if ( $e =~/^(.*)\.com$/m )
  6.     {
  7.         print $e if $1=~/(?=^.{4,7}$)(?=(?:.*?\d){1})(?=(?:.*?[a-z]){1})/i;
  8.     }
  9. }
复制代码

作者: Batcher    时间: 2022-3-17 10:41

回复 1# wuzu007


grep "^[[:alnum:]]\{4,7\}\.com$" Old.txt | grep -v "^[[:alpha:]]\+\.com$" | grep -v "^[[:digit:]]\+\.com$" >New.txt




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2