523066680

回复 1# wuzu007

    mac自带perl否？

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;
    }
}
复制代码