Tarefa chata + perl
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