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

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]
  • Comment on Re^7: needing to zip files in a series that begin with the same IP address
  • Download Code

In Section Seekers of Perl Wisdom