Re^2: Generate unique ids of maximum length


Perl: the Markov chain saw
	PerlMonks

Re^2: Generate unique ids of maximum length

by choroba (Cardinal)

on Apr 13, 2010 at 12:24 UTC ( [id://834478]=note: print w/replies, xml )

Need Help??

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

However, A2990_duallayerA_1 is not shortened in any way... Nevertheless, nice code. Some comments would still be helpful for faster understanding.

Comment on Re^2: Generate unique ids of maximum length Download Code

Replies are listed 'Best First'.

Re^3: Generate unique ids of maximum length
by ikegami (Patriarch) on Apr 13, 2010 at 15:05 UTC

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.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom