http://www.perlmonks.org?node_id=1034533

perladdict has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,
With the Below code i am trying to list directory content in windows OS, i am able to print the directory content.once after obtaining the subfolders in the directory, i wanted to create the zip for the subfolders like bk_20130520.zip
#!/usr/bin/perl
print "Hellow World\n";
opendir(D,"C:\\xxx\\xxxx\dirname") or die "can't open the directory\n"
+;
my @folders = grep {(!/^\./) && (!/^\.\./)} readir(D);
foreach (@folders) {
$prefix = "bk";
Print "$_\n";
system("Zip $_ $prefix.$_");
}

[download]
Output
Hello World
20130516
20130517
20130520

Zip Error: Nothing to do! <20130516.zip>
Zip wanrning name not matched: 20130516

[download]
The zip feature i have not used before in script,monks it would be a kind if you can guide me to get this zip created for the subfolders.

Back to Seekers of Perl Wisdom