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;
my $ue = CGI::UploadEasy->new(-uploaddir => '../clientes');
my $info = $ue->fileinfo;
my $cgi = $ue->cgiobject;
return Dumper $info;
Coloreado en 0.004 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?