http://qs321.pair.com?node_id=326549


in reply to Need help deleting IQ Folders

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

[download]

Replies are listed 'Best First'.
Re: Re: Need help deleting IQ Folders
by new_monk (Sexton) on Feb 04, 2004 at 19:34 UTC
    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.
[reply]
[d/l]
[select]
      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.
[reply]
[d/l]
[select]
        I was trying that previously but it did not work. Maybe b/c of the way these IQs are named?
        {RTI3420-EWD923E-RTER4-T4R3}
[reply]
        I tried a couple of different Modules and methods. I will try rmdir.
[reply]

In Section Seekers of Perl Wisdom