我們寫腳本，很多情況下是一次性的，所以傾向寫一些常用的函數

掉用，例如我的$HOME/lib/awk 就寫了一些函數, 然而怎樣掉用這些函數，

不成每用一次就複製到腳本上，我在命令列又如何掉用呢?

鑑於這種需求,Gnu awk  為使用者提供了一個變量，和一個可以包含你寫的函數的命令,

他們就是 AWKPATH 和 igawk

AWKPATH 這個變量內定的路徑為 , 手冊上答案是.:/usr/local/share/awk

http://www.gnu.org/manual/gawk/html_node/AWKPATH-Variable.html

但我的cygwin是 .:/usr/share/awk

根據手冊所指,利用ENVIRON["AWKPATH"]這變量, 便可得到路徑, 那就

gawk 'BEGIN{print  ENVIRON["AWKPATH"]}'

就可顯示.而該默認路徑已有很多函數供掉用設定很簡易，在

$HOME/.bash_profile 加入

export AWKPATH=$AWKPATH:/path/where/you/store/function

我的就是 AWKPATH=$AWKPATH:$HOME/lib/awk

source ~/.bash_profile 後就完成

User@User-PC ~

$ ls lib/awk

cap.awk  commas.awk  hex2dec.awk  passgen.awk  reverse.awk  swapcase.awk  whois.awk

我有七個函數在這裡，在命令列上就可如此掉用

User@User-PC ~

$ echo -1234567 | gawk -f commas.awk --source '{print commas($0)}'

-1,234,567

就是這樣 :)

但不在命列上使用，放到腳本又如何呢? 不要在腳本頂部這樣寫，

#! /usr/bin/gawk -f commas.awk --source

那不成的, gawk 維護人寫了一個命令，也是一個shell 腳本, 名

igawk, 當你要掉用函數的時候，用igawk就對了, 格式這樣

#! /usr/bin/igawk -f

@include commas.awk

@include hex2dec.awk

                .

                .

@include N 個函數檔案名

下面就正常寫你的腳本就可.. :), 例如

#! /usr/bin/igawk -f

@include commas.awk

@include swapcase.awk

  

  {

     if ($0 ~ /^-?[0-9]+$/){

           print commas($0) 

      } else if ($0 ~ /[a-zA-Z]+/){

           print swapcase($0)

      }   

  }   

User@User-PC ~

$ echo 12345 | ./igawk_test 

12,345

User@User-PC ~

$ echo rOOT | ./igawk_test 

Root

就是這樣，寫得不正確，請版友代為修正，最後難為情地

顯上這些醜醜的函數

#把數字格式化，如 1234 改成 1,234

function commas(x,    y, z, j, len, flag, out){

             if (x ~ /^-/) {

                   x=substr(x, 2)

                   j="-"

                 }

             if (match(x, /\./)) {

                   flag="float"

                   y=substr(x, RSTART)

                   z=substr(x, 1, RSTART - 1)

                   x=z

                  }

                  else {

                      flag="int"

                  }

              len=length(x)

              while ( len > 3 ){

                   len -= 3

                   x=substr(x, 1, len)","substr(x, len + 1)

                  }

              if ( flag == "int" ){

                      out=x

                  }

                  else {

                      out=x y

                  }

              if ( j == "-" ) out=j out

          return out

   }

# end of function

#大小字母對掉,大變小，小變大

function swapcase(input,   output, step, wlen, char){

           output=""

           step=1

           wlen=length(input)

             while ( step <= wlen ){

               char=substr(input, step, 1)

               if ( char ~ /[A-Z]/ ){

                  char=tolower(char)

                  } else if ( char ~ /[a-z]/ ){

                  char=toupper(char)

                  } else {

                  char=char

                  }

                output=output char

                step++

               }

            return output

          }

# end of function

# translate hex number to dec number 

# 這個不是我寫的

function hex2dec(h      ,i,x,v){

       h=tolower(h);sub(/^0x/,"",h)

       for(i=1;i<=length(h);++i){

            x=index("0123456789abcdef",substr(h,i,1))

            if(!x)return "NaN"

              v=(16*v)+x-1

            }

       return v

}

# end of function

#reverse the word

function reverse(x,   output, wlen, char){

          output=""

          wlen=length(x)

          while ( wlen > 0 ) {

            char=substr(x, wlen, 1)

            output=output char

            wlen -= 1

           }

       return output

   }

# end of function