处理数据 请帮忙看看

jason680

回复 1# lxzkenney


$ perl -lane '{$,="\t";if($.==1){print @F[0..2],"电话号码";@t=@F}
else{for$n(3..$#F){for(split",",$F[$n]){if(m/(\d+)-(\d+)/){print @F[0..2],"$t[$n]$_" for($1..$2)}}}} }' FILE
省份        城市        城市区号        电话号码
陕西        西安        29        1476300
陕西        西安        29        1476301
陕西        西安        29        1476302
陕西        西安        29        1476303
陕西        西安        29        1476020
陕西        西安        29        1476021
陕西        西安        29        17050660
陕西        西安        29        17050661
陕西        西安        29        17050662

   

li0924

直译；代码长了点

1. awk 'NR==1{print $1,$2,$3,"tel";t1=$4;t2=$5;next}{t=$1 FS $2 FS $3;l=split($4,a,",");for(i=1;i<=l;i++){split(a[i],b,"-");for(j=b[1];j<=b[2];j++)print t FS t1 j};k=split($5,c,",");for(i=1;i<=k;i++){split(c[i],d,"-");for(j=d[1];j<=d[2];j++)print t FS t2 j}}' file

复制代码

LikeLx

回复 3# li0924
020-021的有问题

   

chengchow

3F写的确实有点问题，我也遇到了，字符做运算左边的0会自动撤销，不知道有什么好的解决方法

1. gentoo ~ # awk 'BEGIN{x=4;OFS="\t"}NR==1{for(i=x;i<=NF;i++){a[i]=$i}{print $1,$2,$3,"tel"}}NR!=1{for(i=x;i<=NF;i++){split($i,b,",");for(j in b){split(b[j],c,"-");for(k=c[1];k<=c[2];k++){print $1"\t",$2,$3,"\t"a[i]k}}}}' 1
   
2. province        city    citycode        tel
   
3. shanxi          xi'an   29              1476300
   
4. shanxi          xi'an   29              1476301
   
5. shanxi          xi'an   29              1476302
   
6. shanxi          xi'an   29              1476303
   
7. shanxi          xi'an   29              1476020
   
8. shanxi          xi'an   29              147621
   
9. shanxi          xi'an   29              17050660
   
10. shanxi          xi'an   29              17050661
    
11. shanxi          xi'an   29              17050662
    

复制代码

jason680

回复 5# chengchow

printf or sprintf with length and zero (ex: 03d%)

Note: get length from the first number (ex: length(c[1]))   

zxy877298415

回复 1# lxzkenney
awk -F '[, ]+' 'NR==1{print $1,$2,$3,"电话号码";a=$4;b=$5}
NR==2{split($4,c,"-");split($5,d,"-");split($6,e,"-");f=$1" "$2" "$3"    " }
END{for(i=c[1];i<=c[2];i++) {print f a i;};
for(j=d[1];j<=d[2];j++){ if(!l){ print f a j;l++} else {t=sprintf ("0%s",j);print f a t}};
for(k=e[1];k<=e[2];k++){print f b k }}' file

   

木子霜葶

回复 1# lxzkenney


    awk 'NR==1{printf("%s\t%s\t%s\t电话号码\n", $1, $2, $3); for(i = 4; i <= NF; ++i) {pre[i-3]=$i}; next} {pro=$1; city=$2; code=$3; for(i = 4; i <= NF; ++i) {post[i-3]=$i}; for(i in pre) {num=post; k = split(num, b, ","); for(j = 1; j <= k; ++j) {num1=b[j]; split(num1, c, "-"); for(m = c[1]; m <= c[2]; ++m) {printf("%s\t%s\t%s\t%s%03d\n", pro, city, code, pre, m)}}}}' a

reb00t

占位～～！

chengchow

1. awk 'BEGIN{x=4}NR==1{for(i=x;i<=NF;i++){a[i]=$i}{printf "%-10s %-10s %-10s %-10s\n",$1,$2,$3,"tel"}}NR!=1{for(i=x;i<=NF;i++){split($i,b,",");for(j in b){split(b[j],c,"-");for(k=c[1];k<=c[2];k++){l=length(c[1]);printf "%-10s %-10s %-10s %-0s",$1,$2,$3,a[i];printf  "%0"l"d\n",k}}}}' 1
   
2. province   city       citycode   tel
   
3. shanxi     xi'an      29         1476300
   
4. shanxi     xi'an      29         1476301
   
5. shanxi     xi'an      29         1476302
   
6. shanxi     xi'an      29         1476303
   
7. shanxi     xi'an      29         1476020
   
8. shanxi     xi'an      29         1476021
   
9. shanxi     xi'an      29         14760010
   
10. shanxi     xi'an      29         14760011
    
11. shanxi     xi'an      29         14760012
    
12. shanxi     xi'an      29         17050660
    
13. shanxi     xi'an      29         17050661
    
14. shanxi     xi'an      29         17050662
    

复制代码

回复 6# jason680
恩，谢谢，咋又不说中文了