Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^3: Separating big numbers with commas

by QM (Parson)
on Feb 19, 2015 at 13:17 UTC ( #1117215=note: print w/replies, xml ) Need Help??

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

How can I embed that into an UNIX Korn shell script?
Can't you sprintf to a variable, comma-munge it, and then print that?
$x = sprintf "%02d\/%02d\/%04d\ %02d\:%02d", $MM +1 , $DD , $YY + 1900 +, $hh, $mm; $x =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; print $x;

You could lose the interim variable on the way to print, but it's easier to follow as above.

Quantum Mechanics: The dreams stuff is made of

Replies are listed 'Best First'.
Re^4: Separating big numbers with commas
by Anonymous Monk on Feb 20, 2015 at 22:12 UTC
    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 ????????????????
      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.

      Quantum Mechanics: The dreams stuff is made of

        This worked. Thank you.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1117215]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2021-06-23 09:10 GMT
Find Nodes?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)

    Results (117 votes). Check out past polls.