Re^2: Separating big numbers with commas

Replies are listed 'Best First'.
Re^3: Separating big numbers with commas by QM (Parson) on Feb 19, 2015 at 13:17 UTC
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;` [download] You could lose the interim variable on the way to print, but it's easier to follow as above. -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l] [select]
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 ????????????????	[reply]
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` [download] 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	[reply] [d/l] [select]
Re^6: Separating big numbers with commas by Anonymous Monk on Feb 23, 2015 at 17:21 UTC
Re^3: Separating big numbers with commas by Anonymous Monk on Dec 15, 2018 at 22:39 UTC
I'm not a ksh user, but this script seems to work for me. === `cat ~/.local/bin/commafy #!/usr/bin/perl -nl $_ =~ s/(\d)(?=(\d{3})+(\D\|$))/$1\,/g; print;` [download] === My usage (to find out that a recent nix build used 18 GB of space): `$ find /nix/store -cmin -150 \| perl -nle '$sum+=-s "$_";END{print $sum +}' \| commafy 18,025,136,505` [download] 2018-12-16 Athanasius added code and paragraph tags	[reply] [d/l] [select]


The stupid question is the question not asked
	PerlMonks