![]() |
perl-unicode
|
Re: Introduce new alias for GB 180302002-03-23 23:45:07On Sun, Mar 24, 2002 at 03:29:23PM +0900, Dan Kogai wrote: define_alias( qr/^GB(?:\s|-)?(.+)/i => '"gb$1"' ); to deobfuscate a little: define_alias( qr/^GB[- ]?(\d+)$/i => '"gb$1"' ); this is because \s is more than ' ', and 'GB-K' or 'GB 12345-blah' are both invalid. /Autrijus/
|
|