Hello,
I found a typo in perlfaq6.
Here is a patch against its revision 1.22.
--- perlfaq6.pod~ Wed May 05 10:47:36 2004
+++ perlfaq6.pod Wed May 05 10:49:12 2004
@@ -748,14 +748,14 @@
Goldberg:
$martian =~ m/
- (?!<[A-Z])
+ (?<![A-Z])
(?:[A-Z][A-Z])*?
GX
/x;
This succeeds if the "martian" character GX is in the string, and fails
-otherwise. If you don't like using (?!<), you can replace (?!<[A-Z])
-with (?:^|[^A-Z]).
+otherwise. If you don't like using (?<!), a zero-width negative
+look-behind assertion, you can replace (?<![A-Z]) with (?:^|[^A-Z]).
It does have the drawback of putting the wrong thing in $-[0] and $+[0],
but this usually can be worked around.
#End of patch
Thank you.
SADAHIRO Tomoyuki
