Foro - Perl en Español

por **adrolmar** » 2009-09-29 10:37 @484

Hola, ¡buenas!

El caso es que necesito poder descargar ficheros de un servidor. Con un solo fichero me funciona con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(AUDIO, "$aux[$msgs[0]]") or die ("error al abrir: $!"); 
$size = -s $aux[$msgs[0]];
$|=1;
print header(-type=>$formats{$format}->{'mime'}, -Content_length => $size, -attachment => "$aux[$msgs[0]]");
                                
while(($amt = sysread(AUDIO, $data, 4096)) > 0) {
        syswrite(STDOUT, $data, $amt);
}
close(AUDIO);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Esto me abre un diálogo del navegador pidiéndome si reproducirlo o guardarlo, pero necesito precisamente que en caso de tener varios ficheros seleccionados, esa elección se aplique a todos ellos (y no ir uno a uno preguntando).

Por no ser 'práctico' para el usuario (que probablemente desconoce qué es un fichero comprimido) he descartado la idea de hacer un fichero comprimido y descargar ése.

¿Alguna sugerencia?
Gracias

Tienes razón, incluso creo que sin especificarlo Window$ ya sabe cómo tratarlo (creo que incorpora un gestor de archivos comprimidos zip cutrecillo por defecto).

El problema que estoy teniendo ahora es que, después de hacer una descarga (correctamente) intento pulsar otro botón para refrescar o guardar otro fichero y el cgi no funciona. El navegador me devuelve la página pero en código HTML en lugar de interpretarla. Supongo que hago algo mal en el tratamiento del fichero a descargar y se queda como esperando algo o incluso no termina de copiarlo correctamente aunque el fichero local, aparentemente, se haya transferido bien.

Aquí pego el código a ver si veis algo raro.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub guardar_conv(){
        
        my (@msgs) = @_;
        
        # cargamos todas los ficheros
        my @aux = <$ruta/*.mp3>;
                
        if (open(AUDIO, "$aux[$msgs[0]]")) {
                $size = -s $aux[$msgs[0]];
                $|=1;
                print header(-type=>'audio/mpeg3', -Content_length => $size, -attachment => "$aux[$msgs[0]]");
                
                while(($amt = sysread(AUDIO, $data, 4096)) > 0) {
                        syswrite(STDOUT, $data, $amt);
                }
                close(AUDIO);
                                
        } else {
                die("¡Error al abrir fichero: $!!");
        }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿¿alguien sabe por qué si comprimo usando ZIP en Linux, al descargarlo en Window$ me da mensaje de error como que no es capaz de tratarlo como un archivo ZIP?? necesitaría un formato de compresión estándar pero el zip debería ser compatible con todos los sistemas.. he usado opciones para comprimirlo en binario, o cambiar los finales de linea al formato MSDOS, pero no lo consigo.

Gracias de nuevo.

por **explorer** » 2009-10-01 03:30 @187

¿No es

Content-Length

en lugar de

Content_length

?

(hay dos diferencias)

por **adrolmar** » 2009-10-01 06:52 @327

¡PERFECTO! ¡¡UN 10!!
jeje, eso era lo que causaba todo el follón con los ficheritos...
Ando muy despistado, disculpasss

¡Gracias otra vez!

Foro - Perl en Español

Descarga múltiple de ficheros

Descarga múltiple de ficheros

Publicidad

Re: Descarga múltiple de ficheros

Re: Descarga múltiple de ficheros

Re: Descarga múltiple de ficheros

Re: Descarga múltiple de ficheros

Re: Descarga múltiple de ficheros

¿Quién está conectado?