Dodaj separator tysięcy w liczbie

W python

 re.sub(r"(?<=.)(?=(?:...)+$)", ",", stroke ) 

Aby podzielić liczbę na trojaczki, np .:

 echo 123456789 | python -c 'import sys;import re; print re.sub(r"(?<=.)(?=(?:...)+$)", ",",  sys.stdin.read());'
 123,456,789

Jak zrobić to samo z bash / awk?

Z sed:

$ echo "123456789" | sed 's/\([[:digit:]]\{3\}\)\([[:digit:]]\{3\}\)\([[:digit:]]\{3\}\)/\1,\2,\3/g'
123,456,789

(Uwaga: działa to tylko dla dokładnie 9 cyfr!)

lub to z sed:

$ echo "123456789" | sed ':a;s/\B[0-9]\{3\}\>/,&/;ta'
123,456,789

Z printf:

$ LC_NUMERIC=en_US printf "%'.f\n" 123456789
123,456,789

bash„s printfobsługuje prawie wszystko, co można zrobić w printffunkcji C

type printf           # => printf is a shell builtin
printf "%'d" 123456   # => 123,456

printf od coreutils zrobi to samo

/usr/bin/printf "%'d" 1234567   # => 1,234,567

Możesz użyć numfmt:

$ numfmt --grouping 123456789
123,456,789

Lub:

$ numfmt --g 123456789
123,456,789

Zauważ, że numfmt nie jest narzędziem POSIX, jest częścią jądra GNU.

cat <<'EOF' |
13407807929942597099574024998205846127479365820592393377723561443721764030073546976801874298166903427690031858186486050853753882811946569946433649006084096
EOF
perl -wpe '1 while s/(\d+)(\d\d\d)/$1,$2/;'

produkuje:

13,407,807,929,942,597,099,574,024,998,205,846,127,479,365,820,592,393,377,723,561,443,721,764,030,073,546,976,801,874,298,166,903,427,690,031,858,186,486,050,853,753,882,811,946,569,946,433,649,006,084,096

Odbywa się to poprzez podzielenie ciągu cyfr na 2 grupy, prawą grupę z 3 cyframi, lewą grupę z resztą, ale co najmniej jedną cyfrę. Następnie wszystko jest zastępowane przez 2 grupy, oddzielone przecinkiem. Trwa to do momentu niepowodzenia podstawienia. Opcje „wpe” służą do wyświetlania listy błędów, zawierają instrukcję w pętli z automatycznym drukowaniem i przyjmują następny argument jako „program” perla (szczegóły w poleceniu perldoc perlrun).

Najlepsze życzenia ... Pozdrawiam, drl

Z niektórymi awkimplementacjami:

echo "123456789" | awk '{ printf("%'"'"'d\n",$1); }'  

123,456,789  

"%'"'"'d\n"to: "%(pojedynczy cytat) (podwójny cytat) (pojedynczy cytat) (podwójny cytat) (pojedynczy cytat) d \ n"

To wykorzysta skonfigurowany separator tysięcy dla twoich ustawień regionalnych (zazwyczaj ,w języku angielskim, spacja w języku francuskim, .w języku hiszpańskim / niemieckim ...). Taki sam jak zwrócony przezlocale thousands_sep

Częstym przypadkiem użycia jest dla mnie modyfikacja wyjścia potoku poleceń, tak aby liczby dziesiętne były drukowane z tysiącem separatorów. Zamiast pisać funkcję lub skrypt, wolę używać techniki, którą mogę dostosować w locie dla dowolnego wyjścia z potoku Unix.

printfPrzekonałem się (zapewniony przez Awk), że jest to najbardziej elastyczny i niezapomniany sposób na osiągnięcie tego. Znak apostrofu / pojedynczego cudzysłowu jest określany przez POSIX jako modyfikator formatowania liczb dziesiętnych i ma tę zaletę, że rozpoznaje ustawienia regionalne, więc nie ogranicza się do używania przecinków.

Podczas uruchamiania poleceń Awk z powłoki uniksowej mogą wystąpić trudności z wprowadzeniem znaku pojedynczego cudzysłowu w ciągu ograniczonym pojedynczymi cudzysłowami (np. W celu uniknięcia rozszerzenia powłoki przez zmienne pozycyjne $1). W tym przypadku uważam, że najbardziej czytelnym i niezawodnym sposobem wprowadzenia znaku pojedynczego cudzysłowu jest wprowadzenie go w postaci ósemkowej sekwencji ucieczki (zaczynającej się od \0).

Przykład:

printf "first 1000\nsecond 10000000\n" |
  awk '{printf "%9s: %11\047d\n", $1, $2}'

  first:       1,000
 second:  10,000,000

Symulowane wyjście potoku pokazujące, które katalogi zajmują najwięcej miejsca na dysku:

printf "7654321 /home/export\n110384 /home/incoming\n" |
  awk '{printf "%22s: %9\047d\n", $2, $1}'

  /home/export: 7,654,321
/home/incoming:   110,384

Inne rozwiązania są wymienione w temacie Jak uniknąć pojedynczego cytatu w awk .

Uwaga: zgodnie z ostrzeżeniem w Print a Single Quote , zaleca się unikanie używania szesnastkowych sekwencji ucieczki, ponieważ nie działają one niezawodnie w różnych systemach.

awki bashmają dobre wbudowane rozwiązania oparte na printf, jak opisano w innych odpowiedziach. Ale najpierw sed.

Bo sedmusimy to zrobić „ręcznie”. Ogólna zasada jest taka, że ​​jeśli masz cztery kolejne cyfry, po których następuje cyfra (lub koniec linii), to pomiędzy pierwszą i drugą cyfrą należy wstawić przecinek.

Na przykład,

echo 12345678 | sed -re 's/([0-9])([0-9]{3})($|[^0-9])/\1,\2\3/'

wydrukuje

12345,678

Oczywiście musimy nadal powtarzać ten proces, aby dodawać wystarczającą liczbę przecinków.

sed -re ' :restart ; s/([0-9])([0-9]{3})($|[^0-9])/\1,\2\3/ ; t restart '

W sedpolu tpolecenie określa etykietę, która zostanie przeskoczona, jeśli ostatnie s///polecenie zakończyło się powodzeniem. Dlatego definiuję etykietę za pomocą :restart, aby odskakiwała.

Oto demo bash (na ideone ), które działa z dowolną liczbą cyfr:

function thousands {
    sed -re ' :restart ; s/([0-9])([0-9]{3})($|[^0-9])/\1,\2\3/ ; t restart '
}                                                 
echo 12 | thousands
echo 1234 | thousands
echo 123456 | thousands
echo 1234567 | thousands
echo 123456789 | thousands
echo 1234567890 | thousands

$ echo 1232323 | awk '{printf(fmt,$1)}' fmt="%'6.3f\n"
12,32,323.000

Jeśli patrzysz na DUŻE liczby, nie byłem w stanie sprawić, by powyższe rozwiązania działały. Na przykład, uzyskajmy naprawdę dużą liczbę:

$ echo 2^512 |bc -l|tr -d -c [0-9] 13407807929942597099574024998205846127479365820592393377723561443721764030073546976801874298166903427690031858186486050853753882811946569946433649006084096

Uwaga: Potrzebuję trusunąć wyjście nowego wiersza odwrotnego ukośnika z bc. Ta liczba jest zbyt duża, aby traktować ją jako liczbę zmiennoprzecinkową lub stałą liczbę bitów w awk, i nawet nie chcę budować wyrażenia regularnego wystarczająco dużego, aby uwzględnić wszystkie cyfry w sed. Mogę raczej odwrócić i umieścić przecinki między grupami po trzy cyfry, a następnie cofnąć:

echo 2^512 |bc -l|tr -d -c [0-9] |rev |sed -e 's/\([0-9][0-9][0-9]\)/\1,/g' |rev 13,407,807,929,942,597,099,574,024,998,205,846,127,479,365,820,592,393,377,723,561,443,721,764,030,073,546,976,801,874,298,166,903,427,690,031,858,186,486,050,853,753,882,811,946,569,946,433,649,006,084,096

a="13407807929942597099574024998205846127479365820592393377723561443721764030073546976801874298166903427690031858186486050853753882811946569946433649006084096"

echo "$a" | rev | sed "s#[[:digit:]]\{3\}#&,#g" | rev

13,407,807,929,942,597,099,574,024,998,205,846,127,479,365,820,592,393,377,723,561,443,721,764,030,073,546,976,801,874,298,166,903,427,690,031,858,186,486,050,853,753,882,811,946,569,946,433,649,006,084,096

Chciałem również mieć udział po tym separatorem dziesiętnym prawidłowo oddzielone / rozstawione, dlatego napisałem ten SED-skrypt, który wykorzystuje pewne zmienne powłoki, aby dostosować się do preferencji regionalnych i osobistych. Uwzględnia także różne konwencje dotyczące liczby cyfr zgrupowanych razem :

#DECIMALSEP='.' # usa                                                                                                               
DECIMALSEP=','  # europe

#THOUSSEP=',' # usa
#THOUSSEP='.' # europe
#THOUSSEP='_' # underscore
#THOUSSEP=' ' # space
THOUSSEP=' '  # thinspace

# group before decimal separator
#GROUPBEFDS=4   # china
GROUPBEFDS=3    # europe and usa

# group after decimal separator
#GROUPAFTDS=5   # used by many publications 
GROUPAFTDS=3


function digitgrouping {
  sed -e '
    s%\([0-9'"$DECIMALSEP"']\+\)'"$THOUSSEP"'%\1__HIDETHOUSSEP__%g
    :restartA ; s%\([0-9]\)\([0-9]\{'"$GROUPBEFDS"'\}\)\(['"$DECIMALSEP$THOUSSEP"']\)%\1'"$THOUSSEP"'\2\3% ; t restartA
    :restartB ; s%\('"$DECIMALSEP"'\([0-9]\{'"$GROUPAFTDS"'\}\'"$THOUSSEP"'\)*\)\([0-9]\{'"$GROUPAFTDS"'\}\)\([0-9]\)%\1\3'"$THOUSSEP"'\4% ; t restartB
    :restartC ; s%\([^'"$DECIMALSEP"'][0-9]\+\)\([0-9]\{'"$GROUPBEFDS"'\}\)\($\|[^0-9]\)%\1'"$THOUSSEP"'\2\3% ; t restartC
    s%__HIDETHOUSSEP__%\'"$THOUSSEP"'%g'
}

Rozwiązanie A bash/ awk(zgodnie z żądaniem), które działa niezależnie od długości liczby i używa ,niezależnie od ustawienia ustawień regionalnych thousands_seporaz wszędzie tam, gdzie liczby są na wejściu i pozwala uniknąć dodawania separatora tysięcy po 1.12345:

echo not number 123456789012345678901234567890 1234.56789 |
  awk '{while (match($0, /(^|[^.0123456789])[0123456789]{4,}/))
        $0 = substr($0, 1, RSTART+RLENGTH-4) "," substr($0, RSTART+RLENGTH-3)
        print}'

Daje:

not number 123,456,789,012,345,678,901,234,567,890 1,234.56789

W przypadku awktakich implementacji mawk, które nie obsługują operatorów wyrażeń regularnych, zmień wyrażenie regularne na/(^|[^.0123456789])[0123456789][0123456789][0123456789][0123456789]+/