|
|
@ -87,12 +87,12 @@ print("\ntoobig : $toobig\n"); |
|
|
|
print("\ntoosmall : $toosmall\n"); |
|
|
|
print("\ntoosmall : $toosmall\n"); |
|
|
|
|
|
|
|
|
|
|
|
# TOO BIG ? |
|
|
|
# TOO BIG ? |
|
|
|
my $toobig = "true"; |
|
|
|
my $toobig = "1"; |
|
|
|
if ( $json->{new_size} > $json->{new_size_q3} + $json->{new_size_q3} - $json->{new_size_q1} * 1.5 && $json->{new_size} > $json->{new_size_avg} * 6 ) { |
|
|
|
if ( $json->{new_size} > $json->{new_size_q3} + $json->{new_size_q3} - $json->{new_size_q1} * 1.5 && $json->{new_size} > $json->{new_size_avg} * 6 ) { |
|
|
|
$toobig = "false"; |
|
|
|
$toobig = "0"; |
|
|
|
} |
|
|
|
} |
|
|
|
else { |
|
|
|
else { |
|
|
|
$toobig = "true"; |
|
|
|
$toobig = "1"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
print("\ntoobig : $toobig\n"); |
|
|
|
print("\ntoobig : $toobig\n"); |
|
|
@ -100,19 +100,19 @@ print("\ntoosmall : $toosmall\n"); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# TOO SMALL ? |
|
|
|
# TOO SMALL ? |
|
|
|
my $toosmall = "true"; |
|
|
|
my $toosmall = "1"; |
|
|
|
if ( $json->{new_size} < $json->{new_size_q1} - $json->{new_size_q3} - $json->{new_size_q1} * 1.5 && $json->{new_size} < $json->{new_size_avg} / 3 ) { |
|
|
|
if ( $json->{new_size} < $json->{new_size_q1} - $json->{new_size_q3} - $json->{new_size_q1} * 1.5 && $json->{new_size} < $json->{new_size_avg} / 3 ) { |
|
|
|
$toosmall = "false"; |
|
|
|
$toosmall = "0"; |
|
|
|
} |
|
|
|
} |
|
|
|
else { |
|
|
|
else { |
|
|
|
$toosmall = "true"; |
|
|
|
$toosmall = "1"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
print("\ntoobig : $toobig\n"); |
|
|
|
print("\ntoobig : $toobig\n"); |
|
|
|
print("\ntoosmall : $toosmall\n"); |
|
|
|
print("\ntoosmall : $toosmall\n"); |
|
|
|
|
|
|
|
|
|
|
|
# Print result |
|
|
|
# Print result |
|
|
|
if ( $toobig eq "false" && $toosmall eq "false" ) { |
|
|
|
if ( $toobig == "0" && $toosmall == "0" ) { |
|
|
|
print("Normal"); |
|
|
|
print("Normal"); |
|
|
|
} |
|
|
|
} |
|
|
|
else { |
|
|
|
else { |
|
|
|