next »

[perl8user]

Hi,
  Does anyone know how to get the alpha-numeric numbering scheme in perl ?
For example the
numberic        => 0,1,2,...9,10,11,12,...99,100,...   # $x = 0;$x++;
lower-alpha     => a,b,c,...z,aa,ab,ac,...zz,aaa,...   # $x = "a";$x++;
upper-alpha     => A,B,C,..,Z,AA,AB,AC,...ZZ,AAA,...   # $x = "A";$x++;
lower-alpha-num => a,b,c,...z,0,1,2,3,...9,aa,ab,ac,...zz,10,11,12,...99,aaa,...   # ?
upper-alpha-num => A,B,C,..,Z,0,1,2,3,...9,AA,AB,AC,...ZZ,10,11,12,...99,AAA,...   # ?

cvv3@yahoo.com

[dirk]

Hi perl8user,

I have found another interesting usage of the magical autoincrement operator:

Code:

$x = 'a0';

for ( $i=1; $i<=100; $i++ ) {
    print $x++ . "\n";
}

Output: a0 a1 a2 a3 a4 a5 a6 a7 a8 ... j3 j4 j5 j6 j7 j8 j9 k0

Anyway, that doesn't answer your question.

I don't think that lower-alpha-num and upper-alpha-num are possible using a simple syntax.

Dirk

[Bompa]

sorry, way over my head.