如何处理宽度固定的列

rm-rf

有一个通过sqlplus spool出来的文本文件，列的宽度是固定的，现在要求还原成SQL文本

1. 12345678 123456 1234 12345678 123456
   
2. abcd     abc3        7834     4556  
   
3. 34       45     dfd  444            

复制代码

以上文件有5列，每列之间用一个空格分开，注意可能有些列的值为空(比如第二行第三列)，列的定义如下:

第1列: char 8
第2列: char 6
第3列: char 4
第4列: number 8
第5列: char 6

要求转换成SQL语句，比如第二行转换后为:

insert into t values('abcd','abc3',null,7834,'4556');

sunzhiguolu

看着列的对其方式倒是挺齐的, 就是不知道空列如何进行判断.

rm-rf

二楼的，列都是定长的，不够宽度的都用空格补齐了，因此只需要按照列宽度从相应位置截取，去掉尾部的空格即可。
比如第二行第三列，从第17个char向后截取4位，就代表第三列的值，结果是4个空格，去掉尾部所有空格，就变成空了。

rm-rf

加了个班，搞定了

1. BEGIN{
   
2.   FIELDWIDTHS="9 7 5 9 7"
   
3. }
   
4. {
   
5.   for (i=1;i<=NF;i++){
   
6.     gsub(/\s*$/,null,$i)
   
7.     $i=$i==null?"null":"'"$i"'"
   
8.   }
   
9.   printf("insert into t values(%s,%s,%s,%s,%s);\n",$1,$2,$3,$4,$5)
   
10. }

复制代码

sunzhiguolu

3 楼的, 试下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.     my ($last_pos, @aData) = 0;
   
7.     foreach my $num ((8, 6, 4, 8, 6)){
   
8.         my $val = substr ($_, $last_pos, $num) =~ s/\s+//r;
   
9.         push (@aData, length ($val) ? qq ('$val') : 'null');
   
10.         $last_pos += $num + 1;
    
11.     }
    
12.     print "insert into t values(", join (",", @aData), ");\n";
    
13. }
    
14. 
    
15. __DATA__
    
16. 12345678 123456 1234 12345678 123456
    
17. abcd     abc3        7834     4556
    
18. 34       45     dfd  444
    

复制代码

perl abc.pl
----------------------------------------------------------------
insert into t values('12345678','123456','1234','12345678','123456');
insert into t values('abcd','abc3',null,'7834','4556');
insert into t values('34','45','dfd','444',null);

sunzhiguolu

我猜你还得再加加班, 把问题先搞定再说.

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aWidth = (8, 6, 4, 8, 6);
   
6. while (<DATA>){
   
7.     my ($last_pos, @aData) = 0;
   
8.     while (my ($idx, $leng) = each @aWidth){
   
9.         my $v = substr ($_, $last_pos, $leng) =~ s/\s+//r;
   
10.         push (@aData, length ($v) ? do {$idx != 3 ? qq ('$v') : $v} : 'null');
    
11.         $last_pos += $leng + 1;
    
12.     }
    
13.     print "insert into t values(", join (",", @aData), ");\n";
    
14. }
    
15. 
    
16. __DATA__
    
17. 12345678 123456 1234 12345678 123456
    
18. abcd     abc3        7834     4556
    
19. 34       45     dfd  444
    

复制代码

perl abc.pl
---------------------------------------------------------------------------------------------------------------
insert into t values('12345678','123456','1234',12345678,'123456');
insert into t values('abcd','abc3',null,7834,'4556');
insert into t values('34','45','dfd',444,null);

rm-rf

sunzhiguolu 发表于 2016-07-29 22:44
我猜你还得再加加班, 把问题先搞定再说.

基本上搞定了，number型的还有些缺陷，number类型的insert不能加单引号，我的那个脚本也有一样的问题。
看来得区分number和string的。

moperyblue

more file

1. 12345678 123456 1234 12345678 123456
   
2. abcd     abc3        7834     4556  
   
3. 34       45     dfd  444            

复制代码

1. awk 'BEGIN{
   
2.     s="12345678 123456 1234 12345678 123456"
   
3.     for(i=1;i<=length(s);i++){
   
4.         if(substr(s,i,1)==" ")a[i]
   
5.     }
   
6. }
   
7. NR>1{
   
8.     for(i in a){
   
9.       $0=gensub(/./,"@",i)
   
10.   }
    
11.   gsub(/ *@ */,"@")
    
12.   gsub(/^ *| *$/,"")
    
13.   len=split($0,b,"@")
    
14.   for(i=1;i<=len;i++){
    
15.     if(b[i]==""){
    
16.         b[i]="null"
    
17.         }else if(i!=4){
    
18.             b[i]="\x27"b[i]"\x27"
    
19.         }
    
20.     }
    
21.     printf "insert into t values("
    
22.         for(i=1;i<=len;i++){
    
23.             printf  (i==1?"":",")b[i]
    
24.         }
    
25.         printf ");\n"
    
26. }' file

复制代码

insert into t values('abcd','abc3',null,7834,'4556');
insert into t values('34','45','dfd',444,null);

sunzhiguolu

基本上搞定了，number型的还有些缺陷，number类型的insert不能加单引号，我的那个脚本也有一样的问题。
看来得区分number和string的。

还是你老兄会解释, 还能有基本搞定了这词儿.