Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: This function (decode64) runs on gawk but not on busybox awk
Top Forums Shell Programming and Scripting This function (decode64) runs on gawk but not on busybox awk Post 302939594 by chilicuil on Thursday 26th of March 2015 07:00:44 PM
Old 03-26-2015
Thanks Walter,

Your modified code works great with busybox v1.13.3 and way faster than my current shell implementation which I'm posting below in case someone is curious about.

Code:
_decode64_sh() {
    [ ! -t 0 ] && set -- "${@}" "$(cat)"
    _decode64_sh__b64='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
    _decode64_sh__n="0"; _decode64_sh__v="0"; _decode64_sh__args="${@}"
    while [ "${_decode64_sh__args}" ]; do #process char by char
        _decode64_sh__char="${_decode64_sh__args%${_decode64_sh__args#?}}"
        case "${_decode64_sh__char}" in
            '\n') continue ;;
             '=') _decode64_sh__v="$(($_decode64_sh__v << 6))" ;;
               *) _decode64_sh__char="${_decode64_sh__b64#*$_decode64_sh__char}"
                  _decode64_sh__char="$((${#_decode64_sh__b64}-${#_decode64_sh__char}))"
                  if [ "${_decode64_sh__char}" -eq "0" ]; then
                    [ X"${_decode64_sh__args}" = X"${_decode64_sh__char}" ] &&\
                        _decode64_sh__args='' || _decode64_sh__args="${_decode64_sh__args#?}"
                    continue
                  fi
                  _decode64_sh__v="$(($_decode64_sh__v << 6 | $_decode64_sh__char-1))"
        esac
        _decode64_sh__n="$(($_decode64_sh__n+1))"
        if [ "${_decode64_sh__n}" -eq "4" ]; then
            _decode64_sh__s="16"; while [ "${_decode64_sh__s}" -gt "-1" ]; do
                _decode64_sh__char="$(($_decode64_sh__v >> $_decode64_sh__s & 255))"
                printf \\$(($_decode64_sh__char/64*100+$_decode64_sh__char%64/8*10+$_decode64_sh__char%8))
                _decode64_sh__s="$(($_decode64_sh__s-8))"
            done
            _decode64_sh__v="0"; _decode64_sh__n="0"
        fi
        [ X"${_decode64_sh__args}" = X"${_decode64_sh__char}" ] &&\
            _decode64_sh__args='' || _decode64_sh__args="${_decode64_sh__args#?}"
    done
}

 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk,gawk in bat file

Hi. I'm trying to convert bat file into shell script. Bat file invokes awk file in one section: c:\upg\exe\gawk -f c:\upg\awk\gen_sae.awk -v OP=C:\\upg\\lod\\... ...c:\upg\ref\saaxi.ref c:\upg\log\SAAEPWO.log c:\upg\ref\saaepref.log First of all I issued unix2dos command on that awk file.... (0 Replies)
Discussion started by: andrej
0 Replies

2. Shell Programming and Scripting

Substitution using awk/gawk

Hello, I have a file containing lines such as: (1 104 (16) (17) (18) (102))$ (1 105 (16) (17) (19:21) (102))$ I would like to extract the numbers, only by using awk (or gawk). I do not want to use "sed" as it is very slow. For now my solution consists in... (2 Replies)
Discussion started by: jolecanard
2 Replies

3. Shell Programming and Scripting

Removing \n within a record (awk/gawk)

I am using a solution that was provided by a member: awk '{s=$0;if(length(s) < 700){getline; s=s " " $0}printf("%s\n",s)}' This scans through a file and removes '\n' within a record but not the record delimiter. However, there are instances where there are MULTIPLE instances of '\n'... (10 Replies)
Discussion started by: CKT_newbie88
10 Replies

4. Shell Programming and Scripting

awk command in script gives error while same awk command at prompt runs fine: Why?

Hello all, Here is what my bash script does: sums number columns, saves the tot in new column, outputs if tot >= threshold val: > cat getnon0file.sh #!/bin/bash this="getnon0file.sh" USAGE=$this" InFile="xyz.38" Min="0.05" # awk '{sum=0; for(n=2; n<=NF; n++){sum+=$n};... (4 Replies)
Discussion started by: catalys
4 Replies

5. Shell Programming and Scripting

ash busybox read command not working inside function....

I have a script that has to execute a read command in a function, this is in an ash busybox. The code is... trapcatch () { echo "Ctl-c Detected, what do you want to do?" echo "Please choose the number of one of the following options" echo "1. Jump past this Set" echo "2. Exit... (8 Replies)
Discussion started by: tesser
8 Replies

6. UNIX for Dummies Questions & Answers

Doubts About awk, and Gawk

well i have some doubts about the use of this commands: my first doubt is to know if there is a way to execute a awk program from a file? (now i do copy paste, i copy the script of a notepad on the terminal and then i press enter, but i want to put this scripts in some folder and execute them)... (3 Replies)
Discussion started by: matius_88
3 Replies

7. Shell Programming and Scripting

awk runs but output is empty

The awk below runs, however the output file is 0 bytes. It is basically matching input files that are 21 - 259 records to a file of 11,137,660 records. Basically, what it does is use the input files of which there are 4 to search and match in a large 11,000,000 record file and output the... (4 Replies)
Discussion started by: cmccabe
4 Replies

8. Shell Programming and Scripting

Why does the gawk-function close return -1 ?

Hallo, why does the gawk-function close return -1 ? :confused: the file sortiert.txt was created and exists (with the sorted print-string). The source Code: BEGIN{ print "b\n\na\nx\n9" | "sort > sortiert.txt" error = close ("sort > sortiert.txt") print error if (error) {print... (10 Replies)
Discussion started by: wilmaed
10 Replies

9. Shell Programming and Scripting

awk runs and produces output but with error

When I run the awk below, I get an error message awk -v OFS='\t' '$(NF-1)=="Benign" || ($(NF-2) OFS $(NF-1))=="Likely Benign" {$(NF)=$(NF-2) OFS $(NF-1)} {print $0 }' input awk: cmd. line:1: (FILENAME=VUS FNR=8) fatal: attempt to access field -1 input Chr Start End Ref ... (6 Replies)
Discussion started by: cmccabe
6 Replies

LEARN ABOUT DEBIAN

locale::language

Locale::Language(3perl) 				 Perl Programmers Reference Guide				   Locale::Language(3perl)

NAME

       Locale::Language - standard codes for language identification

SYNOPSIS

	  use Locale::Language;

	  $lang = code2language('en');	      # $lang gets 'English'
	  $code = language2code('French');    # $code gets 'fr'

	  @codes   = all_language_codes();
	  @names   = all_language_names();

DESCRIPTION

       The "Locale::Language" module provides access to standard codes used for identifying languages, such as those as defined in ISO 639.

       Most of the routines take an optional additional argument which specifies the code set to use. If not specified, the default ISO 639 two-
       letter codes will be used.

SUPPORTED CODE SETS

       There are several different code sets you can use for identifying languages. The ones currently supported are:

       alpha-2
	   This is the set of two-letter (lowercase) codes from ISO 639, such as 'he' for Hebrew.

	   This code set is identified with the symbol "LOCALE_LANG_ALPHA_2".

	   This is the default code set.

       alpha-3
	   This is the set of three-letter (lowercase) bibliographic codes from ISO 639, such as 'heb' for Hebrew.

	   This code set is identified with the symbol "LOCALE_LANG_ALPHA_3".

       term
	   This is the set of three-letter (lowercase) terminologic codes from ISO 639.

	   This code set is identified with the symbol "LOCALE_LANG_TERM".

ROUTINES

       code2language ( CODE [,CODESET] )
       language2code ( NAME [,CODESET] )
       language_code2code ( CODE ,CODESET ,CODESET2 )
       all_language_codes ( [CODESET] )
       all_language_names ( [CODESET] )
       Locale::Language::rename_language  ( CODE ,NEW_NAME [,CODESET] )
       Locale::Language::add_language  ( CODE ,NAME [,CODESET] )
       Locale::Language::delete_language  ( CODE [,CODESET] )
       Locale::Language::add_language_alias  ( NAME ,NEW_NAME )
       Locale::Language::delete_language_alias	( NAME )
       Locale::Language::rename_language_code  ( CODE ,NEW_CODE [,CODESET] )
       Locale::Language::add_language_code_alias  ( CODE ,NEW_CODE [,CODESET] )
       Locale::Language::delete_language_code_alias  ( CODE [,CODESET] )
	   These routines are all documented in the Locale::Codes man page.

SEE ALSO

       Locale::Codes
       Locale::Constants
       http://www.loc.gov/standards/iso639-2/
	   Source of the ISO 639 codes.

AUTHOR

       See Locale::Codes for full author history.

       Currently maintained by Sullivan Beck (sbeck@cpan.org).

COPYRIGHT

	  Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
	  Copyright (c) 2001-2010 Neil Bowers
	  Copyright (c) 2010-2011 Sullivan Beck

       This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.14.2							    2011-09-26						   Locale::Language(3perl)
All times are GMT -4. The time now is 01:30 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy