Limitar extensión de archivo al hacer UPLOAD
Publicado: 2019-08-30 08:52 @411Hola, muy buenos días. Tengo este programa:
Hasta acá, todo perfecto. Pero ahora lo que quiero hacer es limitar las extensiones. Es decir, que sólo puedan subir en formato .PDF y si el programa recibe por ejemplo un .doc tire un error.
¡Muchas gracias de antemano!
Using perl Syntax Highlighting
- $CGI::POST_MAX = 1024 * 5000;
- my $upload_dir = "../../certificados/";
- my $query = new CGI;
- my $filename = "";
- my $filename = $query->param("archmov");
- my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime;
- $mon += 1;
- my $datetime = sprintf "%02d%02d%04d%02d%02d%02d", $mon, $mday, $year, $hour, $min, $sec;
- my $upload_filehandle = $query->upload("archmov");
- open( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
- binmode UPLOADFILE;
- while (<$upload_filehandle>) {
- print UPLOADFILE;
- }
- close UPLOADFILE;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Hasta acá, todo perfecto. Pero ahora lo que quiero hacer es limitar las extensiones. Es decir, que sólo puedan subir en formato .PDF y si el programa recibe por ejemplo un .doc tire un error.
¡Muchas gracias de antemano!
