Dear Joe and Dirk,
Thanks for getting me to look at assertions.
Expanding the requirement a little,
here is what I have so far:
my @nums = qw/ 00123 04 004.01 000 00 0 .0
0.01 0012.001 000.0001 /;
foreach ( @nums ) {
s/(\b)0+(?=\d)(\.*.*)/$1$2/g; # fails on 0.01
print $_, "\n";
}
Any ideas?
---
Jim
--- Dirk Bremer <[EMAIL PROTECTED]> wrote:
<heavy snips>
> s/0+(?=\d)(\d)/$1/g ?
<heavy snips>
__________________________________________________
Do You Yahoo!?
Send FREE Valentine eCards with Yahoo! Greetings!
http://greetings.yahoo.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
