> I want to list all files only within a directory
> (do not descend to sub-directories).
> [and catch log files needing to be added]

How about something like:

    $^T = $last_full_log_seconds;
    while (glob $logs)
    {
        -f and -M > 0 or push @logs_old, $_ ;
    }

$^T is the start time for the perl script.
-M is the age of a file since the perl script started.
glob $logs returns all directory entries matching $logs.
The $_ default variable is used throughout.

hth.

Reply via email to