use strict;
use Net::FTP;

use constant SERVER   => 'server.somewhere.com';
use constant USERID   => 'anonymous';
use constant PASSWORD => 'my.mail@somewhere.com';
use constant RMTDIR   => '/tmp';

my $mFTP;


#-- Open the connection
$mFTP = Net::FTP->new(SERVER, Debug => 0);
$mFTP->login(USERID,PASSWORD);


#-- Process the contents
$mFTP->cwd(RMTDIR);
foreach ($mFTP->ls)
{

  $mFTP->rmdir($_);

  if ($mFTP->ls($_))
  {
    print $_," is a file...\n";
  }
  else
  {
    print $_," *was* a directory...\n";

    #-- Add file create code here...
  }
}


#-- Close the connection
$mFTP->quit;
[download]

                - Ant
                - Some of my best work - Fish Dinner

stat() and File::stat should be able to help in this regard.

$mode gives type as well as permissions.

I thought of that, but haven't been able to find a way to run it over the ftp connection.

if i run it locally (@list = stat(FILEHANDLE);)its gonna give me an error because the file is on the remort server. i would have to run it like @list = stat($ftp->get($filename)); .. but that would cause me to retrieve the file, not what i am looking for.

According the the Net:FTP docs Stat is the FTP stat command, which returns the server status, not of a specific file. (and its not implimented yet from what i can tell)

Mbond

>its gonna give me an error because the file is on the remort server.

Yes, I realized that too late. Could you try a telnet session to each box instead of FTP?

update: Assuming that's not feasible, you could do $ftp->cwd($path,$filename) If that succeeds, delete it.