Petr Vileta schreef:

>     $data1 =~ s/[^\d,.]//sg;

Prepare for the future: \d matches more than [0-9].

-- 
Affijn, Ruud

"Gewoon is een tijger."

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to