• Publicidad

Cómo determinar las extensiones de los archivos al subirlos

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Cómo determinar las extensiones de los archivos al subirlos

Notapor mydaboin » 2006-10-24 16:53 @745

Buenas tengo una duda.

Tengo varios usuarios que envían sus fotos. El problema surge cuando mediante el cgi, estos suben archivos de texto: word, excel, power point ..
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if (-e $imagen){
                $archivo_imagen="../carpeta/imagenes/$contador.jpg";
                open (IMAGEN, ">$archivo_imagen");
        while ($lectura = read($imagen, $cadena, 1024)){
                print IMAGEN $cadena;
        }
                close IMAGEN;
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿Cómo hacer para que determine que las extensiones: .doc, .ppt y .xls, las cuales no son permitidas o sólo las extensiones jpg y gif que deben ser las permitidas?

¡¡¡gracias de antemano por la ayuda!!! :D
MYRD
mydaboin
Perlero nuevo
Perlero nuevo
 
Mensajes: 66
Registrado: 2004-04-22 08:07 @380
Ubicación: Pues Aqui, Preguntando

Publicidad


Notapor explorer » 2006-10-24 18:40 @819

Es siempre mejor filtrar por lo que esperamos recibir, que por aquello que podría llegar, sobre todo porque no sabemos todo lo que puede llegar.

Se podría intentar filtrar por la extensión del fichero, algo así como:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if ( $imagen =~ /\.(jpe?g|gif|png|tiff?)$/ ) { ...
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Y con eso tenemos una barrera muy buena, pero no impide que un usuario coja un MP3 y lo llame musica.jpg.

En ese caso hay que utilizar alguno de los módulos indicados antes.

Es posible que existan más técnicas.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14477
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor creating021 » 2006-10-24 20:06 @879

Hay otra cosa que púedes hacer, usar Image::Info + el filtro que pone explorer
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor mydaboin » 2006-10-25 08:04 @378

Gracias muy!!! ;)
MYRD
mydaboin
Perlero nuevo
Perlero nuevo
 
Mensajes: 66
Registrado: 2004-04-22 08:07 @380
Ubicación: Pues Aqui, Preguntando


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados

cron