Perl: the Markov chain saw | |
PerlMonks |
Re: need regular expressionby l.frankline (Hermit) |
on Nov 02, 2005 at 09:06 UTC ( [id://504871]=note: print w/replies, xml ) | Need Help?? |
Hi,
Try this... $_='4-10-31'; print $_ if (s/(\d{1,2})(\-\d{1,2}\-\d{1,2})/"2". 0 x (4 - length($1)+1-2).$1.$2/e); frank.
In Section
Seekers of Perl Wisdom
|
|