Tarefa abrir 80 zips e substituir um documento.

Uma vez que não gosto de tarefas rotineiras resolvi elaborar um script para isto e aqui fica.

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

use Archive::Zip qw( :ERROR_CODES );

#list directory
@files = <*.zip>;
foreach $file (@files) {
print $file . “\n”;

# Read the ZIP
my $zip = Archive::Zip->new();
unless( $zip->read($file) == AZ_OK ) {
die “read error\n”;
}

# Update file
$zip->removeMember( ‘Pathdentrodozip’);
$zip->addFile( ‘.Pathforadozip’, ‘Pathdentrodozip’ );

# Save the Zip file
$zip->overwrite();
}

Posso ainda melhorar mas não prevejo ter que usar novamente este script.

O que tive de ler: Modulo CPAN

E tive ajuda do Bruno Barão na interpretação do modulo que desde já agradeço