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

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]
      You're right! Fixed in an update...
[reply]

In Section Seekers of Perl Wisdom