A. Pagaltzis a écrit :
* Alexandre Jousset <[EMAIL PROTECTED]> [2006-08-28 18:15]:
For the moment I have a (too) complicated sub spacify and I would
like to simplify it to a regexp.
It doesn’t have to be complicated, even without a regexp.
scalar reverse join ' ', unpack '(A3)*', reverse $num;
perl -e '$num=12345678.1234;print scalar reverse join " ", unpack
"(A3)*", reverse $num;'
=> 1 234 567 8.1 234
It works only for integers...
Thank you anyway... ;-)
--
\^/
-/ O \----------------------------------------
| |/ \| Alexandre (Midnite) Jousset |
-|___|----------------------------------------
