Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re^2: Separating big numbers with commas

by Anonymous Monk
on Feb 18, 2015 at 22:07 UTC ( #1117162=note: print w/replies, xml ) Need Help??


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

How can I embed that into an UNIX Korn shell script? By way of an example here is a perl epoch timestamp conversion used in one of my scripts. LASTUPDATE=$(perl -e '($ss, $mm, $hh, $DD, $MM, $YY) = localtime('${LASTUPDATE}'); printf "%02d\/%02d\/%04d\ %02d\:%02d", $MM +1 , $DD , $YY + 1900, $hh, $mm')
  • Comment on 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;

    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

      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.

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

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;

    ===

    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

    2018-12-16 Athanasius added code and paragraph tags

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2020-05-27 23:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (162 votes). Check out past polls.

    Notices?