Re^6: needing to zip files in a series that begin with the same IP address

Thanks for your help. I am having trouble nailing that part just right i have tried several zip calls but the code is failing. Thanks for the heads up on Modern::Perl I was curious of what the module was doing.

here is what seems to be the best educated guess

#!perl
use Modern::Perl;
use IO::Compress::Zip qw(zip $ZipError) ;

my %files;

my @files = <*.txt *.docx>;

for (@files) {
    next unless /^(\d+.\d+.\d+.\d+)/;
    push @{ $files{$1} }, $_;
}



for my $ip ( keys %files ) {
    my $output = "$ip.zip";
    do { zip => $output, $ip -> $_ }
      for @{ $files{$ip} };
}
[download]

Comment on Re^6: needing to zip files in a series that begin with the same IP address Download Code

Replies are listed 'Best First'.
Re^7: needing to zip files in a series that begin with the same IP address by Kenosis (Priest) on Jul 27, 2012 at 22:55 UTC
Remember to check for any return errors when zipping. Also, you can pass an array reference to zip, so try the following: `for my $ip ( keys %files ) { zip \@{ $files{$ip} } => "$ip.zip" or die "zip failed: $ZipError\n +"; }` [download]	[reply] [d/l]