Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Re: Delete folders via FTP

by new_monk (Sexton)
on Feb 09, 2004 at 00:38 UTC ( [id://327522]=note: print w/replies, xml ) Need Help??


in reply to Re: Delete folders via FTP
in thread Delete folders via FTP

Thanks for your reply. Here is my code and the errors:
Here is the code:
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"); #-----------------------------------#


Error Message:
/ep005/egate/client/iq/{E9424A48-0086-11D7-AE05-AD16EA76821A}FTP Messa +ge> /ep005 /egate/client/iq/{E9424A48-0086-11D7-AE05-AD16EA76821A}: D +o not specify an exist ing file. Press Enter to continue

Seems like I have the right idea and the correct methods maybe but I am not sure if maybe the folder that I am trying to remove maybe causing the problem because of the "{}" brackets. I tried using an asterick too but to no avail. I can rename the folders too.

Replies are listed 'Best First'.
Re: Delete folders via FTP
by Abigail-II (Bishop) on Feb 09, 2004 at 09:35 UTC
    Are you sure you only attempt to remove empty directories? To me it seems you are trying to delete all entries in /ep005/egate/client/iq/, regardless whether they are files, non-empty directories or empty directories.

    But then, I only looked at your program briefly. It's just a wad of undocumented code, without explaining what it is supposed to do. The error message is not a Perl error.

    Abigail

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://327522]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2024-03-28 19:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found