in reply to Remove an existing, non-empty, directory re: Archive::Zip

File::Path's rmtree() may be of help here:

use warnings;
use strict;

use File::Path qw(rmtree);

my $dir = 'example';

rmtree $dir or die "can't remove the damned dir $dir!";

[download]

I'll leave it up to you to get the directory names and then use rmtree() in a loop.

Replies are listed 'Best First'.
Re^2: Remove an existing, non-empty, directory re: Archive::Zip
by EigenFunctions (Beadle) on Aug 16, 2016 at 00:41 UTC

    The problem is, the directory tree is in a ZIP file (one zip file of many), not on the HDD/SSD.

    Thanks,
      EigenFunctions
      OpSys: Win7 Professional/Home Premium x64 Service Pack 1

[reply]

      Hello EigenFunctions,

      You can do this with the Archive::Zip->updateTree method, if you have a copy of the archive’s tree on disc, and you first delete the given directory from that copy:

      $zip->updateTree
(
    {
        root    => 'New_Tree',    # On disk
        zipName => 'Tree',        # In the archive
        mirror  =>  1,            # Delete missing directories and fil
+es
    }

) == AZ_OK or die 'update error';

      [download]

      But I guess that misses the point of your question, which is, I take it, to delete the given directory directly.

      The POD for Archive::Zip says it can be done...

      Where in the POD do you see that? (Not saying it isn’t there, only that I haven’t found it.)

      Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

        This is from the POD:

        :
        :
        DESCRIPTION

        The Archive::Zip module allows a Perl program to create, manipulate, read, and write Zip archive files.

        Zip archives can be created, or you can read from existing zip files.

        Once created, they can be written to files, streams, or strings. Members can be added, removed, extracted, replaced, rearranged, and enumerated. They can also be renamed or have their dates, comments, or other attributes queried or modified. Their data can be compressed or uncompressed as needed.
        :
        :
        So the POD seems to indicate that removal and rename capabilities are provided.

        All of the examples I have seen are for removing files, not directories. All of the examples I have seen for renaming are renaming while storing to a Zip file or retrieving from a Zip file. Both of which I am not doing. Considering the size of these files/directories (~0.6GB for the zip), I do not want to do it that way (i.e., unzip, rename, zip, etc.).

        BTW - renaming is a fall back position, I would much rather remove the directory.

        This is one of the many ways I've tried to remove a directory: 

        # $NewMemberName looks like
#  'MyLabNotebook/Default/{A8C57B20-DFBD-492D-A4F7-B83D84D18CDA}'

if (!defined($zipA->removeMember($NewMemberName))) {
  die "**Fatal error, can't remove (ZipA; \"$NewMemberName\")";
  }

        [download]
        The variable $NewMemberName is generated by another Perl program and stored in a CSV file. I then read the CSV and use it here. This code does NOT, by-the-way, remove the member as it seems it should. And yes, I do validate the name to make sure it is truly in the Zip file.

        The major complication is caused by the person who wrote the application that generates the Zip files. For whatever reason, they decided to name the folders with a very long string of arbitrary characters. So to know what order to process the data, the files in each folder have to the accessed and analyzed to decide the relationship among all the directories in the Zip file. Screwy, but I'm stuck with it.

        Any help would be appreciated...

        Thanks,
          EigenFunctions
          OpSys: Win7 Professional/Home Premium x64 Service Pack 1

[reply]
[d/l]

In Section Seekers of Perl Wisdom