Umwandlung von hex zu dezimal in awk oder sed

Hier ist eine variation auf Jonathan ' s Antwort:

awk $([[ $(awk --version) = GNU* ]] && echo --non-decimal-data) -F, '
    BEGIN {OFS = FS}
    {
        $6 = sprintf("%d", "0x" substr($4, 11, 4))
        $5 = sprintf("%d", "0x" substr($4,  7, 4))
        $4 = substr($4,  1, 6)
        print
    }'

Habe ich eine ziemlich verdrehte Art und Weise der Zugabe der --non-decimal-data option, wenn es notwendig ist.

Bearbeiten

Nur für das heck der es, hier ist das Reine Bash-äquivalent:

saveIFS=$IFS
IFS=,
while read -r -a line
do
    printf '%s,%s,%d,%d\n' "${line[*]:0:3}" "${line[3]:0:6}" "0x${line[3]:6:4}" "0x${line[3]:10:4}"
done
IFS=$saveIFS

Den "${line[*]:0:3}" (zitiert *) funktioniert ähnlich wie AWK ist OFS ist, dass es bewirkt, dass die Bash ist IFS (hier ein Komma) eingefügt werden zwischen den array-Elementen bei der Ausgabe. Wir nehmen außerdem den Vorteil, dass die Funktion durch einfügen von array-Elementen wie folgt die genauer parallels mein AWK-version vor.

saveIFS=$IFS
IFS=,
while read -r -a line
do
    line[6]=$(printf '%d' "0x${line[3]:10:4}")
    line[5]=$(printf '%d' "0x${line[3]:6:4}")
    line[4]=$(printf '%s' "${line[3]:0:6}")
    printf '%s\n' "${line[*]}"
done
IFS=$saveIFS

Leider Bash nicht erlauben printf -v (das ist ähnlich wie sprintf()) für die Zuweisungen an array-Elemente, so printf -v "line[6]" ... funktioniert nicht. Edit: Als der Bash 4.1, printf -v können nun die Zuweisungen an array-Elemente.

InformationsquelleAutor der Antwort Dennis Williamson

Von AWK

Diese Antwort konzentriert sich auf die zeigen, wie die Umwandlung von awk tragbar.

Mit --non-decimal-data für gawk ist nicht empfohlen nach GNU Awk-Benutzerhandbuch. Und mit strtonum() ist nicht tragbar.

In den folgenden Beispielen das erste Wort von jedem Datensatz umgewandelt wird.

Von Benutzer-definierten Funktion

Den meisten tragbaren Weise zu tun, die Konvertierung wird durch einen Benutzer-definierten awk-Funktion [Referenz]:

function parsehex(V,OUT)
{
    if(V ~ /^0x/)  V=substr(V,3);

    for(N=1; N<=length(V); N++)
        OUT=(OUT*16) + H[substr(V, N, 1)]

    return(OUT)
}

BEGIN { for(N=0; N<16; N++)
        {  H[sprintf("%x",N)]=N; H[sprintf("%X",N)]=N } }

{ print parsehex($1) }

Durch aufrufen von shell printf

Können Sie diese

awk '{cmd="printf %d 0x" $1; cmd | getline decimal; close(cmd); print decimal}'

aber es ist relativ langsam. Das folgende ist schneller, wenn Sie viele newline getrennte hexadezimal-zahlen umwandeln:

awk 'BEGIN{cmd="printf \"%d\n\""}{cmd=cmd " 0x" $1}END{while ((cmd | getline dec) > 0) { print dec }; close(cmd)}'

Könnte es ein problem wenn sehr viele Argumente sind die für die einzelne printf-Befehl.

In Linux

Meiner Erfahrung die folgenden Werke in Linux:

awk -Wposix '{printf("%d\n","0x" $1)}'

Getestet habe ich es von gawk, mawk und original-awk in Ubuntu Linux 14.04. Original-awk zeigt der Befehl eine Warnmeldung, aber Sie können es verstecken, durch die Umleitung der Richtlinie 2>/dev/null in der Schale. Wenn Sie nicht möchten, dass zu tun, können Sie Streifen die -Wposix im Falle der original-awk so:

awk $(awk -Wversion >/dev/null 2>&1 && printf -- "-Wposix") '{printf("%d\n","0x" $1)}'

(In der Bash 4 Sie ersetzen könnte >/dev/null 2>&1 durch &>/dev/null)

Hinweis: Die-Wposix trick wohl nicht funktioniert mit nawk, die in OS X und einigen BSD-OS-Varianten, obwohl.

InformationsquelleAutor der Antwort jarno

Könnte dies für Sie arbeiten (GNU sed & printf):

sed -r 's/(....)(....)$/0x\1 0x\2/;s/.*/printf "%s,%d,%d" &/e' file

Split die letzten acht Zeichen und Leerzeichen einfügen, vor der Felder durch die hex-id und bewerten Sie dann die ganze Zeile mit printf.

InformationsquelleAutor der Antwort potong

Perl-version, mit einem Tipp der Hut, um @Jonathan:

perl -F, -lane '$p1 = substr($F[3], 0, 6); $p2 = substr($F[3], 6, 4); $p3 = substr($F[3], 10, 4); printf "%s,%s,%s,%s,%d,%d\n", @F[0..2], $p1, hex($p2), hex($p3)' file

-a einschalten automatisches aufteilen in mode, zum Auffüllen der @F array

-F, änderungen der automatisches aufteilen in separator , (Standard ist das Leerzeichen)

Die substr() Indizes sind 1 weniger als Ihre awk-äquivalente, da Perl die arrays beginnen von 0.

Ausgabe:

123711184642,02,3583090366663629,639f02,292,14292
123715942138,01,3538710295145500,639f02,45014,50755
123711616258,02,3548370476972758,639f02,72,22322

InformationsquelleAutor der Antwort Chris Koknat