Re: incrementing mixed letters and numbers


We don't bite newbies here... much
	PerlMonks

Re: incrementing mixed letters and numbers

by Perlbotics (Archbishop)

on Aug 22, 2017 at 17:34 UTC ( [id://1197821]=note: print w/replies, xml )

Need Help??

in reply to incrementing mixed letters and numbers

Since glob has not been mentioned yet, here's another solution (TIMTOWTDI).

use strict;
use warnings;

my $start = 'zzy0';    #-- start including this 'number'
my $end   = 'zzz5';    #-- end   including this 'number'

my $set   = '{' . join(',', 0..9, 'a'..'z') . '}';

#-- max. range is '0000' .. 'zzzz'
for ( glob "$set$set$set$set" ) {
  print $_,"\n" if /$start/ .. /$end/;
}
[download]

Caveat: This approach is not efficient. It can consume lots of memory and time (filtering).