Descomprimir .TAR con Perl
A continuación os cuento como descomprimir un archivo .tar con Perl (imagino que para el resto de extensiones será parecido pero no lo he probado aún)
##
##
##
my $tar = Archive::Tar->new;
$tar->read("Nombre_del_archivo.tar" );
$tar->extract('Nombre_contenido');
$tar->extract();
Es sencillo, con read leemos el archivo y con extract lo descomprimimos. Si indicamos dentro del extract el nombre de uno de los archivos que sabemos que está dentro del .tar sólo extraerá ese archivo.
Espero que os haya sido de utilidad.
Abrir y recorrer un fichero con Perl
A partir de ahora iré poniendo las cosas interesantes que vaya descubriendo de este lenguaje (nuevo para mí por cierto). Para empezar algo muy útil, abrir y recorrer un fichero:
##
##
##abrimos el fichero
open (nombre_manejador, "<nombre_fichero.txt") || die "couldn't open the file!";
while(<nombre_manejador>)
{
my $linea=$_;
}
Con este código conseguimos abrir un fichero que quedará referenciado por nombre_manejador. Con el bucle while vamos recorriéndolo y cada nueva línea va referenciada por $_ (se irá incrementando por cada iteración del bucle).
Fácil, ¿no?