#!/usr/bin/perl -w # $b; } sub modtime { my $path = shift; return (stat($path))[9]; } sub median { @_ == 1 or die('Sub usage: $median = median(\@array);'); my ($array_ref) = @_; my $count = scalar @$array_ref; # Sort a COPY of the array, leaving the original untouched my @array = sort numeric @$array_ref; if ($count % 2) { return $array[int($count / 2)]; } else { return ($array[$count / 2] + $array[$count / 2 - 1]) / 2; } }