On Thu, Jun 08, 2006 at 05:56:13PM +0900, Dan Kogai wrote:
On Jun 08, 2006, at 17:34 , Yitzchak Scott-Thoennes wrote:
Which part should be fixed?
The limitation of the magic, namely....
The key part is that magical auto-increment is defined earlier as
only working for strings matching "/^[a-zA-Z]*[0-9]*\z/".
Which is described in "Auto-increment and Auto-decrement", though
"Range Operator" does mention.
perldoc perlop
The range operator (in list context) makes use of the
magical auto-
increment algorithm if the operands are strings.
This would make lawyers happy enough but not (Uni)?coders like
myself. With the advent of Unicode support more people would attempt
things like ("\N{alpha}" .. "\N{omega}") and wonder why it does not
work like ("a".."z"). So we should add something like;
=head2 CAVEAT
Note that the range operator cannot apply magic beyond C<[a-zA-Z0-9]
. Therefore
use charnames 'greek';
my @greek_small = ("\N{alpha}" .. "\N{omega}");
Does not work. If you want non-ascii ranges, try
my @greek_small = map { chr } ( ord("\N{alpha}") .. ord("\N
{omega}") );
On the other hand, ranges in regexp and C<tr///> works. You may
consider this inconsistent but range operator must accept variables
like <tt>($start .. $end)</tt> while character ranges in regexp is
constant.
Hmm, we don't seem to document even what something like "+" .. "-"
does. How does this look:
--- perl/pod/perlop.pod.orig 2006-05-15 09:48:33.000000000 -0700
+++ perl/pod/perlop.pod 2006-06-08 02:30:45.500000000 -0700
@@ -648,10 +648,22 @@
@z2 = ('01' .. '31'); print $z2[$mday];
-to get dates with leading zeros. If the final value specified is not
-in the sequence that the magical increment would produce, the sequence
-goes until the next value would be longer than the final value
-specified.
+to get dates with leading zeros.
+
+If the final value specified is not in the sequence that the magical
+increment would produce, the sequence goes until the next value would
+be longer than the final value specified.
+
+If the initial value specified isn't part of a magical increment
+sequence (that is, matching "/^[a-zA-Z]*[0-9]*\z/"), only the initial
+value will be returned. So the following will only return an alpha:
+
+ use charnames 'greek';
+ my @greek_small = ("\N{alpha}" .. "\N{omega}");
+
+Use this instead:
+
+ my @greek_small = map { chr } ( ord("\N{alpha}") .. ord("\N{omega}") );
Because each operand is evaluated in integer form, C<2.18 .. 3.14> will
return two elements in list context.