http://www.perlmonks.org?node_id=1117377


in reply to Re^3: Separating big numbers with commas
in thread Separating big numbers with commas

Clarification, as I'm just starting with Perl, how do a write that perl syntax into a korn shell command line executable. By way of example, the ${NUM} value is passed in, and the "perl -e" and/or "perl -e and printf" syntax will print it with comma separators. NUM="1234567890" echo "${NUM} should print with comma separators" perl -e ????????????????
  • Comment on Re^4: Separating big numbers with commas

Replies are listed 'Best First'.
Re^5: Separating big numbers with commas
by QM (Parson) on Feb 23, 2015 at 12:04 UTC
    I don't know what the ksh quoting differences might be, so assuming something rational...

    Use @ARGV. If you have quoting problems, use qq// and q// inside the one-liner, and single quotes around the one-liner:

    > BLAH=$(perl -e 'for (@ARGV){s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;print qq +/$_\n/}' 12345678 876543210) 12,345,678 876,543,210 > echo $BLAH 12,345,678 876,543,210

    Note that this form will take multiple values, commafy them, and output them one per line.

    If you expect more than integers, see the other answers with decimals and other weirdness on how to change the regex.

    -QM
    --
    Quantum Mechanics: The dreams stuff is made of

      This worked. Thank you.