Help for this page
my %filenames =(); foreach( <post*.*> ) { $filenames{$_} = -M $_; }
my @sorted_keys = sort { $filenames{$a} <=> $filenames{$b}} keys %file +names;
foreach my $filename ( @filenames ) { # create an ANONYMOUS array (basically a reference to an array) my $record = [ $filename, -M $filename ]; push @filesanddates, $record; }
www.com | www.net | www.org
No recent polls found