~ubuntu-branches/ubuntu/precise/openssl098/precise

« back to all changes in this revision

Viewing changes to crypto/lhash/num.pl

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

Show diffs side-by-side

added

removed

crypto/lhash/num.pl

 

1

#!/usr/local/bin/perl

 

2

 

 

3

#node     10 ->   4

 

4

 

 

5

while (<>)

 

6

        {

 

7

        next unless /^node/;

 

8

        chop;

 

9

        @a=split;

 

10

        $num{$a[3]}++;

 

11

        }

 

12

 

 

13

@a=sort {$a <=> $b } keys %num;

 

14

foreach (0 .. $a[$#a])

 

15

        {

 

16

        printf "%4d:%4d\n",$_,$num{$_};

 

17

        }

• Older »

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