- 论坛徽章:
- 7
|
回复 1# LT2016
shishi ~~
- #!/usr/bin/perl
- # version 26, subversion 0 (v5.26.0)
- use 5.024;
- my %dit;
- while (<DATA>) {
- my ( $S, $A, $N ) = split;
- push @{ $dit{$A}{$S} }, $N;
- }
- while ( my ( $C1, $V ) = each %dit ) {
- my ( $C2, $C3, $C4, $C5 );
- for my $K ( sort keys %$V ) {
- my $N = $V->{$K};
- $C2 += @$N;
- $C3++;
- $C4 .= ( $C4 ? ';' : '' ) . "$K(" . @$N . ')';
- $C5 .= ( $C5 ? ';' : '' ) . "$K:" . join( ',', @$N );
- }
- say join "\t", $C1, $C2, $C3, $C4, $C5;
- }
- __DATA__
- S1 A1 1
- S1 A1 2
- S2 A1 1
- S2 A1 3
- S1 A2 2
- S1 A2 1
- S3 A2 1
- S2 A2 1
复制代码
|
|