[FWP] string increment

[Arjen Wiersma <arjen@wiersma.org>]

Hey people,

This nite someone came into #perl on DALnet and asked about a string
increment routine. He wanted to do the following:
aaaa
aaab
aaac
...
zzzz

I came up with the following:

perl -e '@a=qw(a a a a); for($i=$#a;-1 < $i; $i--) {
for($x=0;$x<25;$x++) {$b = ord($a[$i]); $a[$i] = chr(++$b); print
@a; print "\n"; } }'

since it's 5 am and my mind went to bed at about 3 this morning I'm sure
there are faster ways of doing this.. maybe even get caps into it too..

Any ideas?

Arjen Wiersma
arjen@wiermsa.org



==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe