亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: [求助]awk能否實(shí)現(xiàn)類似excel數(shù)據(jù)透視表功能 [打印本頁]

作者: hgx126 時(shí)間: 2016-03-04 23:42
標(biāo)題: [求助]awk能否實(shí)現(xiàn)類似excel數(shù)據(jù)透視表功能
本帖最后由 hgx126 于 2016-03-04 23:43 編輯

一文本如下:

機(jī)構(gòu)編號(hào),商戶號(hào),姓名,金額,等級(jí)
5411,54117648,張斌,67,100
5412,60519607,胡蓉,57,60
5412,54119444,羅鑫,17,30
5412,54119445,陳延德,38,60
5411,54119477,楊曉榮,13,30
5411,54119476,鄭元兵,58,60
5411,54119476,鄭元兵,98,100
5416,54119471,羅小平,21,30
5416,54119470,何燕,30,60
5416,54119470,何燕,30,60
5416,54119468,羅國江,74,100

復(fù)制代碼

按機(jī)構(gòu)號(hào)分為行,等級(jí)為列,統(tǒng)計(jì)商戶號(hào)數(shù)量,金額求和,類似excel數(shù)據(jù)透視表功能，結(jié)果如下:

機(jī)構(gòu)編號(hào),30,30,60,60,100,100,合計(jì),合計(jì)
機(jī)構(gòu)編號(hào),商戶號(hào)數(shù)量,金額,商戶號(hào)數(shù)量,金額,商戶號(hào)數(shù)量,金額,商戶號(hào)數(shù)量,金額
5411,1,13,1,58,2,165,4,236
5412,1,17,2,95,0,0,3,112
5416,1,21,2,60,1,74,4,155
總計(jì),3,51,5,213,3,239,11,503

復(fù)制代碼

作者: cao627 時(shí)間: 2016-03-05 09:09
第2個(gè)表和第一個(gè)表之間的邏輯關(guān)系真心看不懂！@hgx126

作者: rubyish 時(shí)間: 2016-03-05 23:49
回復(fù) 1# hgx126

awk ~ bd

shishi perl:

perl toss.pl file

toss.pl

#!/usr/bin/perl
use 5.010;
open my $DATA, shift or die $!;
readline $DATA;
my ( $O, $o ) = ( [ 0, 0 ], ',' );
my ( %G, %X, %H, %V, $V );
while (<$DATA>) {
chomp;
my ( $n, undef, undef, $m, $g ) = split $o;
$G{$g} ||= 1;
$_->[0]++, $_->[1] += $m for $X{$n}{$g}, $H{$n}, $V{$g}, $V;
}
my @G = sort { $a <=> $b } keys %G;
say join $o, '機(jī)構(gòu)編號(hào)', map { ($_) x 2 } @G, '合計(jì)';
say join $o, '機(jī)構(gòu)編號(hào)', ( '商戶號(hào)數(shù)量', '金額' ) x ( @G + 1 );
for my $n ( sort { $a <=> $b } keys %X ) {
say join $o, $n, map( @{ $X{$n}{$_} || $O }, @G ), @{ $H{$n} };
}
say join $o, '總計(jì)', map( @{ $V{$_} }, @G ), @$V;

復(fù)制代碼

作者: jcdiy0601 時(shí)間: 2016-03-07 09:50
awk -F, '{a[$1" "$2]+=$4;b[$1" "$2]++}END{for(i in a)print i,a[i],b[i]}' file|awk '{print $1,$4,$3}' |awk '{a[$1]=a[$1]","$2","$3}END{for(i in a)print i,a[i]}'
5416 ,2,60,1,21,1,74
5411 ,1,67,2,156,1,13
5412 ,1,17,1,38,1,57

歡迎光臨 Chinaunix (http://72891.cn/)