You can use the -d file test to check if the file is a directory before moving it.
unless(-d $whatever_file){
do whatever...
-----Original Message-----
From: "Shu Hung (æé)" [mailto:[EMAIL PROTECTED]
Sent: Fri 6/11/2004 3:50 AM
To: Perl Beginner Mail Group
Cc:
Subject: search and move 'expired files'
Hello all,
I want a script to move all 'expired files' to a folder.
So I wrote the script below.
However, a problem came out: the find function run everything
in the address, including the entire folders structure!!!
