Code:
if ($friendly_dancing_file_name =~ m/(\d+)\./) {
print "oh goody, looks like the file's date is $1\n";
print "abort, return, continue, are you sure?\n";
<>;
}
If you don't know any
Perl and would like for someone to write the script for you for free, now would be a good time to let us know. Did you look at the Date module's documentation, the
Perl FAQ, and the FAQ for these forums? Date calculations are a frequently recurring topic and most questions you could imagine have already been asked and answered thoroughly.
