File::Find::Rule wrapper

pfind ()

{

    perl -MFile::Find::Rule -le 'print for File::Find::Rule->file()->name(shift)->grep(shift)->ctime(qq(>=@{[time-3600*shift]}))->in(shift)' $*

}

Posted via email from purl's posterous