File: statsNum.pl

package info (click to toggle)
snpeff 5.4.b%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 757,496 kB
  • sloc: java: 62,572; perl: 2,279; sh: 1,185; python: 744; xml: 507; makefile: 50
file content (23 lines) | stat: -rwxr-xr-x 405 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/usr/bin/perl

$sum = 0;

for( $count = $lines = 0 ; $l = <STDIN> ; $lines++ ) {
	chomp $l;
	if( $l ne '' ) {
		if( $count == 0 ) {
			$max = $l;
			$min = $l;
		} else {
			$max = $l if $max < $l;
			$min = $l if $min > $l;
		}

		$sum += $l;
		$count++;
	}
}

$avg = 0;
$avg = $sum / $count if $count > 0;
print "lines: $lines\tnumber of values: $count\tmin: $min\tmax: $max\tsum: $sum\tavg: $avg\n";