Aqui fica duas  “reviews”  de um gadget que eu gostaria de experimentar

Motivos pelos quais gostaria de experimentar:

• Filmes
• jogos

Esta tecnologia poderá num futuro muito próximo tornar-se standard nas nossas casas.

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

Ora aqui está um gadget bastante interessante , já algum tempo que comprei o wdtv e alguns problemas* que tinha identificado em principio não vão existir na segunda versão, se assim for eu compro

Link

* DTS decoder; interface de rede.