twisterarmy/twister-seeder
1
0
Fork 0
mirror of https://github.com/twisterarmy/twister-seeder.git synced 2025-03-12 05:21:58 +00:00
Code Issues Projects Releases Wiki Activity

Normalize inputs in combine.pl

Browse Source
This commit is contained in:
Pieter Wuille 2012-04-18 01:41:51 +02:00
parent d5521c6bd2
commit 044a8b6dbb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
combine.pl
View File

@ -5,14 +5,19 @@ use strict;
sub loadFile { sub loadFile {
my ($file) = @_; my ($file) = @_;
my %ret; my %ret;
my $min = 100000000;
open FILE,$file; open FILE,$file;
while (<FILE>) { while (<FILE>) {
my ($addr,$p2h,$p8h,$p1d,$p1w,$p1m) = split(/\s+/,$_); my ($addr,$p2h,$p8h,$p1d,$p1w,$p1m) = split(/\s+/,$_);
if ($p1m =~ /\A([1-9.]+)%\Z/) { if ($p1m =~ /\A([1-9.]+)%\Z/) {
my $x = log($1*0.01)/log(0.5); my $x = log($1*0.01)/log(0.5);
$min=$x if ($x < $min);
$ret{$addr} = $x; $ret{$addr} = $x;
} }
} }
for my $k (keys %ret) {
$ret{$k} -= $min;
}
close FILE; close FILE;
return \%ret; return \%ret;
} }