【译】 AWK教程指南 11递归程序

　　　　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( arg1 )
　　　　{
　　　　　　arg1++  # arg1 为参数列上的参数, 是local variable. 离开此函数后将消失.
　　　　　　y++ 　　# 会改变主式中的变量 y
　　　　　　z = 55  # z 为该函数中新使用的变量, 主程序中变量 z 仍可被使用.
　　　　　　printf("Inside the function: arg1=%d, x=%d, y=%d, z=%d\n", arg1, x, y, z)
　　　　} ‘

　　　　function demo( arg1 ) { # 最常见的错误例子
　　　　　　........
　　　　　　for(i=1; i< 20 ; i++){
　　　　　　　　demo(x)
　　　　　　　　# 又调用本身. 因为 i 是 global variable, 故执行完该子函数后
　　　　　　　　# 原函数中的 i 已经被坏, 故本函数无法正确执行.
　　　　　　　　.......
　　　　　　}
　　　　　　..........
　　　　}

　　　　function demo( arg1, i ) {
　　　　　　......
　　　　　　for(i=1; i< 20; i++) {
　　　　　　　　demo(x)　　#awk不会检查呼叫函数时, 所传递的参数个数是否一致
　　　　　　　　.....
　　　　　　}
　　　　}

　　　　awk ‘
　　　　BEGIN {
　　　　　　print "请输入排列的元素,各元素间请用空白隔开"
　　　　　　getline
　　　　　　permutation($0, "")
　　　　　　printf("\n共 %d 种排列方式\n", counter)
　　　　}
　　　　function permutation( main_lst, buffer,     new_main_lst, nf, i, j )
　　　　{
　　　　　　$0 = main_lst 　　# 把main_lst指定给$0之后awk将自动进行字段分割.
　　　　　　nf = NF 　　　　　　# 故可用 NF 表示 main_lst 上存在的元素个数.
　　　　　　# BASE CASE : 当main_lst只有一个元素时.
　　　　　　if( nf == 1){
　　　　　　　　print buffer main_lst 　　#buffer的内容再加上main_lst就是完成一次排列的结果
　　　　　　　　counter++
　　　　　　　　return
　　　　　　}
　　　　　　# General Case : 每次从 main_lst 中取出一个元素放到buffer中
　　　　　　# 再用 main_lst 中剩下的元素 (new_main_lst) 往下进行排列
　　　　　　else for( i=1; i<=nf ;i++)
　　　　　　{
　　　　　　　　$0 = main_lst 　　# $0为全局变量已被破坏, 故重新把main_lst赋给$0,令awk再做一次字段分割
　　　　　　　　new_main_lst = ""
　　　　　　　　for(j=1; j<=nf; j++) 　　# 连接 new_main_lst
　　　　　　　　　　if( j != i ) 
　　　　　　　　　　　　new_main_lst = new_main_lst " " $j
　　　　　　　　permutation( new_main_lst, buffer " " $i )
　　　　　　}
　　　　}
　　　　‘ $*

　　　　$ ./permu

　　　　awk ‘
　　　　BEGIN{
　　　　　　A = "This "
　　　　　　B = "is a "
　　　　　　C = A B "key." # 变量A与B之间应留空白,否则"AB"将代表另一新变量.
　　　　　　print C
　　　　} ‘

　　　　$ awk -f 函数文件名 -f awk主程序文件名 数据文件文件名