[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

(已完成)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⑥

回复 1# wuzu007


grep "^[[:alnum:]]\{4,7\}\.com$" Old.txt | grep -v "^[[:alpha:]]\+\.com$" | grep -v "^[[:digit:]]\+\.com$" >New.txt
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 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. }
复制代码

TOP

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

回复 1# wuzu007

    mac自带perl否?

TOP

返回列表