use File::Path;
rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
[download]

I tried but get error message for this code:

foreach $folder (@iqfolder_arr)
{ 
   print("Printing from inside the last foreach but before rmdir: $fol
+der\n");
   $ftp_disco->rmtree(['/ep005/egate/client/iq/$folder'], 1, 1) || die
+ "Error: @{[ $ftp_disco->message ]}\n";
}
[download]


Can't locate object method "rmtree" via package "Net::FTP" (perhaps you forgot t o load "Net::FTP"?) at C:/Perl/eg/data/clr_IQ.pl line 86.

so I also tried:


foreach $folder (@iqfolder_arr)
{ 
   print("Printing from inside the last foreach but before rmdir: $fol
+der\n");
   rmtree(['/ep005/egate/client/iq/$folder'], 1, 1) || die "Error: @{[
+ $ftp_disco->message ]}\n";
}
[download]



but got this error: Error: Opening data connection for .. Transfer complete.

you need  use File::Path; in front of your script to import the function rmtree. but sure this will not work with ftp. It looks you try with Net::Ftp ftp is not telent. Within ftp try rmdir.

$ftp->rmdir('your_directory', 1);
[download]

but it is untested.

Perhaps you want to look at using Net::Telnet's cmd method?

Telnet is highly insecure and should never be recommended. Use SSH whenever possible!

I use ftp to get some log files then remove or delete them from the server which works good. I am trying to do the same with the folders (ie {FJWEOI-3HEJW....}).

use File::glob;
use strict;
use Net::FTP;
use File::Copy;
use File::Path;
use File::Remove;

my $host_disco = "censored";
my $user_disco = "censored";
my $password_disco = "censored";
my $ftp_disco = "";
my $dir = "/";
my $diriq_disco = "/ep005/egate/client/iq";
my @iqfiles_disco = "";
my $file1 = "";
my @iqfolder_arr = "";
my $folder = "";
my $iqfolder = "";
my $folder1 = "";
my $count = 0;

#-------------------------

$ftp_disco = Net::FTP->new($host_disco) or die "Can't open $host_disco
+: $@\n";
$ftp_disco->login($user_disco, $password_disco) or die "Couldn't login
+: @{[ $ftp_disco->message ]}";
$ftp_disco->ascii();
$ftp_disco->cwd($dir) or die "Couldn't cwd to $dir: @{[ $ftp_disco->me
+ssage ]}\n";
$ftp_disco->cwd($diriq_disco) or die "Couldn't cwd to $diriq_disco: @{
+[ $ftp_disco->message ]}\n";

@iqfolder_arr = $ftp_disco->ls;

foreach $folder1 (@iqfolder_arr)
{

  $iqfolder_arr[$count] =~ s/ //g;
  $iqfolder_arr[$count] =~ s/\n//g;
  $count++  }

foreach $folder (@iqfolder_arr)
{ 
 my $dirpath = '/ep005/egate/client/iq/';
 $dirpath .= $folder;
 print($dirpath);
 $ftp_disco->rmdir($dirpath) || die "FTP Message> @{[ $ftp_disco->mess
+age ]}\n";

}

$ftp_disco->close();

$file1 = "";
sleep(2);
print("Disco IQs have been cleared.\n");

#-----------------------------------#
[download]