Re^3: Generate unique ids of maximum length


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^3: Generate unique ids of maximum length

by ikegami (Patriarch)

on Apr 13, 2010 at 15:05 UTC ( [id://834509]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Generate unique ids of maximum length
in thread Generate unique ids of maximum length

To shorten "A2990_duallayerA_1" when "A2990_duallayer_1" is also present would require removing from the middle of the word, and that goes against your examples. You didn't specify your spec, so I had to guess a lot.

To handle this case, you could consider a lowercase followed by an uppercase to be a word break. Change

            if ($key =~ /^[a-zA-Z]\z/) {
[download]

            if (  $key =~ /^[a-z]\z/
               || $key =~ /^[A-Z]\z/ && $flux !~ /[a-z]\z/
            ) {
[download]

You get:

A2990_duA_1
A2990_du_1
A2990_du_2
A2990_du_3
A2990_du_4
A2990_du_5
A2990_du_6
A2990_du_7
A2990_du_8
A2990_du_9
A2990_du_10
LXP_01
LXP_02
...
[download]

Fixed in original code.