spadacciniweb has asked for the wisdom of the Perl Monks concerning the following question:
Is there a way more easy to write this code?
#!/usr/bin/perl use strict; use warnings; foreach my $char1 ('', 'a'..'z', 'A'..'Z', '_' ) { foreach my $char2 ('', 'a'..'z', 'A'..'Z', '_' ) { foreach my $char3 ('', 'a'..'z', 'A'..'Z', '_' ) { foreach my $char4 ('', 'a'..'z', 'A'..'Z', '_' ) { foreach my $char5 ('', 'a'..'z', 'A'..'Z', '_' ) { foreach my $char6 ('', 'a'..'z', 'A'..'Z', '_' ) { my $plain = $char1 . $char2 . $char3 . $char4 +. $char5. $char6; print $plain,"\n"; } } } } } }
I have tried Regexp::Genex but it seem not for me because the output are only a few $plain.
#!/usr/bin/perl use warnings; use strict; use Regexp::Genex qw(:all); my $regex = '\w{1,6}'; for my $plain ( strings($regex) ) { print $plain, "\n"; }
(($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Is there a way more easy?
by tobyink (Canon) on Jun 20, 2012 at 14:51 UTC | |
by spadacciniweb (Curate) on Jun 21, 2012 at 07:46 UTC | |
Re: Is there a way more easy?
by Ratazong (Monsignor) on Jun 20, 2012 at 14:11 UTC | |
by spadacciniweb (Curate) on Jun 20, 2012 at 14:35 UTC | |
Re: Is there a way more easy?
by martin (Friar) on Jun 21, 2012 at 12:46 UTC | |
by tye (Sage) on Jun 24, 2012 at 18:21 UTC | |
Re: Is there a way more easy?
by RichardK (Parson) on Jun 20, 2012 at 14:49 UTC | |
by spadacciniweb (Curate) on Jun 21, 2012 at 08:04 UTC | |
Re: Is there a way more easy?
by klekker (Pilgrim) on Jun 21, 2012 at 15:27 UTC | |
by tobyink (Canon) on Jun 24, 2012 at 16:28 UTC | |
Re: Is there a way more easy?
by Skeeve (Parson) on Jun 24, 2012 at 19:33 UTC | |
Re: Is there a way more easy?
by pvaldes (Chaplain) on Jun 20, 2012 at 16:31 UTC | |
by spadacciniweb (Curate) on Jun 21, 2012 at 07:48 UTC |
Back to
Seekers of Perl Wisdom