Help for this page
my @box; for (...) { ... $MinX, $MinY, $MaxX, $MaxY, ($MaxX - $MinX) * ($MaxY - $MinY)]; }
@box = sort { $a->[5] <=> $b->[5] } @box;
use Sort::Key qw(nkeysort_inplace); nkeysort_inplace { $_->[5] } @box;
# untested! ... } return ($max, @max); }
www.com | www.net | www.org
No recent polls found