【用shell实现二维表格】

AmboLong

从数据库取出三列数据:

籍贯        所在省份        人数
上海人        北京        120
广东人        广东        320
吉林人        湖北        120
上海人        四川        80
四川人        江苏        20
湖南人        湖北        20
四川人        四川        40
广西人        北京        60
江西人        北京        70
四川人        广东        80
湖南人        四川        45
湖北人        湖南        36
四川人        湖南        78
.        .        .
.        .        .
.        .        .
.        .        .


希望用shell实现输出一个二维表格（表格用html代码）：

        上海人        广东人        吉林人        四川人        广西人        湖南人        江西        湖北人
北京        120        0        0        0        60        0        70        0
广东        0        320        0        80        0        0        0        0
湖北        0        0        120        0        0        20        0        0
四川        80        0        0        40        0        45        0        0
江苏        0        0        0        20        0        0        0        0
湖南        0        0        0        78        0        0        0        36


由于籍贯和所在省份不是一个固定的数字，所以有些伤脑筋，待达人。

[ 本帖最后由 AmboLong 于 2009-3-20 14:09 编辑 ]

welcome008

把每行输出到while循环内的一个变量里

然后提取这个变量的不同字段，中间加上合适的html代码好了

AmboLong

能否写个代码，感谢。

dream3401

试着写个perl的:
#!/usr/bin/perl
while(<>){
        chomp;
        ($home,$now,$count)=split;
        $home{$home}++;
        $now{$now}->{$home}=$count;
}
$,="\t";
print "\t",keys %home,"\n";
for $now (keys %now){
        print $now,"\t";
        for $home (keys %home){
                if(exists $now{$now}->{$home}){
                        print "$now{$now}->{$home}\t";
                }else{
                        print "0\t"
                }
        }
        print "\n";
}

版主说的是,有了思路,实现起来就容易:
awk 'NR>1{home[$1]++;now[$2]++;count[$1""$2]=$3}END{printf "\t";for(j in home){printf j"\t";}print "";for(k in now){printf k"\t";for(j in home){printf count[j""k]+0"\t";}print "";}}' file

[ 本帖最后由 dream3401 于 2009-3-20 17:03 编辑 ]

AmboLong

不错，期待shell的版本，供大家学习。

waker

什么版的不都就是个循环打印么？

1. 
   
2. awk 'NR>1{if(!a[$1]++)ai[i++]=$1;if(!b[$2]++)bi[j++]=$2;c[$1,$2]=$3}
   
3. END{for(m=0;m<i;m++)printf "\t"ai[m];print ""
   
4. for(n=0;n<j;n++){printf bi[n];for(m=0;m<i;m++)printf "\t"c[ai[m],bi[n]]+0;print ""}}' urfile
   

复制代码

AmboLong

版主一出手就知有没有。。

AmboLong

发现一个问题，籍贯这一列存在为空的行。也就是如下：

籍贯        所在省份        人数
上海人        北京        120
              广东        320
广东人        广东        320
吉林人        湖北        120
上海人        四川        80
四川人        江苏        20
湖南人        湖北        20
四川人        四川        40
广西人        北京        60
江西人        北京        70
四川人        广东        80
湖南人        四川        45
湖北人        湖南        36
四川人        湖南        78
.        .        .
.        .        .
.        .        .
.        .        .

当籍贯为空希望输出的二维表格的空列字段，也就是说把空籍贯当种一类籍贯输出。脚本需要如何改呢？因为发现如果有籍贯为空的列，原先的脚本会影响整个输出。

        上海人        广东人        吉林人        四川人        广西人        湖南人        江西        湖北人    NULL
北京        120        0        0        0        60        0        70        0       0
广东        0        320        0        80        0        0        0        0         320
湖北        0        0        120        0        0        20        0        0         0
四川        80        0        0        40        0        45        0        0         0
江苏        0        0        0        20        0        0        0        0             0
湖南        0        0        0        78        0        0        0        36           0

[ 本帖最后由 AmboLong 于 2009-3-20 18:15 编辑 ]

AmboLong

未完待顶

dream3401

如果有一行只有两个字段,并且缺少的是第一个字段,就是哪里人的话,可以这样:
awk 'NR>1{if(NF==2){$3=$2;$2=$1;$1="NULL";}home[$1]++;now[$2]++;count[$1""$2]=$3}END{printf "\t";for(j in home){printf j"\t";}print "";for(k in now){printf k"\t";for(j in home){printf count[j""k]+0"\t";}print "";}}' file

或是将我上面写的perl改一下:
#!/usr/bin/perl
while(<>){
        next if $.==1;
        chomp;
        ($home,$now,$count)=split;
        ($home,$now,$count)=("NULL",$home,$now) unless $count;        $home{$home}++;
        $now{$now}->{$home}=$count;
}
$,="\t";
print "\t",keys %home,"\n";
for $now (keys %now){
        print $now,"\t";
        for $home (keys %home){
                if(exists $now{$now}->{$home}){
                        print "$now{$now}->{$home}\t";
                }else{
                        print "0\t"
                }
        }
        print "\n";
}

[ 本帖最后由 dream3401 于 2009-3-20 20:20 编辑 ]