Pastable version of Find the file with the highest mtime in a directory

<pre class='prettyprint' language='perl'>#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;
use File::Find;
use File::stat;
use Carp;

my $files_path = &quot;/tmp/files/&quot;;

my %files;

sub files_wanted { 
    if (/\.tgz$/) {
        my $current_file_mtime       = stat($File::Find::name)-&gt;mtime or croak &quot;Error, could not stat file $File::Find::name&quot;;
        $files{$current_file_mtime}  = $File::Find::name;
    };
}

find( \&amp;files_wanted ,$files_path);
print '%files:' . &quot;\n&quot; . Dumper(\%files);

my @sorted_files_mtimes =  reverse sort keys %files; 
print &quot;sorted_files_mtimes=$sorted_files_mtimes[0]\n&quot;;

my $newest_file     = $files{$sorted_files_mtimes[0]};
print &quot;$newest_file\n&quot;;</pre>
<a href="http://www.refactormycode.com/codes/698-find-the-file-with-the-highest-mtime" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Find the file with the highest mtime in a directory