|
|
@ -95,8 +95,24 @@ else { |
|
|
|
$toobig = "1"; |
|
|
|
$toobig = "1"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
print("\ntoobig : $toobig\n"); |
|
|
|
|
|
|
|
print("\ntoosmall : $toosmall\n"); |
|
|
|
# Debug |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
print("DEBUG"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size : $json->{new_size}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_q1 : $json->{new_size_q1}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_q3 : $json->{new_size_q3}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_avg : $json->{new_size_avg}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("toobig : $toobig\n"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("toosmall : $toosmall\n"); |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
# /Debug |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# TOO SMALL ? |
|
|
|
# TOO SMALL ? |
|
|
@ -108,8 +124,25 @@ else { |
|
|
|
$toosmall = "1"; |
|
|
|
$toosmall = "1"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
print("\ntoobig : $toobig\n"); |
|
|
|
|
|
|
|
print("\ntoosmall : $toosmall\n"); |
|
|
|
# Debug |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
print("DEBUG"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size : $json->{new_size}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_q1 : $json->{new_size_q1}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_q3 : $json->{new_size_q3}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_avg : $json->{new_size_avg}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("toobig : $toobig\n"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("toosmall : $toosmall\n"); |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
# /Debug |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Print result |
|
|
|
# Print result |
|
|
|
if ( $toobig or $toosmall ) { |
|
|
|
if ( $toobig or $toosmall ) { |
|
|
@ -121,4 +154,25 @@ else { |
|
|
|
print("\n"); |
|
|
|
print("\n"); |
|
|
|
print("Random file : .........."); |
|
|
|
print("Random file : .........."); |
|
|
|
print("\n----------------\n"); |
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Debug |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
print("DEBUG"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size : $json->{new_size}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_q1 : $json->{new_size_q1}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_q3 : $json->{new_size_q3}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("new_size_avg : $json->{new_size_avg}"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("toobig : $toobig\n"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("toosmall : $toosmall\n"); |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
# /Debug |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
exit(0); |
|
|
|
exit(0); |
|
|
|