#!/usr/bin/perl my $base = "logs/"; open FLIST, "-|", "find $base -name 'rockbox*.txt'" or die "Can't execute find: $!"; my @logs; while () { chomp; s/$base(.*)/$1/; push @logs, $_; } close DIR; print "Content-type: text/html\n\n\n"; foreach (reverse sort @logs) { /(\d\d\d\d)(\d\d)(\d\d)/; print "$1-$2-$3
\n"; } print "\n";