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