Author: ming

【撰寫可與使用者相互交談的 AWK 程式】
$ vim test.txt
apple 蘋果
orange 柳橙
banana 香蕉
pear 梨子
starfruit 楊桃
bellfruit 蓮霧
kiwi 奇異果
pineapple 鳳梨
watermelon 西瓜
-> vim 命令模輸入 “:wq” (存檔離開)

(閱讀全文…)

【使用 AWK 撰寫 Recusive Program】
$ vim rec.awk
awk ‘
BEGIN {
x = 35
y = 45

test_variable(x)

printf(“Return to main: arg1 = %d, x = %d, y = %d, z = %d n”, arg1, x, y, z)
}

function test_variable(x) {
arg1 += 10
y++
printf(“Inside the function: arg1 = %d, x = %d, y = %d, z = %dn”, arg1, x, y, z)
}

‘ $*
-> vim 命令模輸入 “:wq” (存檔離開)

(閱讀全文…)

【處理 Multi-line 記錄】
$ vim week.txt

張長弓
GNUPLOT
入門

吳國強
Latex 簡介
VAST-2 使用手冊
mathematica 入門

李小華
AWK Tutorial Guide
Regular Expression

-> vim 命令模輸入 “:wq” (存檔離開)
(ps. 以空白行為記錄分隔)

(閱讀全文…)

【如何讀取命令列上的參數】
$ vim see_arg.awk
awk ‘

BEGIN {
for (i=0; i<= ARGC; i++)
print ARGV[i]
}
‘ $*
-> vim 命令模輸入 “:wq” (存檔離開)

(閱讀全文…)

【使用 getline 來讀取資料】
$ vim reformat4.awk
awk ‘
BEGIN {
result = “today_rpt4”
sys_sort = “sort -n >> ” result
“date” | getline
print “Today is: “, $2, $3 > result
print “====================” > result
print “ID Number    Arrival Time” > result
close(result)

FS = “[ t:]”
late_file = $2 “_late.dat”
while (getline < late_file > 0) cnt[$1] = $2
close(late_file)
}

{
arrival = HM_to_M($2, $3)
total += arrival
if (arrival > 480) {
mark = “–”
cnt[$1]++
} else mark = “”

message = cnt[$1] ? cnt[$1] ” times” : “”
printf(“%8s     %2d:%2d %5s %sn”, $1, $2, $3, mark, message) | sys_sort
}

END {
close(result)
close(sys_sort)
printf(“Average arrival time = %d:%dn”, total/NR/60, (total/NR)%60) >> result

for ( any in cnt )
print any, cnt[any] > late_file
}

function HM_to_M(hour, min) {
return hour * 60 + min
}

‘ $*
-> vim 命令模輸入 “:wq” (存檔離開)

(閱讀全文…)

【AWK 中如何利用系統資源】
$ vim reformat2.awk
BEGIN {
“date” | getline
printf(“Today is %s %d 日n”, $2, $3) > “today_rpt2”
print “=========================” > “today_rpt2”
print “ID Number   Arrival Time” > “today_rpt2”
close(“today_rpt2”)
}
{ printf(“%6s %10sn”, $1, $2) | “sort -n >> today_rpt2” }
-> vim 命令模輸入 “:wq” (存檔離開)

(閱讀全文…)