Recent Files and Creating Symbolic Links

[Don Erickson]

On Sun, 6 Mar 2005, Jonathan Hutchins wrote:

> Rather than pipe the output to a text file, use the "exec" option of find to
> execute the symlink command - something like
>
> find /path/ -mtime 48 -name '*.jpg' -exec -s /path/{} WhatsNew/{} \;

While not as elegant as Jonathan's solution, the following has the
advantage or totally regenerating the new picture links when it is run -
first cd to the directory with your photos:

----8<-------------------------------
#! /usr/bin/perl
system("rm -r newpix; mkdir newpix");
(@newpix)=qx (find . -mtime -3 -name '*.jpg');
print "@newpix\n";
foreach $_ (@newpix) {
    chomp ($link =($_));
    $newlink = "newpix/$link";
    system ("ln -s '$link' '$newlink'");
};

print "\n\nDone.\n";
exit;

---->8---------------------------

This will link to files created in the last 36 hours, the -3
(days) argument to mtime.



Regards,

-Don