Re: Is there a way more easy?

Algorithm::Combinatorics might help you ... the reference-section of the documentation gives you some background-reading. You may also check the other CPAN-modules containing the name combinatorics.

HTH, Rata

Comment on Re: Is there a way more easy?

Replies are listed 'Best First'.
Re^2: Is there a way more easy? by spadacciniweb (Curate) on Jun 20, 2012 at 14:35 UTC
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,'.'; }` [download] Thank you! (($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Is there a way more easy?
by spadacciniweb (Curate) on Jun 20, 2012 at 14:35 UTC

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,'.';
}
[download]

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

[reply]
[d/l]