Re (tilly) 1: Leading Zeros

s/(^|\.)(\d{1,3})/$1.("0"x(3-length($2))).$2/eg

Comment on Re (tilly) 1: Leading Zeros Download Code

Replies are listed 'Best First'.
Re: Re (tilly) 1: Leading Zeros by japhy (Canon) on Feb 22, 2001 at 20:32 UTC
Here's some `print scalar reverse "flog"`: `s/\b(?=(\d\d?\b))/0 x(3-length$1)/eg; # or s/\b(?=(\d{1,3}))/0 x(3-length$1)/eg;` [download] `japhy` -- Perl and Regex Hacker	[reply] [d/l]