Foro - Perl en Español

¡Hola nuevamente! Tengo este código para subir un archivo al servidor:

$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");

if ($filename =~ /[.]pdf$/i) {

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;
}


¡Funciona perfecto! Pero quiero que tanto en la base de datos como en el servidor donde se guardan, se guarde así:

Por ejemplo, el archivo que cargan se llama certificado23.pdf pero yo quiero que se renombre y en la base de datos y carpeta del servidor se guarde así: tipocertificado+idarticulo+ un id que se genere aleatoriamente.

¿Cómo podría llevar a cabo esto? ¡Gracias!

No entendí, @explorer, perdón.

$filename = $v_tipo_certificado+$id_buque_input+rand();


$v_tipo_certificado y $id_buque_input son variables que traigo de arriba, hasta ahi todo bien. pero me los graba sin .pdf, los archivos.

¡Excelente! Me funcionó. ¿Esto debería ponerlo en Avanzado o Principante?

¡¡¡Muchas gracias!!!