Come for the quick hacks, stay for the epiphanies. | |
PerlMonks |
Re: Error while Zipping a Directoryby GrandFather (Saint) |
on Aug 24, 2015 at 06:34 UTC ( [id://1139632]=note: print w/replies, xml ) | Need Help?? |
I haven't tried reproducing your problem, but I notice that you don't filter '..' and '.' from @filearray which may cause unexpected results. Also, readdir returns entries relative to $directory which means you don't have a valid path for each entry unless $directory happens to be the current directory. Most often you will need to prefix each entry with $directory: "$directory\\$file".
Premature optimization is the root of all job security
In Section
Seekers of Perl Wisdom
|
|