求教awk中split函数使用问题

金杯

我编一个支票大写日期打印程序时，出现问题。请指路
编码为
date ''+%Y%m%d'' > rqdy
awk ' BEIGIN { split(''壹 贰 叁 肆 伍 陆 柒 捌 玖 拾'',Nr),  Nr[0]=''零''}
       {for (i=1;i<=4;i++)
              M=substr($1,i,1)
              if (M==1) Y=Nr[1]
              if (M==2) Y=Nr[2]
                 .
                 .
                 .
              if (M==0) Y=Nr[0]
         }
                               .
                               .
                               .
                               .


          printf (''%s%s%s%s'' ,Y[1],Y[2],Y[3],Y[4])
        }'  rqdy
运行时，不能打印出年份大写。而用Y=''零''等代替时可以正常打印。
请指点迷津。

admirer

原帖由 "金杯"]awk ' BEIGIN { split(''壹 贰 叁 肆 伍 陆 柒 捌 玖 拾'',Nr), Nr[0]=''零''} [/quote 发表：

split的用法错误:没有指明元素分隔符
[quote]awk ' BEIGIN { split(''壹 贰 叁 肆 伍 陆 柒 捌 玖 拾'',Nr," "), Nr[0]=''零''}

金杯

谢谢，但此项原因考虑过，仍不行。

admirer

[quote]原帖由 "金杯"]谢谢，但此项原因考虑过，仍不行。[/quote 发表：

建议看看awk的手册先！
你的代码语法问题太多了！重写一边，请自己对比吧！

1. date "+%Y%m%d" | awk ' BEGIN { split("壹 贰 叁 肆 伍 陆 柒 捌 玖 拾",Nr," "); Nr
   
2. [0]="零"}
   
3. {for (i=1;i<=4;i++)
   
4. {
   
5.   M=substr($1,i,1);
   
6.   if (M==1) Y[i]=Nr[1]
   
7.   if (M==2) Y[i]=Nr[2]
   
8.   if (M==3) Y[i]=Nr[3]
   
9.   if (M==4) Y[i]=Nr[4]
   
10.   if (M==0) Y[i]=Nr[0]
    
11. }
    
12. printf ("%s%s%s%s\n",Y[1],Y[2],Y[3],Y[4])
    
13. }'

复制代码

金杯

执行时，并不提示语法错误，只是不能显示大写，而是白空

james_dlc

数组从1开始的吧