(已完成)100元写个文本的过滤

wuzu007

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

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⑥

Batcher

回复 1# wuzu007


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

523066680

use File::Slurp;
my @list = read_file( "src.txt" );
for my $e ( @list )
{
    if ( $e =~/^(.*)\.com$/m )
    {
        print $e if $1=~/(?=^.{4,7}$)(?=(?:.*?\d){1})(?=(?:.*?[a-z]){1})/i;
    }
}
复制代码

523066680

回复 1# wuzu007

    mac自带perl否？