Foro - Perl en Español

por **heguirola** » 2012-05-20 00:07 @046

Hola. He estado trabajando en descomprimir en mi sitio web, un archivo zip que cargo. Éste lo guardo en el servidor pero lo que ocurre es lo siguiente: Me da el siguiente error:
The following fatal error has occurred:
Write error! 4

Esto lo hace cuando se llama al método de

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$zip->writeToFileNamed()
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

que está debajo de:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $status = $zip->read($pathdir);    # read file contents      
 
        if ( $status != AZ_OK ) {
                die('Error in file! '.$status);
        }
        else {
                $zip->extractTree( undef, $pathEX );  # extract files
        }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

les dejo el código debajo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
if ( -e "$dirDC/$sessionID/TD.zip" ) {
 
        ExtractZipFile( "$dirDC/$sessionID/TD.zip", "$dirDC/$sessionID/" );
}
 
chdir( "$dirDC/$sessionID" );
 
CompressZipFile("import");
 
SaveZipFile( "$dirDC/$sessionID", "import" );
 
#*****************Subrutina****************************#
 
#Compress a file in .zip
sub CompressZipFile {
 
        my ($path) = @_;
 
        #Primero comprobamos que es un directorio
        if ( -d $path ) {
 
                opendir( DIR, $path );
                my @conten = readdir(DIR);
                closedir(DIR);
 
                #Para cada elemento del directorio
                foreach (@conten) {
                        if ( $_ eq '.' || $_ eq '..' ) {
 
                                #print "dentro del IF--> ". $_. "\n";
                                next;
                        }
 
                        #print "fuera del IF--> ". $_. "\n";
                        CompressZipFile("$path/$_");
 
                }
        }
        else {
 
                #En el caso de un archivo, se añade al zip
                $zip->addFile( $path, $path );
        }
}
 
# Save the Zip file
sub SaveZipFile {
        my ( $path, $directoryname ) = @_;
        
        my $status = $zip->writeToFileNamed( $path . "/$directoryname.zip" );
        
        unless ( $status == AZ_OK )     {
                die 'Write error! '.$status;
        }
}
 
# Extract the Zip file
sub ExtractZipFile {
 
        my ( $pathdir, $pathEX ) = @_;
 
        my $status = $zip->read($pathdir);    # read file contents      
 
        if ( $status != AZ_OK ) {
                die('Error in file! '.$status);
        }
        else {
                $zip->extractTree( undef, $pathEX );  # extract files
        }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡¡¡Por favor el lea esto y sepa donde está el error que escriba rápido!!! :shock:

P: ¿Por qué no puedo abrir un archivo Zip, añadir un miembro, y escribir el resultado? Obtengo un mensaje de error cuando lo intento.

R: Porque Archive::Zip no (y, generalmente, no puede) lees los contenidos del archivo en memoria. Se requiere que el archivo Zip original permanezca hasta que el nuevo archivo quede completado.

La mejor forma de hacer esto es escribir el Zip a un archivo temporal y luego renombrar el archivo temporal al del anterior nombre (posiblemente después de haberlo borrado).

Archive::Zip v1.02 añadió los métodos de archivado overwrite() y overwriteAs() para hacer eso de forma simple y cuidadosa.

Vea examples/updateZip.pl para un ejemplo de esta técnica.

Write error! 4 también podría indicar un fallo de E/S, por lo que podría indicar un fallo en el disco o que el disco está lleno.

por **heguirola** » 2012-05-20 19:07 @838

Gracias, explorer, por responder. Bueno en cuanto a tu respuesta, cuando yo ejecutaba el método de descomprimir una carpeta o directorio me extrae perfectamente lo que tiene el Zip, pero cuando comprimo otro directorio ahí mismo es donde está el error de escritura y me lo crea con los datos del directorio que yo descomprimí... ¿qué será eso? :?:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
if ( -e "$dirDC/$sessionID/TD.zip" ) {
 
        ExtractZipFile( "$dirDC/$sessionID/TD.zip", "$dirDC/$sessionID/" );
}
 
chdir( "$dirDC/$sessionID" );
 
CompressZipFile("import");
 
SaveZipFile( "$dirDC/$sessionID", "import" );#Cuando hago esto me sale el error
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-20 19:29 @853

Bien, es posible que mi respuesta no esté clara.

Lo diré de otra manera.

"El $zip de la línea 51 debe ser distinto del de la línea 63".

Más claro: Usa un objeto $zip para realizar la descomprensión, y otro distinto para realizar la comprensión.

Si no es por esto, entonces no sé por qué será...

por **heguirola** » 2012-05-20 22:28 @978

Gracias. Voy a probar y le digo... :roll:

por **heguirola** » 2012-05-24 23:34 @023

Me ha servido perfectamente lo que usted me dijo. Gracias.

Foro - Perl en Español

Descomprimir archivos zip en Perl

Descomprimir archivos zip en Perl

Publicidad

Re: Descomprimir archivos zip en perl

Re: Descomprimir archivos zip en Perl

Re: Descomprimir archivos zip en Perl

Re: Descomprimir archivos zip en Perl

Re: Descomprimir archivos zip en Perl

¿Quién está conectado?