Re: UK postcode regex

in reply to UK postcode regex

#!/usr/bin/perl -l

$zipadidoda = 'le12 ogx';

print "In: $zipadidoda";
if( $zipadidoda =~ s/^([A-Z]{1,2}\d{1,2}[A-Z]?)\s?(O|\d)([A-Z]{2})$/uc
+("$1 ".(0+$2).$3)/ie ) {
        print "Out: $zipadidoda";
} else {
        print "Invalid zipcode";
}
[download]

You wanted a single re, so you got one!

Or is the 'e' modified considered cheating?

Update: removed redundant quotes

Update: and fixed the space after a tip from ww

Comment on Re: UK postcode regex Download Code

Replies are listed 'Best First'.
Re^2: UK postcode regex by Roy Johnson (Monsignor) on Apr 21, 2005 at 14:10 UTC
A cheat that lets you avoid the /e cheat: `s/^([A-Z]{1,2}\d{1,2}[A-Z]?)\s?(O\|\d)([A-Z]{2})$/\U$1 ${\(0+$2)}$3/i` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^2: UK postcode regex by ww (Archbishop) on Apr 21, 2005 at 15:35 UTC
Gilimanjaro: your regex strips the space between segment_one and the last_three, if one exists, whereas OP sought to insert one, if there was no space before \d[A-Za-z]{2}	[reply]
Re^3: UK postcode regex by Gilimanjaro (Hermit) on Apr 22, 2005 at 18:11 UTC
You're right! Fixed in an update...	[reply]

In Section Seekers of Perl Wisdom