如何處理寬度固定的列

rm-rf

有一個通過sqlplus spool出來的文本文件，列的寬度是固定的，現(xiàn)在要求還原成SQL文本

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

復(fù)制代碼

以上文件有5列，每列之間用一個空格分開，注意可能有些列的值為空(比如第二行第三列)，列的定義如下:

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

要求轉(zhuǎn)換成SQL語句，比如第二行轉(zhuǎn)換后為:

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

sunzhiguolu

看著列的對其方式倒是挺齊的, 就是不知道空列如何進(jìn)行判斷.

rm-rf

二樓的，列都是定長的，不夠?qū)挾鹊亩加每崭裱a齊了，因此只需要按照列寬度從相應(yīng)位置截取，去掉尾部的空格即可。
比如第二行第三列，從第17個char向后截取4位，就代表第三列的值，結(jié)果是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. }

復(fù)制代碼

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
    

復(fù)制代碼

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
    

復(fù)制代碼

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 發(fā)表于 2016-07-29 22:44
我猜你還得再加加班, 把問題先搞定再說.

基本上搞定了，number型的還有些缺陷，number類型的insert不能加單引號，我的那個腳本也有一樣的問題。
看來得區(qū)分number和string的。

moperyblue

more file

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

復(fù)制代碼

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

復(fù)制代碼

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

sunzhiguolu

基本上搞定了，number型的還有些缺陷，number類型的insert不能加單引號，我的那個腳本也有一樣的問題。
看來得區(qū)分number和string的。

還是你老兄會解釋, 還能有基本搞定了這詞兒.