- 论坛徽章:
- 0
|
我們寫腳本,很多情況下是一次性的,所以傾向寫一些常用的函數
掉用,例如我的$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 |
|