Está usted en Indice > Construcción > Lenguajes > Perl > Lecciones y Paso a Paso > Upload de Archivos con Perl
Construcción
Maletín
Utilidades
Cursos
Promoción
Rentabilidad
Zona Novatos
Foros
Acceso a tu cuenta

Upload de Archivos con Perl

Introducción

En este tutorial les voy a mostrar una manera rápida de hacer "uploads" de archivos como pueden ser imagenes, zips, archivos de texto, etc, por medio de perl a tu servidor.

Esto nos va a servir si queremos que usuarios puedan estacionar archivos en nuestro servidor, para crear galerias, disco virtual, etc.

Para poder entender este tutorial es necesario que tengas conocimientos básicos de formularios HTML.

El formulario

Lo primero que debemos de hacer es configurar el formulario HTML para que pueda aceptar un archivo y envíe el mismo de manera correcta.

El campo HTML que le permite a los usurios escojer un archivo para poder enviarlos se llama "FILE". Así que pondríamos algo así:

<input type="file" name="archivo" size="30">

Muy bien, ya tenemos el campo para que nuestro usuarios puedan escojer el archivo que desean enviar, pero ahora necesitamos hacer una pequeña modificación en el tag de "FORM" para que envíe el archivo correctamente:

<form action="upload_archivo.cgi" method="post" ENCTYPE="multipart/form-data">

Vemos como el parametro especial es el que dice ENCTYPE="multipart/form-data" lo cual nos indica que vamos a enviar un archivo junto con los datos de nuestra forma.

Entonces creamos un archivo al que le vamos a poner forma_upload.htm con el siguiente código:

<!doctype html public "-//w3c//dtd html 3.2//en">

<html>

<head>
<title>Upload de Archivo - Tutorial de "Perl en Español"</title>
</head>

<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">

<center>
<form ENCTYPE="multipart/form-data" method="post" action="upload_archivo.cgi">
<input type="file" name="archivo" size="30"><input type="submit" value=" Enviar Archivo ">
</form>
</center>

</body>

</html>



Usuarios que han visto este tema también han visto...

- Enviar email con Windows en Perl
- Variables y estructura de los datos en Perl
- Creación y control de procesos en Perl
- Cómo Manejar errores en Perl
- Mostrar errores en el navegador con Perl


Versión imprimible - Versión imprimible de este documento
Enviar e-mail - Enviar por e-mail este documento
Publicidad

Información legal | Política de Privacidad | Contacte con nosotros

Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.


Página generada el 06-07-2008 a las 04:15:10