• Publicidad

Obtener el nombre de un archivo mediante CGI::UploadEasy

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Obtener el nombre de un archivo mediante CGI::UploadEasy

Notapor danimera » 2009-03-12 08:13 @384

Después de hacer el upload del archivo la info que me retorna es ésta:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use CGI::UploadEasy;

        my $ue = CGI::UploadEasy->new(-uploaddir => '../clientes');
        my $info = $ue->fileinfo;
        my $cgi = $ue->cgiobject;

return Dumper $info;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Código: Seleccionar todo
$VAR1 = { 'contrcc_5.jpg' => { 'ctrlname' => 'uploadfile', 'bytes' => '3418', 'mimetype' => 'image/jpeg' } };


Y quiero obtener el nombre contrcc_5.jpg... :? ¿Cómo puedo lograrlo?
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia

Publicidad

Notapor explorer » 2009-03-12 08:33 @398

El método fileinfo() devuelve un hash de hashes con información de todos los ficheros subidos.

Entonces, si se trata de sacar los nombres de esos ficheros:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my @nombres_ficheros = keys %$info;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor danimera » 2009-03-12 08:36 @400

De todos los ficheros subidos en el momento, hummm
Gracias. Qué pena yo con esas preguntas tontas pero dónde puedo aprender más sobre "referencias" que es donde tengo una gran falla.
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia

Notapor explorer » 2009-03-12 09:03 @418

Hay varios, pero éste está bien: perldoc perldsc (en web y en tu propio ordenador).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

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

cron