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

#~ use autodie qw/ chdir system /;
use autodie;

use Win32::ShellQuote qw/ quote_system quote_system_cmd /;
use File::Find::Rule  qw/ find /;
use File::Which       qw/ which /;

Main( @ARGV );
exit( 0 );

sub Main {
    2==@_ or die "Usage: $0 dirtobackups prefix\n";
    
    my( $dir , $prefix ) = @_;
    
    chdir $dir; ## or dies on its own
    
    my @folders = find( directory => maxdepth => 1, in => [ '.' ] );
    shift @folders  if $folders[0] eq '.'; ## Grrr
    
    for my $folder ( @folders ){
        my $source = $folder;
        my $destination = "$prefix.$folder";
        zip( $destination , $source );
    }
}


our $infozip;
sub zip {
    my( $destination, $source ) = @_;
    
    unless( defined $infozip ){
        $infozip = which( 'zip.exe' );
        if( $infozip ){
            my $izv  = quote_system_cmd( $infozip, '--version' );
            if( not qx{$izv} =~ m{Info-ZIP} ){
                $infozip = '';
                die "can't find Info-ZIP zip.exe"
            }
        }
    }
    
    $infozip or die "no zip.exe";
    
    $destination =~ s/(?:\.zip)?$/.zip/i;
    
    system quote_system(
        $infozip,
        '-r',
        '-v',
        '-9',
        $destination,
        $source
    );
}
__END__

[download]

In reply to Re: After listing the folder in a directoy, i unable to zip the folders by using system command. by Anonymous Monk
in thread After listing the folder in a directoy, i unable to zip the folders by using system command. by perladdict

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.