http://www.perlmonks.org?node_id=977366


in reply to Re: Is there a way more easy?
in thread Is there a way more easy?

I've solved using this code:

#!/usr/bin/perl use strict; use warnings; use Algorithm::Combinatorics qw(variations_with_repetition); my @data = ('', 'a'..'z', 'A'..'Z','_'); my $iter = variations_with_repetition(\@data, 6); while (my $p = $iter->next) { my $plain = join '', values $p; print $plain,'.'; }
Thank you!

(($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print