Using perl Syntax Highlighting
@mimes = qw (png jpg gif flv mpg avi);
if !( $mifichero =~ /@mimes/ ) { return false; }
if !( $mifichero =~ /@mimes/ ) { return false; }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Bueno, mi frustrado intento es para lograrlo sin usar ningún módulo, pues validando solo las últimas tres letras del nombre del archivo, es decir, la extensión...
Lo pongo en avanzado pero la solución debería ser sencilla.
