Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^2: need regular expression

by Corion (Patriarch)
on Nov 02, 2005 at 08:12 UTC ( [id://504862]=note: print w/replies, xml ) Need Help??


in reply to Re: need regular expression
in thread need regular expression

That one won't promote single-digit numbers to double-digit numbers.

s/(\d?\d)(-\d?\d)-(\d?\d)/(2000+$1).sprintf("%02g", $2).sprintf("%02g"
+,$3)/eg

[download]

could do it, but that's similarly untested :-)

Replies are listed 'Best First'.
Re^3: need regular expression
by tilly (Archbishop) on Nov 02, 2005 at 08:17 UTC
    The listed examples didn't indicate to me that we need to worry about anything other than the first number, and adding 2000 to a 1 digit number definitely results in a 4 digit one. :-)

    But if that's your spec, then try s/(\d?\d)-(\d?\d)-(\d?\d)/sprintf("20%02d-%02d-%02d", $1, $2, $3)/eg

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://504862]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2024-04-16 07:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found