~ubuntu-branches/ubuntu/quantal/ceph/quantal

« back to all changes in this revision

Viewing changes to src/script/merge_cdfs.pl

• browse files at revision 1.1.10
• compare with another revision
• download diff
• download tarball
• view history from revision 1.1.10

Show diffs side-by-side

added

removed

src/script/merge_cdfs.pl

 

1

#!/usr/bin/perl

 

2

 

 

3

my %rows;  # val -> [ count1, count2, ... ]

 

4

 

 

5

my $filen = 0;

 

6

for my $file (@ARGV) {

 

7

    open(I,"$file");

 

8

    while (<I>) {

 

9

        next if /^\#/;

 

10

        chomp;

 

11

        my ($v, $c) = split(/\t/,$_);

 

12

        $rows{$v}->[$filen] = $c;

 

13

    }

 

14

    $filen++;

 

15

}

 

16

 

 

17

for my $v (sort {$a <=> $b} keys %rows) {

 

18

    print "$v";

 

19

    for (my $i=0; $i < $filen; $i++) {

 

20

        print "\t" . int($rows{$v}->[$i]);

 

21

    }

 

22

    print "\n";

 

23

    #print join("\t", $v, @{$rows{$v}}) . "\n";

 

24

}

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1