Re: Archive::Zip: save entire directory?

I copied your code to a file, prepended

#! /usr/bin/perl
use warnings;
use strict;

use Archive::Zip qw( AZ_OK );
use Data::GUID;
[download]

and appended

create_zipfile('/home/choroba/_/0');
[download]

When run, it created a zipfile in the directory, containing all the files that had existed there.

Are you sure the path to the directory exists?

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: Archive::Zip: save entire directory? Select or Download Code

Replies are listed 'Best First'.
Re^2: Archive::Zip: save entire directory? by Anonymous Monk on Dec 05, 2023 at 22:37 UTC
(OP here.) Aargh! Of course I checked this carefully before I posted, so when I saw your reply (and stevieb's equivalent advice), I sniffed "Yes, I'm sure the path to the directory exists!" Then I checked more carefully, and realized that I'd been passing in a relative path from my main directory that wasn't the same as the relative path from the test directory where I was actually running the script.... I'm sorry to have wasted everyone's time with something so obvious. I actually tried to rubber-duck it first! sigh I guess I'm glad my code was OK, I just didn't know how to run it :-(	[reply]
Re^3: Archive::Zip: save entire directory? by Bod (Parson) on Dec 05, 2023 at 23:43 UTC
I'm sorry to have wasted everyone's time with something so obvious It's not a waste of anyone's time...we all make mistakes that seem silly when we solve the issue. It's part of being human. And seeing your mistake helps others avoid it in the future!	[reply]