Re^2: Is there a way more easy?

[spadacciniweb]

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!