If you can't get rid of the recursion, you could always tighten up the program. If you create a mapping of characters to their next character, look how short your final subroutine becomes:

#!/usr/bin/perl -w
use strict;

my $number = '000';
my %mapping;
@mapping{ 0..9,'a'..'z' } = ( 1..9,'a'..'z','0' );

do {
    increment( \$number );
    print "$number\n";
} until $number eq 'zzzzzzzzzzzzzzzz'; # or some other long string

sub increment {

    my ( $number_ref ) = @_;
    my @digits = split //, $$number_ref;

    unshift @digits, undef while @digits < 16;
    _increment_digit( \@digits, @digits - 1 );

    $$number_ref = join '', grep { defined } @digits;

}

sub _increment_digit {
    my ( $array_ref, $index ) = @_;
    $array_ref->[$index] ||= 0;
    $array_ref->[$index] = $mapping{ $array_ref->[$index] };
    _increment_digit( $array_ref, ($index - 1) ) if $array_ref->[$inde
+x] eq 'z';
}
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.