1#!/usr/local/bin/perl 2 3sub { 4 my ($filename) = @_; 5 my $rotated_filename=""; 6 # find out whether we have a dateext rotation scheme 7 my @list = glob("$filename-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]"); 8 if ( @list ) { 9 $rotated_filename = (sort(glob("$filename-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]")))[-1]; 10 } 11 return $rotated_filename; 12} 13