Recettes informatiques

Catégorie: "Awk"

Convert to camelCase

Posted by on 22 Mar 2020 in Awk

Shell

#!/usr/bin/awk -f
     
BEGIN {
    FS = "_"
}
 
/* defined unit */
function is_unit(s,  i) {
 
    split("m km s ms us ns dB dBm Hz kHz MHz deg ppm par", list, " ")
    for (i in list)
        if ((s == list[i]) || (s ~ "^"list[i]"[^a-zA-Z0-9]"))
            return 1
 
    return 0
}
     
/* Change to camelCase */
{
    line = $1
 
    for (i = 2; i <= NF; i++) {
 
        letter = substr($(i), 1, 1)
 
        /* check if field is a unit or a constant */
        if (is_unit($(i)) || (letter == toupper(letter))) {
            line = line "_" $(i)
        } else {
            /* upper case first letter */
            sub(letter, toupper(letter), $(i))
            line = line $(i)
        }
    }
 
    print line
}

Colorize log file

Posted by on Jul 01 2016 in Awk


Short script to colorize log file.

Shell

#!/usr/bin/awk -f
 
# split glue line
BEGIN {start=":host[0-9][0-9]: "}
"^..*" start {$0=gensub("^(..*)(" start ")", "\\1\n\\2", "g")}
/^$/ {getline}
 
# colorize line
/TRACE/ {$0="\033[1;34m" $0 "\033[0;0m"} # blue
/DEBUG/ {$0="\033[1;32m" $0 "\033[0;0m"} # green
/INFO/ {}
/WARN/ {$0="\033[1;33m" $0 "\033[0;0m"} # yellow
/ERROR/ {$0="\033[1;31m" $0 "\033[0;0m"} # red
 
{print}

Convertion from hexa to decinal

Posted by on Jan 03 2012 in Programmation, Awk

Simple function to convert hexadecimal figures to decimal. It need to define a constant table hex

Shell

BEGIN {
    for (i = 0; i < 10; i++) hex[i] = i
    hex["a"] = hex["A"] = 10
    hex["b"] = hex["B"] = 11
    hex["c"] = hex["C"] = 12
    hex["D"] = hex["d"] = 13
    hex["e"] = hex["E"] = 14
    hex["f"] = hex["F"] = 15
    hex["x"] = hex["X"] = 0
}
 
function hex2dec(h,  i, x) {
    x = 0
    for (i = 1; i <= length(h); i++)
        x = x * 16 + hex[substr(h, i, 1)]
    return x
}

Asort for Mawk

Posted by on Jan 03 2012 in Programmation, Awk


Mawk does not provide asort function to sort array.

Shell

function alength(A,  n, val) {
    n = 0
    for (val in A) n++
    return n
}
 
function asort(A,  hold, i, j, n) {
    n = alength(A)
    for (i = 2; i <= n ; i++) {
        hold = A[j = i]
        while (A[j-1] > hold) {
            j--
            A[j+1] = A[j]
        }
        A[j] = hold
    }
    delete A[0]
 
    return n
}