awk问题求助[高人现身呀][db2 csv格式的数据转定分割符的数据]

jason680

是否可以换个思路：
1，以逗号为分割符，
2，如果类型是char等的，就必须以”开始，以“结束。
3，如果类 ...
hfvbc 发表于 2011-08-11 10:40

    举个例吧!!!

29楼..应可达到要求...

hfvbc

回复 31# jason680


    您的例子不错，但是你用的是perl,shell，perl混合使用，可能会影响程序的健壮性。另外，分割符您没有使用变量，在实际的过程中，分割符是由用户自己输入的呢。还有，就是如果数据变了，怎么样确定分割的唯一性问题，前面如楼上前面几位所说的。

呵呵，可能我没有把需求说清楚，不好意思啊。您功底很强。

jason680

回复  jason680


    您的例子不错，但是你用的是perl,shell，perl混合使用，可能会影响程序的健壮性。 ...
hfvbc 发表于 2011-08-11 10:51

>>    6，代码最好可以在aix,hp-unix,redhat等linux上运行。

如果你不认为perl -e '{...}' 为shell command
我想第六点,一般的shell script都达不到....去写个C吧!!!
不要再"缘木求鱼"了...

hfvbc

回复 33# jason680


    呵呵，其实只要能实现我要的功能我就满足了，比如说可在多平台上运行，这只是如果满足了，那再好不过的了。

   我现在用的是bash,而perl我好象没见人在shell命令里用过，所以是我少见多怪了。

hfvbc

大牛现身呀，帖子不要沉了呀。
其实这个需求是很常见的呢，db2 del导出的数据转换成定分割符的数据。

jason680

求人不如求己...

hfvbc

高人在哪呢？

jason680

高人在哪呢？
hfvbc 发表于 2011-08-11 14:04

不完善,还能行....
$ echo '1,"nihao,shia,"shi","hiscihe",3,8
1,"nihao,sh ma",shi","hiscihe",3,8' | awk -v K='^|^' -v D="," 'function Err(e){print e" <--Error";next}{L=length($0);s=0;for(n=0;n++<L{w=substr($0,n,1);if(s==0){if(w~/[0-9]/){printf w;s=1}else if(w=="\""{s=2}else Err(w)}else if(s==1){if(w~/[0-9]/){printf w}else if(w==D){s=0;printf K}else Err(w)}else if(s==2){if(w=="\""&&substr($0,n+1,1)==D){x=substr($0,n+2,1);if(x~/[0-9]/){s=0;printf K;n++}else if(x=="\""{printf K;n+=2}else printf w}else printf w}}print ""}'
1^|^nihao,shia,"shi^|^hiscihe^|^3^|^8
1^|^nihao,sh ma",shi^|^hiscihe^|^3^|^8

不完善,还能行....

说明:
  s=0, for initial or new item
  s=1, for number
  s=2, for "string"

1. 
   
2. 1,"nihao,shia,"shi","hiscihe",3,8
   
3. 102222222222222222202222222220101 <--- s
   
4. 1,"nihao,sh ma",shi","hiscihe",3,8
   
5. 1022222222222222222202222222220101    <--- s
   

复制代码

java_html

回复 1# hfvbc


    楼主给出的从db2中导出数据，字符类型，双引号为啥不匹配呢？

hfvbc

回复 38# jason680


    您的代码写的非常好，非常感谢。我在开始也借鉴了您的代码。

   但是同时您按字符扫描，数据文件很大的话，效率可能有点慢。数据复杂的话，您的 if(s==2)这一部分可能还待完善。

谢谢您的不懈支持啊