perl-unicode

Re: Introduce new alias for GB 18030

2002-03-23 23:45:07
On 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/

Attachment: pgpWAcpY65HPX.pgp
Description: PGP signature

<Prev in Thread] Current Thread [Next in Thread>