RE: search and move 'expired files'

[Tim Johnson]

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!!!