Advanced Search

Return to Snippet

Revision: 19834
at November 1, 2009 13:25 by deepsoul
Initial Code 
find directory -type f | perl -e 'my $l=0; my $n=""; while( <> ) { chomp; my $t= ${[stat($_)]}[9]; $t > $l and ($l= $t, $n= $_); } print "$n\t".localtime($l), "\n";'
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Find the most recently modified file in a directory tree and output its name and modification time.  Use index 8 or 10 instead of 9 for access and inode modification time, respectively (see perlfunc manual page - function stat).

This is great for deciding what directories to backup.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Find newest file and its modification time

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
perl, find

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Bash