Introducción a la programación en Perl, CGI y Javascript

Autor: José Vicente Núñez Zuleta ([email protected], [email protected])

Tabla de contenido

Tabla de contenido 2

Indice de tablas 4

Indice de ilustraciones 6

Objetivos de este trabajo 9

Introducción al Lenguaje Perl 10

Obtención en instalación de Perl 10

Perl básico 11

Hola mundo 11

Uso de variables y asideros de archivo⁶ 11

Más sobre el uso de variables 12

Más sobre el uso de asideros 13

Arreglos, Arreglos asociativos y lazos 13

Arreglos y lazos con for 13

Arreglos asociativos y lazos con foreach 14

Lazos con while y uso de split() 14

Estructuras de decisión 15

Uso de patrones en búsquedas y reemplazos, usando expresiones regulares 17

Ejercicio 1: Uso de estructuras de decisión, patrones y estructuras de repetición 19

Solución: 19

Uso de rutinas en Perl 19

Referencias en Perl 21

Ejercicio 2: Uso de rutinas y referencias 22

Solución 23

Validación de programas en Perl 25

Seguridad en Perl 25

Depuración de programas en Perl 26

Perl en modo de advertencias (-w) 26

Perl en modo de depuración (-d) 27

Corregir sólo la sintaxis con -c 29

Ejercicio 3: Seguridad en Perl y depuración de programas 29

Solución 30

CGI (Common Gateway Interface) 31

Protocolos de comunicación 31

Modelo OSI y TCP/IP 31

HTTP 32

Modelo cliente - servidor 33

El cliente 33

El servidor 33

CGI 34

Funcionamiento de CGI 34

Generación dinámica de HTML 35

Ejercicio 4: Generación dinámica de HTML 36

Solución: 36

Métodos de comunicación 37

Método GET 38

Método POST 38

Variables de entorno adicionales 39

Codificación de los datos 39

Ejercicio 5: Variables de entorno 39

Solución 39

Formas en HTML 40

Elementos que contiene la etiqueta FORM 40

Uniendo todo: Manejo de los datos de una forma, seguridad 43

Ejercicio 6: Uso de formas y CGI 46

Solución 47

Introducción a Javascript 51

Objetos en Javascript 52

Métodos de los objetos en Javascript. Programación orientada a eventos. 53

Hola mundo en Javascript 54

Variables en Javascript 55

Funciones en Javascript 55

Estructuras de repetición 56

Sintaxis y ejemplo de Do - while 56

Sintaxis y ejemplo de For 56

Sintaxis y ejemplo de For in 56

Sintaxis y ejemplo de while: 57

Estructuras de decisión 57

Cajas de alerta, confirmación y preguntas 58

Expresiones regulares y arreglos 59

Arreglos 59

Expresiones regulares 60

Formas y validación 61

Ejercicio 7: Validación de Formas con Javascript 64

Solución 64

Referencias bibliográficas 67

Indice de tablas

Autor: José Vicente Núñez Zuleta ([email protected]) 1

Tabla de contenido 2

Indice de tablas 4

Indice de ilustraciones 6

Objetivos de este trabajo 9

Introducción al Lenguaje Perl 10

Obtención en instalación de Perl 10

Perl básico 11

Hola mundo 11

Uso de variables y asideros de archivo⁶ 11

Más sobre el uso de variables 12

Más sobre el uso de asideros 13

Arreglos, Arreglos asociativos y lazos 13

Arreglos y lazos con for 13

Arreglos asociativos y lazos con foreach 14

Lazos con while y uso de split() 14

Estructuras de decisión 15

Uso de patrones en búsquedas y reemplazos, usando expresiones regulares 17

Ejercicio 1: Uso de estructuras de decisión, patrones y estructuras de repetición 19

Solución: 19

Uso de rutinas en Perl 19

Referencias en Perl 21

Ejercicio 2: Uso de rutinas y referencias 22

Solución 23

Validación de programas en Perl 25

Seguridad en Perl 25

Depuración de programas en Perl 26

Perl en modo de advertencias (-w) 26

Perl en modo de depuración (-d) 27

Listando código fuente y el contenido de las variables 27

Ejecutando el código fuente 28

Puntos de quiebre, ejecución continua del programa 28

Busqueda con patrones 29

Corregir sólo la sintaxis con -c 29

Ejercicio 3: Seguridad en Perl y depuración de programas 29

Solución 30

CGI (Common Gateway Interface) 31

Protocolos de comunicación 31

Modelo OSI y TCP/IP 31

HTTP 32

Modelo cliente - servidor 33

El cliente 33

El servidor 33

CGI 34

Funcionamiento de CGI 34

Generación dinámica de HTML 35

Ejercicio 4: Generación dinámica de HTML 36

Solución: 36

Métodos de comunicación 37

Método GET 38

Método POST 38

Variables de entorno adicionales 39

Codificación de los datos 39

Ejercicio 5: Variables de entorno 39

Solución 39

Formas en HTML 40

Elementos que contiene la etiqueta FORM 40

Input: Recolecta información acerca del usuario 40

Option: Ocurre dentro del elemento select, el cual le permite al usuario escoger entre varias alternativas, y es usado para representar cada opción de select. 41

Select: Le permite al usuario escoger entre múltiples alternativas 41

Textarea: Recolecta múltiples líneas de texto por el usuario. Al usuario se le presenta un panel cuadrado en el cual puede escribir. Se usa en pares. 41

Uniendo todo: Manejo de los datos de una forma, seguridad 43

Ejercicio 6: Uso de formas y CGI 46

Solución 47

Introducción a Javascript 51

Objetos en Javascript 52

Métodos de los objetos en Javascript. Programación orientada a eventos. 53

Hola mundo en Javascript 54

Variables en Javascript 55

Funciones en Javascript 55

Estructuras de repetición 56

Sintaxis y ejemplo de Do - while 56

Sintaxis y ejemplo de For 56

Sintaxis y ejemplo de For in 56

Sintaxis y ejemplo de while: 57

Estructuras de decisión 57

Cajas de alerta, confirmación y preguntas 58

Expresiones regulares y arreglos 59

Arreglos 59

Expresiones regulares 60

Formas y validación 61

Ejercicio 7: Validación de Formas con Javascript 64

Solución 64

Referencias bibliográficas 67

Indice de ilustraciones

Autor: José Vicente Núñez Zuleta ([email protected]) 1

Tabla de contenido 2

Indice de tablas 4

Indice de ilustraciones 6

Objetivos de este trabajo 9

Introducción al Lenguaje Perl 10

Obtención en instalación de Perl 10

Perl básico 11

Hola mundo 11

Uso de variables y asideros de archivo⁶ 11

Más sobre el uso de variables 12

Más sobre el uso de asideros 13

Arreglos, Arreglos asociativos y lazos 13

Arreglos y lazos con for 13

Arreglos asociativos y lazos con foreach 14

Lazos con while y uso de split() 14

Estructuras de decisión 15

Uso de patrones en búsquedas y reemplazos, usando expresiones regulares 17

Ejercicio 1: Uso de estructuras de decisión, patrones y estructuras de repetición 19

Solución: 19

Uso de rutinas en Perl 19

Referencias en Perl 21

Ejercicio 2: Uso de rutinas y referencias 22

Solución 23

Validación de programas en Perl 25

Seguridad en Perl 25

Depuración de programas en Perl 26

Perl en modo de advertencias (-w) 26

Perl en modo de depuración (-d) 27

Listando código fuente y el contenido de las variables 27

Ejecutando el código fuente 28

Puntos de quiebre, ejecución continua del programa 28

Busqueda con patrones 29

Corregir sólo la sintaxis con -c 29

Ejercicio 3: Seguridad en Perl y depuración de programas 29

Solución 30

CGI (Common Gateway Interface) 31

Protocolos de comunicación 31

Modelo OSI y TCP/IP 31

HTTP 32

Modelo cliente - servidor 33

El cliente 33

El servidor 33

CGI 34

Funcionamiento de CGI 34

Generación dinámica de HTML 35

Ejercicio 4: Generación dinámica de HTML 36

Solución: 36

Métodos de comunicación 37

Método GET 38

Método POST 38

Variables de entorno adicionales 39

Codificación de los datos 39

Ejercicio 5: Variables de entorno 39

Solución 39

Formas en HTML 40

Elementos que contiene la etiqueta FORM 40

Input: Recolecta información acerca del usuario 40

Option: Ocurre dentro del elemento select, el cual le permite al usuario escoger entre varias alternativas, y es usado para representar cada opción de select. 41

Select: Le permite al usuario escoger entre múltiples alternativas 41

Textarea: Recolecta múltiples líneas de texto por el usuario. Al usuario se le presenta un panel cuadrado en el cual puede escribir. Se usa en pares. 41

Uniendo todo: Manejo de los datos de una forma, seguridad 43

Ejercicio 6: Uso de formas y CGI 46

Solución 47

Introducción a Javascript 51

Objetos en Javascript 52

Métodos de los objetos en Javascript. Programación orientada a eventos. 53

Hola mundo en Javascript 54

Variables en Javascript 55

Funciones en Javascript 55

Estructuras de repetición 56

Sintaxis y ejemplo de Do - while 56

Sintaxis y ejemplo de For 56

Sintaxis y ejemplo de For in 56

Sintaxis y ejemplo de while: 57

Estructuras de decisión 57

Cajas de alerta, confirmación y preguntas 58

Expresiones regulares y arreglos 59

Arreglos 59

Expresiones regulares 60

Formas y validación 61

Ejercicio 7: Validación de Formas con Javascript 64

Solución 64

Referencias bibliográficas 67

Objetivos de este trabajo

Está trabajo teórico / práctico persigue los siguientes objetivos:

• Obtención de destrezas básicas en la programación y depuración de programas en Perl.

• Comprensión de que es y como funciona CGI, así como la elaboración y depuración de programas sencillos.

• Introducir a la programación con Javascript y la validación de formas en aplicaciones cliente - servidor.

• Introducir a la programación de scripts seguros (con y sin CGI).

Durante todo este trabajo se presenta código fuente como ejemplo para explicar los conceptos teóricos. Al final de cada sección se proponen ejercicios para que sean realizados por el lector.

La plataforma utilizada para la elaboración de los ejercicios fue Linux Slackware 3.4, por lo que algunos comandos podrían variar de plataforma en plataforma. El servidor Web utilizado para correr los ejemplos fue Apache versión 1.3.0. Los programas hechos en Javascript fueron probados con Netscape Communicator 4.05. La versión de Perl Utilizada fue 5.04, la versión de Javascript fue 1.2.

Algunos conceptos fueron omitidos o tratados de manera breve por razones de espacio. Nada puede reemplazar la práctica y la investigación, por lo que se remite al lector interesado a la bibliografía al final de este documento.

Se supone que el lector tiene conocimientos básicos de programación en algún lenguaje estructurado, que tiene conocimientos básicos sobre Unix y HTML y que sabe utilizar un browser para navegar por internet.

Sí encuentra fallas o desea hacer algún comentario adicional puede escribir a:

[email protected]

José Vicente Núñez Zuleta.

Introducción al Lenguaje Perl

Perl es un lenguaje que permite la manipulación de archivos de texto y procesos. Perl provee una manera concisa y fácil para hacer las cosas las cuales pueden más difíciles en C o en Shell. Esas fueron las ideas que motivaron a su autor (Larry Wall)[11].

En el principio, Perl fue pensado como un leguaje de reducción de datos, Un lenguaje que permitiera navegar con facilidad y de manera arbitraria por archivos de texto de manera eficiente; Sin embargo Perl ha evolucionado tanto que hoy en día se le considera como una herramienta de programación en Internet y Administración de sistemas y redes Unix.

Las siguientes son algunas de las razones por las cuales Perl es popular:

• Reduce el ciclo de programación. No tiene que compilar su aplicación, Perl es interpretado y por ello sus programas pueden ser corridos en muchas plataformas sin necesidad de ser recompilado.¹

• Es portable, ya que hay un interpretador de Perl para cada variedad de Unix y Windows, por lo que los cambios que debe hacer a su aplicación son mínimos o nulos.

• Puede hacer mejor muchas cosas que serían más difíciles en otros lenguajes como C o Shell, como la manipulación de archivos de texto.

• La sintaxis de otros lenguajes como Shell, Sed, AWK o C es muy similar a la de Perl. Inclusive cuenta con herramientas para traducir código de Sed y AWK a Perl de manera automática.

• Es extensible. En Internet puede conseguir una enorme cantidad de módulos los cuales pueden ser incluidos en sus programas sin ninguna dificultad. Si lo desea, puede desarrollar sus propias extenciones.

• No cuesta nada. Perl esta protegido por una licencia artística, la cual permite su libre distribución.

• Es confiable y robusto. Programas como dnswalk, Majordomo y otros están hechos en Perl.

Sin embargo, pueden haber cosas del lenguaje que no le gusten como:

• Cualquiera puede ver el código fuente de su aplicación porque el código es interpretado y no compilado.

• Por ser interpretado y no compilado su velocidad puede ser inferior a la versión en C en algunos casos.

Teniendo esto en cuenta, usted puede decidir si Perl se adapta o no a sus necesidades.

Obtención en instalación de Perl

Puede conseguir la última versión de Perl² en su página Web [8]:

http://www.perl.com

Básicamente, lo que debe hacer para instalar Perl es lo siguiente:

• Descomprimalo con gunzip xxx.tar.gz

• Desempaquetelo en un directorio con tar -xvf xxx.tar.gz

• Ejecute el script configure (por ejemplo configure -Dcc=gcc)

• Escoja el sistema operativo sobre el cual correrá Perl

• De aquí en adelante responderá muchas preguntas, de acuerdo a su sistema operativo (Crear las dependencias del programa con make depend, entre otros)³

• Luego corra los tests (el instalador le dirá como) y finalmente ejecute el comando make install.

Perl básico

Hola mundo

A continuación se muestra el programa "hola mundo", escrito en Perl:⁴

1. #!/usr/bin/perl

2. print("Hola mundo cruel\n");

Guarde este pequeño fragmento de código como hola_mundo.pl, cambie su permisología a ejecución sólo por el usuario, y córralo:

$host> chmod u+x hola.pl

$host> hola.pl

Hola mundo

La línea 1 contiene lo que se conoce como una "galleta mágica" y le indica al programa en donde se encuentra el interpretador de Perl. La segunda línea le dice a Perl que imprima un mensaje por pantalla (Nótese el enorme parecido con la orden printf de C). Fíjese que cada comando en Perl termina en punto y coma ";".

Otra forma de correr ese script es eliminando la primera línea y diciéndole a Perl que corra el script directamente:

$host> perl hola.pl

Hola mundo

$host>

La línea de comandos de Perl es muy extensa, por lo que mencionaremos sólo lo necesario⁵.

Uso de variables y asideros de archivo⁶

El programa anterior es bastante limitado, por lo que extenderemos su utilidad con el uso de variables:

1. #!/usr/bin/perl

2. print("Por favor introduzca su nombre\n");

3. $nombre=<STDIN>;

4. print("Hola $nombre, ese es un nombre bonito\n");

En la línea 3 hace una asignación a la variable $nombre de lo que se "capture" por el asidero de archivos estándar STDIN (Standard Input). Luego mostramos el contenido de esa variable en la línea 4. STDIN, STDOUT y STDERR son llamados asideros y vienen por omisión en cualquier sistema operativo, por lo que Perl provee acceso directo a ellos. STDIN, STDOUT y STDERR son entrada, salida y error estándar respectivamente. Note como al declarar a la variable $nombre no se le especifico ningún tipo.

Corramos el programa para ver que hace:

$host> hola.pl

Escriba por favor su nombre

Jose Vicente

Hola Jose Vicente

, ese es un nombre bonito

¡Hay algo mal!, El programa está capturando el retorno de carro introducido después de obtener el nombre. Eso lo podemos solucionar con la rutina chop(), la cual elimina el último carácter de una variable:

1. #!/usr/bin/perl

2. print("Escriba por favor su nombre\n");

3. $nombre=<STDIN>;

4. chop($nombre); # Eliminamos el retorno de carro

5. print("Hola $nombre, ese es un nombre bonito\n");

Vea como en la línea 4 introducimos un comentario, utilizando el carácter #.

Corra el programa de nuevo y note el cambio.

En Perl:

• No se utilizan tipos de datos en la declaración de variables

• Las variables pueden declararse a cualquier altura del código

• Los asideros permiten acceder a recursos del sistema como la salida y entrada por omisión.

Más sobre el uso de variables

En Perl no hace falta declarar el tipo de una variable como en C o Pascal; Otra diferencia es que Perl internamente utiliza sólo dos tipos de variables: Cadena de caracteres o números reales. Veamos por ejemplo, como el siguiente programa es correcto.

#!/usr/bin/perl

# Colocamos una cadena de caracteres

$variable="Hola, contengo una cadena";

print("El contenido de \$variable es :\t $variable\n");

# Colocamos ahora un numero real

$variable=3.141616;

print("El contenido de \$variable es :\t $variable\n");

# Colocamos ahora un entero

$variable=55;

print("El contenido de \$variable es :\t $variable\n");

Veamos su salida por pantalla:

leon[80] $host> variables.pl

El contenido de $variable es : Hola, contengo una cadena

El contenido de $variable es : 3.141616

El contenido de $variable es : 55

Hemos introducido dos trucos nuevos: el uso del carácter "\" delante de otro (Le dice a Perl que no interprete el carácter, sino que lo proteja y "\t" (Deje una tabulación).

Veamos otras formas de asignación de variables:

$respuesta=666; # Un número entero

$pi=3.141516; # Un número real

$cantidad=55e2; # Notación cientifica

$mascota='Godzila'; #Una cadena

$aviso="$mascota, cuando el tamaño cuenta\n"; # Interpolación de variables

$Directorio='ls'; # Guarda el resultado de la ejecución de un comando

Note que Perl distingue el uso de mayúsculas y minúsculas en la declaración de variables.

Más sobre el uso de asideros

La importancia real de los asideros está en que nos permiten redirigir la entrada y la salida de información en nuestro programa. Veamos brevemente las operaciones posibles con los asideros:

open(ASIDERO,"nombre del archivo"); # Abre el archivo para lectura

open(ASIDERO,">nombre del archivo"); # Abre el archivo para lectura, escritura

open(ASIDERO,">>nombre del archivo"); # Le agrega al archivo

open(ASIDERO,"| comando de salida"); # Envía salida a un filtro

open(ASIDERO,"nombre del archivo |"); # Recoge la salida de un filtro

En el siguiente ejemplo, los asideros se utilizarán para acceder a las facilidades del sistema:

1. #!/usr/bin/perl

2. # Veamos el contenido del archivo /etc/hosts

3. # para ello se utiliza cat y eliminamos todos los

4. # comentarios

5. open(ARCHIVO,"cat /etc/hosts|grep -v '#' |");

6. print <ARCHIVO>,"\n";

7. # cerramos el archivo (No hace falta, perl lo hace solo)

8. close(ARCHIVO);

Fíjese como en la línea 5 abrimos un asidero, utilizando un filtro compuesto por cat y grep para luego mostrar el resultado imprimiendo el contenido del asidero. Más adelante se explicará porque este programa es inseguro.

Arreglos, Arreglos asociativos y lazos

Perl cuenta con ciertas estructuras de repetición, las cuales le permiten procesar cierto grupo de instrucciones de manera repetitiva.

Arreglos y lazos con for

Un arreglo no es más que un conjunto de elementos almacenados en direcciones contiguas de memoria. Veamos como funcionan con el siguiente ejemplo:

1. #!/usr/bin/perl

2. @usuarios=('jose','luis','pepe'); #Nombres de los usuarios

3. @peso_kg=(70.5,90,65.4); #Peso

4. $num=@usuarios;

5. print("Usuarios a ser procesados: $num\n");

6. for($i=0;$i<=$#usuarios;$i++) {

7. print("Nombre:\t$usuarios[$i],\tPeso:\t$peso_kg[$i]\n");

8. }

En las líneas 1 y dos se muestra como se puede inicializar a un arreglo (Denotado con el símbolo @). Obtenemos la cantidad de elementos que tiene almacenados con la instrucción que se muestra en la línea 3 y luego mostramos elemento por elemento en un lazo de repetición (utilizando un blucle for) el cual se mueve desde el primer elemento (con índice 0) hasta el último ($#usuarios), incrementando el contador de uno en uno.

Arreglos asociativos y lazos con foreach

Este programa pudo ser implementado de otra forma. Perl cuenta con una estructura llamada arreglo asociativo o hash, la cual asocia una clave con un valor:

1. #!/usr/bin/perl

2. # Guardamos el nombre y peso de la persona en un solo sitio

3. %usuarios=(

4. 'jose', 70.5,

5. 'luis', 90,

6. 'pepe', 65.4,

7. );

8. # Averiguamos cuantos elementos tiene el hash

9. $num=0;

10. # Repetimos el lazo por cada una de las claves del

11. # hash, incrementando el contador

12. foreach $aux (keys(%usuarios)) {

13. $num++;

14. }

15. print("Usuarios a ser procesados: $num\n");

16. foreach $aux (keys(%usuarios)) {

17. print("Nombre:\t$aux,\tPeso:\t$usuarios{$aux}\n");

18. }

Fíjese como la iniciación de un hash (líneas 3 a la 7) implica llenar dos valores: uno de ellos es la clave (en este caso el nombre) y el otro su valor asociado (el peso). Note también la forma de acceder a los valores del hash: Si no conocemos las claves, entonces las obtenemos por medio de la función keys(), luego vemos el contenido asociado usando $hash{$clave}.

El comando foreach⁷ obtiene todas las claves del hash usuarios con ayuda de keys() y hace un recorrido (una por una) guardándolas en $aux.

Lazos con while y uso de split()

Los lazos con for y foreach son útiles, pero tienen limitaciones cuando se trata de utilizar una condición lógica complicada en la estructura de repetición. Es allí donde el uso de lazos con while se hace obligatorio. Ilustraremos esto con un programa que lee el contenido de una base de datos:

150.185.128.1 merlin SunOS

150.185.128.15 gandalf Solaris

150.185.128.2 arha SunOS

150.185.128.128 randu Linux

150.185.128.12 melchor SunOS

150.185.128.80 medussa Solaris

150.185.128.123 sorceles Linux

150.185.131.1 zeus Windows

Veamos el código que permite ver sus valores por pantalla:

1. #!/usr/bin/perl

2. print("Cargando la base de datos...");

3. open(ARCHIVO,"maquinas.txt") || die "no pude abrir el archivo $!\n";

4. print("listo!\n");

5. while(<ARCHIVO>) {

6. chop($_); # Eliminamos el retorno de carro

7. ($ip,$nombre,$so)=split(' ',$_);

8. print("Nombre :$nombre <$ip,$so>\n");

9. }

En la línea 2 se utiliza el operador lógico || ("or", más adelante se explicará con más detalle) para validar la si se ha podido abrir el archivo; Si falla la apertura del archivo, la función die() muestra un mensaje por pantalla y aborta la ejecución del script; Este es el uso más común de die().

En la línea 5 el programa entra en el lazo condicional de un bucle while. Este continuará repitiéndose indefinidamente mientras la condición encerrada entre paréntesis sea verdadera (En este caso, que no haya fin de archivo). Si la condición no se cumple, se sale del bucle, o nunca se entra. En este caso cada ciclo del bucle avanza el apuntador al archivo que al principio estaba en la primera línea a la siguiente, hasta que se llegue al fin del archivo. Como se abrió el archivo para lectura, cada línea es "leída del archivo" y es referenciada por <ARCHIVO>.

En la línea 6 se utiliza una variable especial llamada "$_". Significa "la variable actual", y en este caso se refiere a la línea que esta siendo leída en el bucle. Se necesita quitar el carácter de retorno de carro al final de la línea, por lo que se utiliza a la rutina chop().

En la línea 7 se divide a la variable $_ en tres partes para ser almacenados en $ip, $nombre y $so respectivamente, con ayuda de la rutina split(). Split utiliza como separador de campos un espacio en blanco (hablamos de un separador de campos ya que cada palabra en la línea esta separada por un espacio).

En la línea 8 se muestra el contenido de la base de datos con la función print().

Estructuras de decisión

Las estructuras de decisión tienen la siguiente forma en Perl:

If (condición) {

Código;

} elsif (condición) {

más código;

} else {

aún más código;

}

Supongamos que en el ejemplo anterior, se modifica a la base de datos para indique si la máquina es un servidor o no, el programa debe mostrar el nuevo campo por pantalla. Se cometio un error intencional en el archivo, colocando el tipo de medussa en minúsculas. Este tipo de error de entrada de datos es muy común, y se solucionará más adelante:

150.185.128.1 merlin SunOS Servidor

150.185.128.15 gandalf Solaris Cliente

150.185.128.2 arha SunOS Servidor

150.185.128.128 randu Linux Cliente

150.185.128.12 melchor SunOS Cliente

150.185.128.80 medussa Solaris cliente

150.185.128.123 sorceles Linux Servidor

150.185.131.1 zeus Windows Cliente

El siguiente código muestra el uso de las estructuras de decisión:

1. #!/usr/bin/perl

2. print("Cargando la base de datos...");

3. open(ARCHIVO,"maquinas2.txt") || die "no pude abrir el archivo $!\n";

4. print("listo!\n");

5. while(<ARCHIVO>) {

6. chop($_); # Eliminamos el retorno de carro

7. ($ip,$nombre,$so,$tipo)=split(' ',$_);

8. if ($tipo eq "Servidor") {

9. print("Servidor->\t");

10. } elsif ($tipo eq "Cliente") {

11. print("Cliente->\t");

12. } else {

13. print("Desconocido->\t");

14. }

15. print("Nombre :$nombre <$ip,$so>\n");

16. }

En la línea 8 se valida que la variable $tipo sea igual a "Servidor", utilizando el comparador de cadenas; Si no se cumple entonces comparamos para ver si es un "Cliente". Si no es ninguno de los dos tipos le asignamos "Desconocido":

leon[246] Si maestro while2.pl

Cargando la base de datos...listo!

Servidor-> Nombre :merlin <150.185.128.1,SunOS>

Cliente-> Nombre :gandalf <150.185.128.15,Solaris>

Servidor-> Nombre :arha <150.185.128.2,SunOS>

Cliente-> Nombre :randu <150.185.128.128,Linux>

Cliente-> Nombre :melchor <150.185.128.12,SunOS>

Desconocido-> Nombre :medussa <150.185.128.80,Solaris>

Servidor-> Nombre :sorceles <150.185.128.123,Linux>

Cliente-> Nombre :zeus <150.185.131.1,Windows>

La comparación de cadenas presenta el inconveniente de que la comparación es absoluta, es decir la cadena buscada tiene que coincidir de manera exacta con la cadena candidata, sino falla la.

Las condiciones lógicas de los if - else pueden ser tan complejas como se desee, y pueden estar anidadas si se quiere. Suponga por ejemplo que ninguna de las máquinas con Windows es servidora, entonces podría hacerce la siguiente modificación al programa en la línea 8, utilizando una comparación compuesta unida por una condición "y":

if (($tipo eq "Servidor") && ($so ne "Windows")) {

Se muestra a continuación un pequeño resumen de las posibles comparaciones lógicas que pueden hacerce bajo Perl:

• Tabla 1: Operadores lógicos posibles bajo Perl

Y estas son las comparaciones entre variables que se pueden hacer:

• Tabla 2: Comparaciones lógicas posibles

Uso de patrones en búsquedas y reemplazos, usando expresiones regulares

Una de las características más atractivas de Perl es que permite identificar o cambiar porciones de texto de manera flexible, utilizando lo que se conocen como patrones. La sintaxis de un patrón es:

• Tabla 3: Patrones de búsqueda y reemplazo más comunes

El programa que se mostró en el paso anterior tenía el inconveniente de que realizaba comparaciones absolutas; Para un usuario seria más cómodo poder escribir en mayúsculas o minúsculas en el archivo de datos y que el progerama se ocupara de corregir la apariencia del contenido; También sería comodo poder utilizar uno o más espacios o tabuladores para separar la información de cada máquina:

150.185.128.1 merlin SunOS Servidor

150.185.128.15 gandalf Solaris Cliente

150.185.128.2 arha SunOS SERVIDOR

150.185.128.128 randu Linux cLiENte

150.185.128.12 melchor SunOS Cliente

150.185.128.80 medussa Solaris cliente

150.185.128.123 sorceles Linux Servidor

150.185.131.1 zeus Windows CliENTE

El siguiente código permite hacer eso utilizando caracteres especiales y expresiones regulares:

1. #!/usr/bin/perl

2. print("Cargando la base de datos...");

3. open(ARCHIVO,"maquinas3.txt") || die "no pude abrir el archivo $!\n";

4. print("listo!\n");

5. while(<ARCHIVO>) {

6. chop($_); # Eliminamos el retorno de carro

7. ($ip,$nombre,$so,$tipo)=split('\s+',$_);

8. $tipo =~ tr/a-z/A-Z/; #Convertimos el tipo a mayusculas

9. $aux=$so; # Guardamos el viejo valor de $so

10. $so =~ tr/a-z/A-Z/; #Convertimos $so a mayusculas

11. if (($tipo eq "SERVIDOR") && ($so ne "WINDOWS")) {

12. print("Servidor->\t");

13. } elsif ($tipo eq "CLIENTE") {

14. print("Cliente->\t");

15. } else {

16. print("Desconocido->\t");

17. }

18. $so=$aux;

19. print("Nombre :$nombre <$ip,$so>\n");

20. }

En la línea 7 se sutituye el espacio en blanco (que es poco flexible), por la expresión \s+. Para entender lo que significa, se descompondrá la expresión:

• Proteja el carácter "s" poniéndole un \ adelante⁸

• El carácter s significa un carácter de espacio (espacio en blanco, tabulación).

• + significa uno o más

La conversión de minúsculas a mayúsculas se hace en las líneas 8 y 10. En las líneas 11 y 13 se hace una comparación con los valores, pero en mayúsculas, lo cual facilita la programación.

La siguiente tabla contiene caracteres para expresiones regulares:

• Tabla 4: Algunas expresiones regulares

Ejercicio 1: Uso de estructuras de decisión, patrones y estructuras de repetición

Haga un programa que muestre el siguiente menú por pantalla:

¡Bienvenido al la votación del mundial, Francia 98!:

Por favor, escriba el nombre del país por el cual desea votar:

1. Brasil

2. Colombia

3. Alemania

4. Argentina

5. Salir: escriba "gol" o "salir"

Para salir debe escribir "gol" o "salir". Si el usuario escribe una opción que no está especificada, el programa vuelve a mostrar el menú.

Al terminar el programa, debe mostrar la cantidad de votos obtenidos por cada País.

Solución:

1. #!/usr/bin/perl -w

2. $respuesta="";

3. %votacion=(

4. brasil=>0,

5. colombia=>0,

6. alemania=>0,

7. argentina=>0,

8. );

1. while (($respuesta ne "gol") && ($respuesta ne "salir")) {

2. if ($respuesta eq "brasil") {

3. $votacion{'brasil'}++;

4. } elsif ($respuesta eq "colombia") {

5. $votacion{'colombia'}++;

6. } elsif ($respuesta eq "alemania") {

7. $votacion{'alemania'}++;

8. } elsif ($respuesta eq "argentina") {

9. $votacion{'argentina'}++;

10. }

11. print("Bienvenido al la votación del mundial, Francia 98!:\n");

12. print("Por favor, escriba el nombre del país por el cual desea votar:\n");

13. printf("1) Brasil\n2) Colombia\n3) Alemania\n4) Argentina\n5) Salir: escriba \"gol\" o \"salir\"\n");

14. $respuesta=<STDIN>;

15. chop($respuesta);

16. $respuesta =~ tr/A-Z/a-z/;

17. }

18. print("Resultados de la votacion por pais\n");

19. foreach $pais (sort keys(%votacion)) {

20. print("$pais: $votacion{$pais}\n");

21. }

Uso de rutinas en Perl

El uso de rutinas se hace indispensable en cualquier lenguaje de programación. Permiten mantener el tamaño del código dentro de límites aceptables, a la vez que facilitan la programación.

Una rutina se define de la siguiente manera:

sub mirutina ([parámetro]) {

[return(algo)];

}

Parámetro es opcional y se usa para obligar al usuario de la rutina a utilizarla con la cantidad de parámetros adecuados. Si desea especificar los parámetros, escriba $ para una variable tipo escalar, @ para un arreglo, % para un hash y & para una referencia a una rutina.⁹ Una rutina puede retornar o no algun valor.

Todos los parámetros que se pasan a una subrutina vienen contenidos en la variable especial @_. Si desea acceder a algún elemento en especial de ese arreglo puede hacerlo con $_[índice], donde indice va desde 0 hasta el número de parámetros que tenga el arreglo.

Si desea que los cambios efectuados en una variable permanezcan aún después de finalizada la rutina, deberá utilizar un parámetro por referencia (similar a los punteros en C); Para ello colóquele un \ delante al tipo de parámetro (Esto es obligatorio cuando se pasa más de un arreglo como parámetro a una función). En Perl todas las variables que no son de tipo hash o arreglo (es decir, de tipo escalar) son pasadas por referencia.

Además de especificar el formato de un parámetro, estos pueden ser declarados como locales a la función utilizando la palabra reservada my o local (La diferencia entre ambas es que my no permite que una subrutina llamada dentro de una rutina modifique una variable, mientras que local sí).

La sintaxis para invocar una rutina es la siguiente:

&mirutina;

El siguiente programa convierte la primera letra de una cadena a mayusculas y el resto a minusculas¹⁰:

1. #!/usr/bin/perl

1. # Esta rutina convierte el contenido de la cadena de minúsculas

2. # a mayúsculas

3. sub mayusculas($) {

4. $_[0] =~ tr/a-z/A-Z/; # Modificamos el contenido del primer arg.

5. }

1. # Adivine lo que hace esta rutina :-)

2. sub minusculas($) {

3. $_[0] =~ tr/A-Z/a-z/;

4. }

1. # Esta rutina solo pone en mayúscula el primer carácter

2. sub oracion($) {

3. # Si el primer carácter es una letra

4. if ($_[0] =~ /^[a-z]|^[A-Z]/ ) {

5. #Extraigo el primer carácter de la cadena

6. local($primer)=substr($_[0],0,1);

7. #Extraigo el resto de la cadena

8. local($resto)=substr($_[0],1,length($_[0]));

9. #Convierto el resto de la cadena a minusculas

10. #y la primera letra a mayusculas

11. &minusculas($resto);

12. &mayusculas($primer);

13. #Uno las dos subcadenas

14. $_[0]=$primer.$resto;

15. }

17. $palabra="hola";

18. print("Antes: $palabra\n");

19. &oracion($palabra);

20. print("Después: $palabra\n");

21. $palabra="1hola";

22. print("Antes: $palabra\n");

23. &oracion($palabra);

24. print("Después: $palabra\n");

25. $palabra="hOlA";

26. print("Antes: $palabra\n");

27. &oracion($palabra);

28. print("Después: $palabra\n");

29. $palabra="HolA";

30. print("Antes: $palabra\n");

31. &oracion($palabra);

32. print("Después: $palabra\n");

Fíjese como se declaró el tipo de parámetro que va a recibir cada una de las funciones en las líneas 4, 8, y 12 como un escalar. Como Perl siempre pasa los parámetros por referencia, podemos estar confiados que cualquier cambio que hagamos permanecerá aún después de terminar la ejecución de la rutina.

Las conversiones de mayúsculas a minúsculas (y viceversa) se hacen con tr() en la línea 5 (y 9); La detección de sí el primer carácter de la palabra es una letra se hacecon ayuda de una expresión regular compuesto, en la línea 14, la cual significa: "encuentre al principio de la línea una letra que sea minúscula o al principio de la línea una letra que sea mayúscula".

Finalmente se concatenan los resultados en la variable original con el operador de interpolación de Perl (".").

La siguiente es una salida de ejemplo:

leon[121] $host> rutinas.pl

Antes: hola

Despues: Hola

Antes: 1hola

Después: 1hola

Antes: hOlA

Después: Hola

Antes: HolA

Después: Hola

Referencias en Perl

Una referencia es un apuntador a algo; El concepto de referencias en Perl es muy similar al concepto de apuntador en C o Pascal. Cuando se dice algo, nos referimos a un escalar, un arreglo, un hash o incluso una subrutina.

La siguiente tabla muestra como usar una referencia en Perl:

• Tabla 5: uso de las referencias en Perl

Si desea utilizar más de un arreglo o hash como parámetro de una función, entonces debe pasarlos por referencia. Esto se debe a que Perl concatena todos los argumentos que le son pasados en una sola variable (@_). Para evitar que esto pase, usted debe:

• Pasar una referencia en el argumento de una función

• Utilizar el apuntador dentro de la función, con la sintaxis indicada en la tabla anterior.

El siguiente programa toma un arreglo y un hash e imprime su contenido por pantalla:

1. #!/usr/bin/perl

1. sub refer (\@\%) {

2. my($arreglo,$hash)=@_;

3. print("imprimendo el arreglo\n");

4. $i=0;

5. foreach (@$arreglo) {

6. print("$i : $$arreglo[$i]\n");

7. $i++;

8. }

9. print("imprimendo el hash\n");

10. foreach $i (keys %$hash) {

11. print("$i : $$hash{$i}\n");

12. }

13. }

1. @a=(1,2,3,4,5,6);

2. %b=(

3. 1=>'Uno',

4. 2=>'Dos',

5. 3=>'Tres',

6. 4=>'Cuatro',

7. 5=>'Cinco',

8. 6=>'Seis',

9. );

1. &refer(\@a, \%b);

Los parámetros de la función esperan una referencia, por lo que le colocamos el operador \ en la línea 24.

Note como se pueden declarar los elementos de un hash, en las línea 17 a la 22, utilizando el operador => (En vez de ",". Esto ayuda a clarificar el programa).

Ejercicio 2: Uso de rutinas y referencias

Suponga que le han encomendado la tarea de verificar la conectividad de un grupo de máquinas en su laboratorio lo más rápido posible. Use para ello el programa que muestra el contenido de la base de datos y modifíquelo para que este le haga un ping a cada una de las máquinas que se encuentran en el laboratorio; El programa debe interpretar la respuesta del programa ping y basándose en eso muestra un mensaje por pantalla.

También se desea que el archivo de entrada pueda tener comentarios (En una línea individual, marcados con #), líneas en blanco y que al ser invocado de la siguiente manera produzca los siguientes resultados:

Verifica_red.pl, dice solamente si la máquina con dirección ip xx.yy.zz.ww está viva.

Verifica_red.pl -i, dice si la máquina con la dirección ip xx.yy.zz.ww está viva y si es o no un servidor y su sistema operativo. Para procesar la línea de comandos utilice el arreglo especial @ARGV, en el cual se guarda la línea de comandos cuando se ejecuta un programa.

Se recomienda que utilice subrutinas para que el código sea más legible y fácil de mantener.

Solución

El formato del archivo propuesto es el siguiente:

# Maquinas de mi dominio

192.168.1.1 leon Linux Servidor

192.168.1.2 tigre Linux/Windows95 Cliente

192.168.1.3 pantera Linux/Windows95 Cliente

192.168.1.4 puma Linux/Windows95 Cliente

# Maquinas externas a mi red, pero de interés

150.185.128.1 merlin SunOS Servidor

150.185.128.15 gandalf Solaris Cliente

150.185.128.2 arha SunOS SERVIDOR

150.185.128.128 randu Linux cLiENte

150.185.128.12 melchor SunOS Cliente

150.185.128.80 medussa Solaris cliente

150.185.128.123 sorceles Linux Servidor

150.185.131.1 zeus Windows CliENTE

El siguiente es el código fuente que realiza el trabajo:

#!/usr/bin/perl

# Este script verifica el funcionamiento de

# un grupo de maquinas funcionando en una red

# usando la herramienta ping

#

# Hecho por José Vicente Nuñez Zuleta ([email protected])

# ****************************************************]

# Configuración del script

#

$pingdir="/bin"; #Directorio donde va ping

$maqdir="./datos.txt"; #Ubicación y nombre del archivo de datos

$band="-c 1";

# ****************************************************]

# Fin de la configuración del script

# Rutina que carga el contenido del archivo a memoria

sub cargar_red(\%\%\%) {

my($ip,$so,$ti)=@_; #Las variables vienen en @_

# Leemos los datos y los guardamos en un hash

open(DATOS,$maqdir) || die "No puedo cargar los datos de la red $!\n";

my($aux,$aux2,$aux3,$aux4); #Variable auxiliar

#Comenzamos la lectura de los datos

my $c=0;

while(<DATOS>) {

#Validamos que no sea un comentario o línea vacía

chop($_);

if (($_ !~ /^\#/) && ($_ ne "")) {

$c++; #Otra maquina leida

($aux,$aux2,$aux3,$aux4)=split('\s+',$_);

$$ip{$aux2}=$aux;

$$so{$aux2}=$aux3;

$$ti{$aux2}=$aux4;

}

}

return($c);

} #Fin Cargar

# Devuelve el tipo de maquina, dado el nombre

#sub tipo($\%) {

# my($nom,$tip)=@_;

# return($$tip{$nom});

#}

# Devuelve el so de maquina, dado el nombre

#sub tipo($\%) {

# my($nom,$so)=@_;

# return($$so{$nom});

#}

# Devuelve el ip de maquina, dado el nombre

#sub tipo($\%) {

# my($nom,$ip)=@_;

# return($$ip{$nom});

#}

# Verificamos la lista de argumentos

if ($#ARGV <= 0) {

# Verificamos los argumentos del programa

if (($ARGV[0] ne "-i") && ($#ARGV == 0)) {

die "Error: Argumento incorrecto <$ARGV[0]>\a\n";

}

# Para poder pasar cada uno de los arreglos asociativos

# debemos hacerlo por referencia.

$cont=&cargar_red(\%dirip,\%sistop,\%tipo);

# Comenzamos a verificar las maquinas

foreach $maquina (keys %dirip) {

$res=`$pingdir/ping $band $dirip{$maquina}`;

print("$maquina <$dirip{$maquina}");

if ($#ARGV == 0) {

print(",$sistop{$maquina},$tipo{$maquina}>, ")

} else {

print(">, ");

}

print("Estado...");

if ($res =~ /0 packets/) {

print("X\n");

} else {

print("V\n");

}

}

} else {

die "Error: cantidad errónea de argumentos $! \n\a";

}

Validación de programas en Perl

Seguridad en Perl

Por razones de espacio sólo se cubrirán algunos aspectos sobre Perl y seguridad. El primero de ellos es la versión de Perl; Las versiones anteriores a la 5.0.4 tienen un bug de seguridad (buffer overflow) el cual permite que un usuario cualquiera se convierta en root bajo algunas plataformas (Puede conseguir el script en www.rootshell.com).

Se mostrarán a continuación algunos errores comúnes y su solución:

• ¿Recuerda el programa que trabajaba con asideros? El no especificar la ruta absoluta cuando ejecuta un comando externo puede comprometer su seguridad. La línea que llama al programa externo dice:

open(ARCHIVO,"cat /etc/jose|grep -v '#' |");

El programador supone que invoca al programa /bin/cat, confiando en que este sólo abre el archivo /etc/hosts. Pero ¿qué ocurre si un atacante cambia la variable de entorno $PATH y la reemplaza para que busque primero un script llamado cat, como el que se muestra a continuación:

#!/usr/bin/perl

open(ARCHIVO,"/etc/passwd");

while(<ARCHIVO>) {

print("$_");

}

Se muestra a continuación la forma de explotar el error, escrito en Perl:

1. #!/usr/bin/perl

2. # Obtenemos el valor de la variable de ambiente PATH

3. $var=$ENV{PATH};

4. # Veamos lo que contiene la variable

5. print("Contenido de \$PATH: $var\n");

6. # Lo que hace el atacante es mover a "." de primero, para poder

7. # cambiar al legitimo cat por otro

8. $var="\.:$var";

9. $ENV{PATH}=$var;

10. print("Contenido de \$PATH: $ENV{PATH}\n");

11. #Ahora ejecutamos al script con problemas

12. system("asidero.pl");

La clave de este script está en la línea 8, en donde se cambia el orden de búsqueda.

Este error se puede solucionar fácilmente de dos maneras:

• Coloque la ruta completa del comando ping. De esta manera, cualquier cambio en la ruta de búsqueda quedará sin efecto.

• Antes de correr el script, coloque valores conocidos a la variable de ambiente $PATH (Esto puede ser un poco tedioso a veces), justo lo necesario para correr el script.

• El siguiente es el script "seguro":

#!/usr/bin/perl

# Rutas "seguras" de mis programas

$catdir="/bin";

$grepdir="/usr/bin";

# Ahora se define una ruta segura, la cual sera valida solo

# mientras se ejecuta el programa

$ENV{PATH}="/bin:/usr/bin";

# Veamos el contenido del archivo /etc/hosts

# para ello se utiliza cat y eliminamos todos los

# comentarios

open(ARCHIVO,"$catdir/cat /etc/hosts|$grepdir/grep -v '#' |");

print <ARCHIVO>,"\n";

# cerramos el archivo (No hace falta, perl lo hace solo)

close(ARCHIVO);

• Otra forma de violentar un programa es abusando de los parámetros que recibe:

#!/usr/bin/perl

system("/bin/ls $ARGV[0]");

El programa muestra el contenido del directorio actual; de hecho puede recibir parámetros de ls como -l:

leon[56] $host> seg2.pl -l

Pero podemos abusar de él:

leon[58] $host> seg2.pl -l;cat /etc/passwd

Para remediarlo, fije la cantidad de parámetros con los que puede correr el programa de la siguiente manera:

system('/bin/ls','-l');

Si quiere seguir utilizando línea de comandos, entonces debe los datos que puede recibir el script.

Depuración de programas en Perl

Perl en modo de advertencias (-w)

El primer paso es decirle a Perl que corra el programa con mensajes de advertencia:

#!/usr/bin/perl -w

Validemos el programa verifica_red.pl para ver como funciona está característica:

leon[53] $host> ./verifica_red.pl

Name "main::cont" used only once: possible typo at ./verifica_red.pl line 65.

Use of uninitialized value at ./verifica_red.pl line 60.

La advertencia de la línea 65 nos indica que no estamos haciendo nada con esta variable, sólo la llenamos con la cantidad de máquinas leídas pero no hacemos más nada. Si se agrega en la línea 66 estas instrucciones:

print("Leidas $cont maquinas\n");

Se elimina la advertencia.

Perl se queja en la línea 60 sobre utilizar un valor no inicializado. Esto ocurre sí ARGV[0] no existe (cuando se invoca al programa sin argumentos; pruebe invocándolo con la opción -i). Solucione este problema anidando las expresiones if en la línea 60:

# Verificamos los argumentos del programa

if ($#ARGV == 0) {

if ($ARGV[0] ne "-i") {

die "Error: Argumento incorrecto <$ARGV[0]>\a\n";

}

}

Perl en modo de depuración (-d)

Si cambia la bandera -w por la bandera -d arrancará Perl en modo de depuración. Si bien hay depuradores más amigables en C, C++ o Pascal, esta herramienta se volverá indispensable cuando haga programas más grandes. Una vez realizado el cambio, arranque el script para ver como funciona:¹¹

$host> verifica_redd.pl

Loading DB routines from perl5db.pl version 1

Emacs support available.

Enter h or `h h' for help.

main::(verifica_redd.pl:12): $pingdir="/bin"; #Directorio donde va pin

g

DB<1>

Para salir del depurador escriba "q".

Listando código fuente y el contenido de las variables

El comando "l" (list) sirve para mostrar 10 líneas de código a la vez:

leon[72] $host> verifica_redd.pl

Loading DB routines from perl5db.pl version 1

Emacs support available.

Enter h or `h h' for help.

main::(verifica_redd.pl:12): $pingdir="/bin"; #Directorio donde va pin

g

DB<1> l

12==> $pingdir="/bin"; #Directorio donde va ping

13: $maqdir="./datos.txt"; #Ubicacion y nombre del archivo de datos

14: $band="-c 1";

15

16 # ****************************************************]

17 # Fin de la configuracion del script

18

19 # Rutina que carga el contenido del archivo a memoria

20 sub cargar_red(\%\%\%) {

21: my($ip,$so,$ti)=@_; #Las variables vienen en @_

Puede mirar el código de una línea en especial con sólo indicar su número:

DB<2> l 5

5 # usando la herramienta ping

Puede listar un rango de líneas:

DB<3> l 5-15

5 # usando la herramienta ping

6 #

7 # Hecho por Jose Vicente Nunez Zuleta ([email protected])

8

9 # ****************************************************]

10 # Configuracion del script

11 #

12==> $pingdir="/bin"; #Directorio donde va ping

13: $maqdir="./datos.txt"; #Ubicacion y nombre del archivo de datos

14: $band="-c 1";

15

La línea que está en negritas muestra en donde está nuestro apuntador de instrucción.

El comando p (print) le permite saber el valor de una variable:

DB<11> p $maqdir

./datos.txt

DB<12>

Puede hacer esto mismo utilizando el comando "X":

DB<12> X maqdir

$maqdir = './datos.txt'

DB<13>

Ejecutando el código fuente

Puede correr el programa paso a paso con el comando "s" (step):

DB<4> s

main::(verifica_redd.pl:13): $maqdir="./datos.txt"; #Ubicación y nombre del

archivo de datos

DB<4>

El comando "n" se comporta de manera similar, excepto que no entra dentro del código de una rutina cuando esta es llamada.

Puntos de quiebre, ejecución continua del programa

Se define un punto de quiebre con el comando "b". la ejecución del programa se detendrá en el momento en que el apuntador de instrucción llegue a la línea o condición indicada por el punto de quiebre. Por ejemplo, coloquemos un punto de quiebre en la línea en la línea 58 y corramos el programa:

DB<26> b 58

DB<27> c

main::(verifica_redd.pl:58): if ($#ARGV <= 0) {

DB<27>

Puede decirle al depurador que se detenga en una función en particular. Por ejemplo, detenga la ejecución en la rutina cargar_red:

DB<27> b cargar_red

DB<28> c

main::cargar_red(verifica_redd.pl:21):

21: my($ip,$so,$ti)=@_; #Las variables vienen en @_

DB<28>

Para ver todos los puntos de quiebra definidos, escriba "L". Si lo que desea es eliminarlos todos, escriba "D"; Si escribe "d numero de línea" elimina un punto de quiebra en particular:

DB<28> L

verifica_redd.pl:

21: my($ip,$so,$ti)=@_; #Las variables vienen en @_

break if (1)

58: if ($#ARGV <= 0) {

break if (1)

DB<28> d 58

DB<29> L

verifica_redd.pl:

21: my($ip,$so,$ti)=@_; #Las variables vienen en @_

break if (1)

DB<29>

Busqueda con patrones

El depurador le permite buscar por patrones (utilizando inclusive expresiones regulares) con ayuda del operador / (búsqueda hacia delante) y ? (búsqueda hacia atrás). Buque, por ejemplo, donde encuentra la palabra "ip":

DB<29> /ip

33: $$ip{$aux2}=$aux;

DB<30>

Busque ahora una línea en donde haya un comentario, utilizando una expresión regular:

DB<30> /^\#/

41: # Devuelve el tipo de maquina, dado el nombre

DB<31>

Corregir sólo la sintaxis con -c

Si ejecuta perl -c programa, perl le indicará si la sintaxis está bien o no:

leon[67] $host> perl -c hola.pl

hola.pl syntax OK

Ejercicio 3: Seguridad en Perl y depuración de programas

Investigue que hace, depure y corrija el siguiente programa:

1. #!/usr/bin/perl

2. # Este programa tiene varios errores

3. # dejados de manera intencional

4. $inutil=9993.345;

5. @palabras=(

6. 'hola',

7. 'casa',

8. 'mundo',

9. 'prueba',

10. );

11. sub mayu(@) {

12. my(@arr)=@_;

13. for ($i=0;$i <$#arr;$i++) {

14. $arr[$i] =~ tr/a-z/A-Z/;

15. }

16. }

17. print("@palabras\n");

18. &mayu(@palabras);

19. print("@palabras\n");

20. $fecha=`date`;

21. print("Terminado a $fecha");

Solución

#!/usr/bin/perl

# Este programa tiene varios errores

# dejados de manera intencional

@palabras=(

'hola',

'casa',

'mundo',

'prueba',

);

sub mayu(\@) {

my($arr)=@_;

$lim=scalar(@$arr);

for ($i=0;$i < $lim;$i++) {

$$arr[$i] =~ tr/a-z/A-Z/;

}

}

print("@palabras\n");

&mayu(\@palabras);

print("@palabras\n");

$fecha=`/bin/date`;

print("Terminado a $fecha");

CGI (Common Gateway Interface)

CGI [1][3] es el "pegamento" que permite realizar transacciones bancarias por Internet o hacer búsquedas en sitios como www.yahoo.com. CGI provee un canal consistente, independiente del lenguaje de programación, para el acceso remoto a bases de datos o aplicaciones.

Antes de dar una definición formal sobre lo que es CGI, veamos algunos conceptos claves.

Protocolos de comunicación

Modelo OSI y TCP/IP

Para poder conectar dos aplicaciones que están separadas físicamente entre sí, se utiliza un lenguaje y reglas de comunicación común a ambas, llamado protocolo de comunicación. Existe una abstracción llamada el modelo OSI, la cual permite a aplicaciones remotas comunicarse de manera confiable, a la vez de que su funcionamiento se mantiene independientemente del medio físico por el cual entran en contacto.

El modelo OSI¹² está compuesto de siete capas, cada una de las cuales es recorrida de arriba abajo, las cuales permiten la comunicación entre una aplicación y otra:

• Ilustración 1: Modelo OSI

Esto es lo que hace cada capa:

1. Capa de aplicación. Esta capa trata con los detalles específicos de la aplicación. El protocolo HTTP (El cual es el protocolo sobre el cual opera el WWW) está contenido aquí. Está capa es la responsable de darle al usuario las herramientas y medios para usar el programa.

2. Capa de presentación. La capa de presentación trata con la representación de los datos que los componentes de la capa de aplicación usan o refieren en sus comunicaciones. Por ejemplo, es en esta capa que un browser decide como presentar una imagen.

3. Capa de sesión. La capa de sesión provee mecanismos para organizar y sincronizar intercambios de datos con las capas superiores. Esto se debe a las diferencias en como una arquitectura almacena la información respecto a la otra.

4. Capa de transporte. Le asegura a las capas superiores que los datos serán transmitidos de manera confiable y con el menor costo posible. TCP (Uno de los protocolos sobre los cuales trabaja Internet) se encuentra aquí.

5. Capa de red. Se encarga de considerar el enrutamiento de la información. IP (Uno de los protocolos sobre los cuales trabaja Internet) se encuentra aquí.

6. Capa de enlace. Provee una transferencia punto a punto. También detecta errores provenientes de la capa física.

7. Capa física. Se encarga de los medios electrónicos y mecánicos que comienzan, mantienen y detienen las conexiones físicas entre dos entidades de enlace.

Como se dijo con anterioridad, el protocolo HTTP es el corazón del World Wide Web. HTTP surgió debido a las deficiencias de otros protocolos como FTP en el manejo de información de hipertexto. Al igual que FTP, HTTP corre en las capas superiores del modelo OSI.

HTTP

A continuación se explican brevemente algunas de las características del protocolo HTTP:

• Utiliza un esquema de direccionamiento completo: Cuando se ensambla un enlace en HTML, estos tienen la forma general de http://nombre-de-la-maquina:numero de puerto/ruta/archivo.html. Note que el nombre de la máquina conforma con las reglas de codificación de IP (aaa.bbb.ccc.ddd) o el esquema utilizado por DNS.¹³

• Es extensible y está abierto a la representación de tipos de datos: Cuando un cliente establece una conexión, se envía una cabecera que conforma con las especificaciones de correo electrónico estándares para Internet (RFC822)¹⁴. Normalmente, desde el punto de vista de la programación de "puentes", muchos clientes esperan más que un simple archivo de texto o HTML. Cuando el servidor transmite información de vuelta al cliente, incluye una cabecera con extensiones MIME (Multipurpouse Internet Mail Extensión, Extensión Internet de correo electrónico de multipropósito), para decirle al cliente que tipo de datos sigue a la cabecera. El servidor no necesita tener la capacidad de interpretar el tipo de dato pedido, eso es la responsabilidad del cliente.

• No tiene estado: Sin estado significa que una vez que el cliente y el servidor han terminado sus diálogos, la conexión es terminada. Esto tiene consecuencias importantes y muestra una diferencia con respecto a otros protocolos como FTP. Sin estado también significa que no hay "memoria" entre las conexiones entre clientes. Esto significa que el servidor ve cada conexión de un cliente como una conexión nueva, aún si este vuelve a pedir el mismo documento.

• Es rápido.

• Existen implementaciones portables, y es un estándar abierto: No pertenece a un solo fabricante, corre en muchas plataformas y permite nuevas adiciones como protocolos de cifrado de datos como SHTTP o Secure Socket Layers.

Modelo cliente - servidor

Como muchas otras aplicaciones de red, el World Wide Web se ajusta al modelo cliente - servidor. Él termino cliente / servidor ha sido utilizado ampliamente durante muchos años para describir una gran variedad de sistemas.

La comunicación entre el cliente y el servidor ocurre sobre la red, la cual en el caso del WWW es Internet.¹⁵ El cliente y el servidor pueden estar corriendo en diferentes sistemas operativos, sobre diferentes arquitecturas, haciendo nuestro modelo independiente de la plataforma.

El cliente

En nuestro caso, el cliente es un browser como Netscape Communicator o Lynx. El browser lo que hace es pedirle un documento a un servidor (utilizando un localizador uniforme de recursos, URL o Uniform Resource Locators), para luego procesarlo (transformarlo para ser presentado por pantalla).

El servidor

El servidor se encarga de manejar archivos, responde a las peticiones del cliente y envía las respuestas a las preguntas realizadas. El servidor también provee un enlace a aplicaciones que no son clientes http, por medio de CGI.¹⁶

La siguiente ilustración muestra como es la interacción entre un par de clientes y un servidor:

• 
  Ilustración 2: Comunicación entre un cliente y un servidor

Si usted ha hecho una página html y la ha puesto en un servidor, ha estado utilizando el primer tipo de interacción cliente - servidor. Ahora fíjese en el segundo tipo, el servidor no necesita saber como interpretar los datos que devuelve programa, el sólo los pasa al cliente.

CGI

CGI (Common Gateway Interface) [10] es el medio que tiene un servidor que habla HTTP para comunicarse con un programa. La idea es que cada cliente y programa servidor (independientemente del sistema operativo) se adhieran a los mismos mecanismos para el flujo de datos entre el cliente, el servidor y el programa que hace el puente.

Cuando se habla de un cliente de un puente, se dice que puede ser un programa que actúa como intermediario entre el servidor HTTP y otro programa que puede ser ejecutado por medio de línea de comandos (Por ejemplo una base de datos relacional).

Cuandos e habla de una interfaz, se dice que es un mecanismo estándar que le permite a los programadores trabajar dentro de un entorno productivo sin tener que reinventar la rueda.

Funcionamiento de CGI

Una transacción con CGI efecuta los siguientes pasos:

1. El cliente envía una petición conformando con el formato estándar de un URL a el servidor (se incluye el tipo de servicio, ubicación del servicio). Además se envía un encabezado con datos provistos por el cliente

2. El servidor procesa la petición de llegada y decide que hacer luego, dependiendo del tipo de servicio solicitado. Si es un archivo html lo devuelve pero si es un programa CGI entonces:

• El encabezado con datos es recibido por el cliente, si existe. Estos datos son pasados al programa como variables de entorno ($ENV{} en Perl).

• Los parámetros de ejecución del programa, si existen, son tomados por el programa. Estos datos pueden ser pasados por medio de variables de entorno ($ENV{QUERY_STRING}) o por Entrada estándar (<STDIN>). La forma en como el cliente envía los datos la decide el programador al hacer la interfaz.

1. El programa CGI devuelve una respuesta, como un documento HTML, al servidor. El programa CGI siempre debe devolver alguna respuesta. Los datos deben estar precedidos por un encabezado que conforme con las convenciones MIME, el tipo de dato devuelto es indicado en la cebecera.

2. La salida es devuelta al cliente por el servidor y se corta la comunicación.

Generación dinámica de HTML

Se supone que para esta parte que el administrador del sistema le ha dado permiso para ejecutar programas basados en CGI en el servidor. Para la parte práctica, se guardarán los programas en el directorio /cgi-bin del servidor.

Asegúrese que el directorio public_html y sus subdirectorios tienen permisología de lectura y ejecución para todo el mundo. Todos los script que haga deberán tener permiso de ejecución para todo el mundo:

$host> chmod a+xr cgi-bin/

A continuación se muestra el código básico para generar un documento dinámico con CGI, utilizando Perl [2]:

1. #!/usr/bin/perl

2. print "Content-type: text/html \n\n";

3. print("<!-- Esta pagina fue generada de manera dinamica -->\n");

4. print("<html>\n");

5. print("<head>\n");

6. print("<title>\"Hola mundo\"</title>\n");

7. print("</head>\n");

8. print("<body>\n");

9. print "<h1>Hola mundo. Este es mi primer CGI en Perl </h1> \n";

10. print("</body>\n");

11. print("</html>\n");

La línea 2 es muy importante, ya que allí se define el tipo de datos que va a recibir el browser (text/html) con el siguiente formato:

Content-type tipo/subtipo <retorno de carro> retorno de carro>

Los dos retornos de carro son muy importantes, sin ellos el programa no trabajará.

La siguiente tabla muestra algunas de los tipos de cabecera más usadas:

• Tabla 6: Tipos MIME comunes

Se mostrará a continuación la salida esperada del programa:

• Ilustración 3: Salida de ejemplo de hola.cgi

Ejercicio 4: Generación dinámica de HTML

Convierta el programa "verifica_red.pl" a CGI para que este muestre su salida por pantalla por medio de una tabla. Para simplificar las cosas elimine la parte que procesa la línea de comandos.

Utilice colores para resaltar los resultados. El programa debe mostrar todos los datos que están en nuestra base de datos a medida que verifique cada máquina.

Solución:

1. #!/usr/bin/perl

1. # Este script verifica el funcionamiento de

2. # un grupo de maquinas funcionando en una red

3. # usando la herramienta ping. Esta version utiliza

4. # CGI

5. #

6. # Hecho por Jose Vicente Nunez Zuleta ([email protected])

1. # ****************************************************]

2. # Configuracion del script

3. #

4. $pingdir="/bin"; #Directorio donde va ping

5. $maqdir="./datos.txt"; #Ubicacion y nombre del archivo de datos

6. $band="-c 1";

1. # ****************************************************]

2. # Fin de la configuracion del script

1. # Rutina que carga el contenido del archivo a memoria

2. sub cargar_red(\%\%\%) {

3. my($ip,$so,$ti)=@_; #Las variables vienen en @_

4. # Leemos los datos y los guardamos en un hash

5. open(DATOS,$maqdir) || die "<P>No puedo cargar los datos de la red $!</body></html>\n";

6. my($aux,$aux2,$aux3,$aux4); #Variable auxiliar

7. #Comenzamos la lectura de los datos

8. my $c=0;

9. while(<DATOS>) {

10. #Validamos que no sea un comentario o linea vacia

11. chop($_);

12. if (($_ !~ /^\#/) && ($_ ne "")) {

13. $c++; #Otra maquina leida

14. ($aux,$aux2,$aux3,$aux4)=split('\s+',$_);

15. $$ip{$aux2}=$aux;

16. $$so{$aux2}=$aux3;

17. $$ti{$aux2}=$aux4;

18. }

19. }

20. return($c);

21. } #Fin Cargar

1. print("Content-type: text/html \n\n"); #Encabezado del mensaje

2. print("<!-- Documento generado de manera dinamica -->\n");

3. print("<html><head><title>Verifica Red: 1.0</title></head>\n");

4. print("<body bgcolor=#000000 text=yellow>\n");

5. $cont=&cargar_red(\%dirip,\%sistop,\%tipo);

6. print("<font size=5 face=\"Arial,Helvetica,Verdana\">Leidas $cont maquinas</font>\n");

7. # Comenzamos a verificar las maquinas

8. print("<table border\=0>\n");

9. print("<tr bgcolor=blue>\n");

10. print("<th>Nombre<th>IP<th>Sistema operativo<th>Tipo<th>Estado\n");

11. foreach $maquina (keys %dirip) {

12. $res=`$pingdir/ping $band $dirip{$maquina}`;

13. print("<tr>\n");

14. print("<td>$maquina\n");

15. print("<td>$dirip{$maquina}\n");

16. print("<td>$sistop{$maquina}\n");

17. print("<td>$tipo{$maquina}\n");

18. if ($res =~ /0 packets/) {

19. print("<td bgcolor=red>\&nbsp\n");

20. } else {

21. print("<td bgcolor=green>\&nbsp\n");

22. }

23. }

24. print("</table>");

25. print("</body></html>");

Para probar el script, cambie su permisología con chmod a+x verifica_red.pl y coloque una instrucción similar a esta en su browser:

http://www.servidor.dominio/cgi-bin/verifica_red.cgi

Métodos de comunicación

Como se mencionó con anterioridad, un cliente puede pasar información al servidor utilizando dos métodos:

• Variables de entorno

• Entrada estándar

A continuación se explicará brevemente cada uno de ellos:

Método GET

El método GET trabaja con variables de entorno, colocando los datos en dos variables llamadas "QUERY_STRING" y "PATH_INFO". El contenido de estas variables es codificado por el servidor y es responsabilidad del programador decodificarlas de nuevo.

Sin embargo, esas no son las únicas variables que pasa el cliente al servidor. Las restantes variables envían información que puede ser utilizada de manera útil, como la validación del tipo de browser que utiliza un usuario. Ellas no dependen de la aplicación particular que maneja el cliente.

El siguiente código muestra el contenido de la cadena QUERY_STRING cuando es enviada por el usuario:

#!/usr/bin/perl

print ("Content type: text/plain\n\n");

print ("El contenido de la variable QUERY_STRING es: $ENV{QUERY_STRING}\n");

Corriendo el script como http://www.servidor.dominio /cgi-bin/get.cgi?Esta es una prueba

, produce la siguiente salida:

El contenido de la variable QUERY_STRING es: Esta

Note como se pierde el resto de la cadena. Esto significa que debemos codificar nuestro mensaje para que pueda llegar completo, algo de lo que se encargan las formas en html de las cuales hablaremos más adelante. El contenido de la cadena QUERY_STRING viene justo después del signo de interrogación.

La gente de NCSA, los autores del browser Mosaic, no recomiendan el uso de GET ya que si el cliente envía una cadena muy larga, esta puede derribar al Shell que recibe la variable de ambiente (esto se conoce como "quedarse sin espacio de entorno").

Para evitar estas limitaciones, se usa entonces el método POST.

Método POST

El método POST no tiene las limitaciones del método GET ya que utiliza a STDIN para obtener los datos. Los datos también son codificados allí, de manera que es responsabilidad del programador decodificar los datos.

El siguiente código muestra como trabaja el método POST en Perl:

#!/usr/bin/perl

# read trata de leer CONTEN_LENGTH bytes de datos en $_ desde STDIN

$entrada=read(STDIN,$_,$ENV{CONTENT_LENGTH});

print ("Content type: text/plain\n\n");

print ("El usuarios escribio lo siguiente: $entrada\n");

La captura de datos se hace desde STDIN, con ayuda de la función read(). Para utilizar este método, debemos utilizar una forma de html.

Variables de entorno adicionales

El siguiente programa muestra el contenido de las variables de presentes al momento de ejecutar nuestra aplicación:

#!/usr/bin/perl

print("Content-type: text/html\n\n");

print("<html><head><title>Variables de entorno</title></head>\n");

print("<body>\n");

print("<ul>\n");

foreach $variable (keys %ENV) {

print("<li>$variable = $ENV{$variable}\n");

}

print("</ul></body></html>\n");

La siguiente es una salida de ejemplo al correr este programa con lynx servidor.dominio/cgi-bin/variables.cgi:

Variables de entorno (p1 of 2)

* SERVER_SOFTWARE = Apache/1.3.0 (Unix)

* GATEWAY_INTERFACE = CGI/1.1

* DOCUMENT_ROOT = /usr/local/etc/httpd/htdocs

* REMOTE_ADDR = 150.185.146.42

* SERVER_PROTOCOL = HTTP/1.0

* REQUEST_METHOD = GET

* REMOTE_HOST = berlioz.ing.ula.ve

* QUERY_STRING =

* HTTP_USER_AGENT = Lynx 2.5 libwww-FM/2.14

* PATH =

/usr/local/sbin:/usr/local/bin:/sbin:/usr/sbin:/bin:/usr/bin:/usr/

X11/bin:/usr/andrew/bin:/usr/openwin/bin:/usr/games:.:/usr/lib/teT

eX/bin

* HTTP_ACCEPT = audio/x-pn-realaudio, application/postscript,

application/x-csh, application/x-perl, x-conference/x-cooltalk,

audio/x-pn-realaudio, */*, application/x-wais-source,

application/html, text/plain, text/html, www/mime

* REMOTE_PORT = 2918

* HTTP_ACCEPT_LANGUAGE = en

* SCRIPT_NAME = /cgi-bin/variables.cgi

* SERVER_NAME = www.felinos.ve

* REQUEST_URI = /cgi-bin/variables.cgi

* SERVER_PORT = 80

* HTTP_HOST = leon.felinos.ve

* SERVER_ADMIN = [email protected]

Codificación de los datos

El servidor codifica los datos de la siguiente manera:

• Los espacios son cambiados al signo +

• Ciertos caracteres de teclados son convertidos a su equivalente hexadecimal.

• Los campos entre las formas son concatenados a &

Ejercicio 5: Variables de entorno

Haga un pequeño programa en Perl que le diga al usuario remoto que browser está utilizando. Utilice para ello el contenido de la variable HTTP_USER_AGENT.

Solución

#!/usr/bin/perl

print("Content-type: text/html\n\n");

print("<HTML><HEAD><TITLE>Tu browser es</TITLE></HEAD><BODY>\n");

if ($ENV{HTTP_USER_AGENT} =~ /Mozilla/) {

print("<P>Estas utilizando Nestcape\n");

} elsif ($ENV{HTTP_USER_AGENT} =~ /Lynx/) {

print("<P>Estas utilizando Lynx");

} else {

print("<P>No puedo determinar tu browser\n");

}

print("</BODY></HTML>");

Formas en HTML

Para esta parte suponemos que el lector está familiarizado con el lenguaje básico de HTML. Si el lector está interesado puede consultar [1], en la sección de bibliografía al final de este trabajo.

FORM es usado en un documento HTML como cualquier etiqueta. Su estructura básica es:

<FORM Action = "URL" [Enctype] Method = "POST|GET"> Contenidos de la forma </FORM>

Aquí el elemento Action = URL corresponde al script o programa CGI que procesará la información enviada por el cliente. Method identifica la forma en que los contenidos de la forma son enviados por el programa que pregunta. El elemento Enctype identifica el método utilizado para codificar los pares de valor / datos (sino se especifica, el browser usa application/x-www-form-urlencoded¹⁸).

Una etiqueta FORM no puede ser anidada, pero puede haber tantas como sea en un documento.

Elementos que contiene la etiqueta FORM

Los siguientes son los elementos que integran la etiqueta FORM [10]:

Input: Recolecta información acerca del usuario

Atributos de Input

• Align: se usa sólo con un tipo de imagen. Los posibles valores son top, middle y bottom.

• Checked: Provoca que el estado inicial de un botón o caja de selección sea marcado.

• Maxlength: Coloca el tamaño máximo de caracteres que un usuario puede entrar en un campo de texto. El valor por omisión es ilimitado.

• Name: Especifica el nombre simbólico usado en la transferencia de salida de la forma.

• Size: Específica el ancho el campo mostrado al usuario.

• Src: Define el archivo fuente para la imagen cuando el atributo Type es colocado en image.

• Text: Es un área de entrada de datos de una sola línea. Si el usuario presiona entrar entonces los datos son enviados al script correspondiente.

• Type: Define que tipo de entrada es posible. Sus valores son:

• Checkbox: Usado para recolectar datos que puedan tener múltiples valores a la vez.

• Hidden: Especifica valores configurados por la forma, sin ayuda del usuario.

• Image: Envía la forma una vez que el usuario presiona la imagen, con las respectivas coordenadas x/y más el nombre del objeto.

• Password: El usuario entra texto aquí, pero este no se ve por pantalla.

• Radio: Recolecta información donde uno y solo un valor puede ser seleccionado.

• Reset: Reinicia la forma a sus valores por omisión. El atributo value muestra la cadena de caracteres que el usuario verá por pantalla.

• Submit: Envía los valores de la forma. El atributo value muestra la cadena de caracteres que el usuario verá por pantalla.

• Text: Es usada para una sola línea de texto. Utiliza los atributos value y Maxlength.

Value define el valor mostrado por el campo o el valor del campo cuando es seleccionado.

Option: Ocurre dentro del elemento select, el cual le permite al usuario escoger entre varias alternativas, y es usado para representar cada opción de select.

Atributos de option:

• Selected: indica sí la opción esta seleccionada

• Value: Si esta presente, este es el valor retornado por select, si no, el valor retornado es especificado por option.

Select: Le permite al usuario escoger entre múltiples alternativas

Atributos de select:

• Multiple: Por omisión, el usuario solo puede seleccionar un ítem a la vez. El uso de este atributo permite seleccionar más de un atributo.

• Name: El nombre lógico que será enviado y está asociado al escoger select.

• Size: Especifica la cantidad de ítems visibles. Si no se especifica, la selección se comportará como un menú "pull-down".

Textarea: Recolecta múltiples líneas de texto por el usuario. Al usuario se le presenta un panel cuadrado en el cual puede escribir. Se usa en pares.

Atributos de textarea:

• Cols: El número de columnas que serán mostradas (el usuario puede usar la barra de desplazamiento para moverse a lo largo de más columnas si es necesario).

• Rows: Número de filas que serán mostradas.

• Name: Nombre lógico asociado al texto retornado.

El siguiente ejemplo muestra una par de formas que recogen datos. Estos son procesados por un script en CGI el cual sabe interpretar los datos provenientes del método POST y el método GET:

1. <!-- Ejemplo de una forma que trabaja con los dos metodos -->

2. <!-- Hecho por José Vicente Nuñez Zuleta ([email protected]) -->

3. <html>

4. <head>

5. <title>Envio de datos con GET y POST</title>

6. </head>

7. <body bgcolor=#ffffff>

8. <P><strong>Envio de datos con GET</strong>

9. <form action="http://www.felinos.ve/cgi-bin/res.cgi method=get">

10. <input type=hidden name="evaluacion" value="depende del usuario">

11. Escriba su nombre: <input type=text name="nombre" size=20><br>

12. Sexo:

13. <input type=radio name=sexo value=M>Masculino

14. <input type=radio name=sexo value=F>Femenino

15. <P>Diga cual de las partes del curso le han gustado mas:

16. <input type=checkbox name=perl-basico>Perl b&aacute;sico

17. <input type=checkbox name=perl-dep>Depuraci&oacute;n en Perl

18. <input type=checkbox name=cgi checked>Perl y CGI

19. <P>Escriba un comentario secreto para el instructor:<input type=password name=secreto size=5 maxlength=5><br>

20. <P>Otorgue una calificacion del 1 al 10 a este curso:

21. <SELECT name=calific>

22. <OPTION>9

23. <OPTION>8

24. <OPTION>7

25. <OPTION>6

26. <OPTION>5

27. <OPTION>4

28. <OPTION>3

29. <OPTION>2

30. <OPTION value="ups">1

31. <OPTION selected>10

32. </SELECT>

33. <P>Finalmente, sea expresivo y escriba lo que quiera:

34. <P><textarea cols=20 name=expresion rows=3></textarea>

35. <P><input type=submit value="Enviar con GET">

36. <P><input type=reset value="Volver a empezar">

37. </form>

38. <P><strong>Envio de datos con POST</strong>

39. <form action="http://www.servidor.dominio/cgi-bin/res.cgi method=post">

40. <input type=hidden name="evaluacion" value="depende del usuario">

41. Escriba su nombre: <input type=text name="nombre" size=20><br>

42. Sexo:

43. <input type=radio name=sexo value=M>Masculino

44. <input type=radio name=sexo value=F>Femenino

45. <P>Diga cual de las partes del curso le han gustado mas:

46. <input type=checkbox name=perl-basico>Perl b&aacute;sico

47. <input type=checkbox name=perl-dep>Depuraci&oacute;n en Perl

48. <input type=checkbox name=cgi checked>Perl y CGI

49. <P>Escriba un comentario secreto para el instructor:<input type=password name=secreto size=5 maxlength=5><br>

50. <P>Otorgue una calificacion del 1 al 10 a este curso:

51. <SELECT name=calific>

52. <OPTION>9

53. <OPTION>8

54. <OPTION>7

55. <OPTION>6

56. <OPTION>5

57. <OPTION>4

58. <OPTION>3

59. <OPTION>2

60. <OPTION value="ups">1

61. <OPTION selected>10

62. </SELECT>

63. <P>Finalmente, sea expresivo y escriba lo que quiera:

64. <P><textarea cols=20 name=expresion rows=3></textarea>

65. <P><input type=submit value="Enviar con POST">

66. <P><input type=reset value="Volver a empezar">

67. </form>

68. </body>

69. </html>

70. <!-- Fin del documento -->

La apariencia del documento sería similar a la siguiente:

• 
  Ilustración 4: Salida de ejemplo para un par de formas

Uniendo todo: Manejo de los datos de una forma, seguridad

Cuando haga programas en CGI prepárese para el peor escenario posible al recibir los datos de una forma. No sólo el usuario puede equivocarse escribiendo los datos, sino que un atacante malicioso puede tratar de violentar su sistema.

En la parte de seguridad en Perl, se vió como agregando más información a la línea de comandos de un programa podía violar la seguridad del sistema. Esto puede evitarse convirtiendo todos los caracteres que no pertenezcan a un grupo conocido en el carácter "_":¹⁹A continuación se muestra el código de un programa potencialmente inseguro:

1. #!/usr/bin/perl

1. $result=`/bin/ping $ARGV[0] -c 1`;

2. print("La maquina esta $result");

La línea 2 es potencialmente insegura ya que en vez de suministrar solamente una dirección o nombre de máquina, un atacante puede hacer algo como esto:

leon[91] $host> ping_inseguro.pl localhost;/bin/cat /etc/passwd

El siguiente ejemplo explota esa vulnerabilidad en el programa test-env, que viene con los servidores NCSA y otros, al utilizar los llamados "metacaracteres", los cuales son caracteres especiales interpretados por el Shell, para obtener información no autorizada de una máquina (En este caso el contenido del directorio /cgi-bin):

berlioz[56] $host> lynx http://www.victima.com/cgi-bin/test-cgi?/usr/local/etc/httpd/cgi-bin/*

Con el siguiente resultado:

CGI/1.0 test script report:

argc is 1. argv is /usr/local/etc/httpd/cgi-bin/\*.

PATH = /usr/local/bin:/usr/bin:/bin:.

SERVER_SOFTWARE = Apache/1.2b10 PHP/FI-2.0b11

SERVER_NAME = www.victima.com

GATEWAY_INTERFACE = CGI/1.1

SERVER_PROTOCOL = HTTP/1.0

SERVER_PORT = 80

REQUEST_METHOD = GET

HTTP_ACCEPT = audio/x-pn-realaudio, application/postscript, application/x-csh,

application/x-perl, x-conference/x-cooltalk, audio/x-pn-realaudio, */*, applica

tion/x-wais-source, application/html, text/plain, text/html, www/mime

PATH_INFO =

PATH_TRANSLATED =

SCRIPT_NAME = /cgi-bin/test-cgi

QUERY_STRING = /usr/local/etc/httpd/cgi-bin/analog /usr/local/etc/httpd/cgi-bin

/archie /usr/local/etc/httpd/cgi-bin/calendar /usr/local/etc/httpd/cgi-bin/came

A continuación se muestra el código que permite recolectar los datos de la forma que hicimos anteriormente, con las consideraciones de seguridad aplicadas:

1. #!/usr/bin/perl

2. #

3. # Hecho por Jose Vicente Nunez Zuleta ([email protected])

4. #

5. # La siguiente rutina determina el tipo de metodo empleado

6. # en el envio de los datos

7. sub metodo_forma {

8. my($metodo)=$ENV{'REQUEST_METHOD'};

9. my($entrada);

10. #Validamos primero el tipo de codificacion

11. if (($ENV{'CONTENT_TYPE'} !~ /^application\/x-www-form-urlencoded/i) && ($ENV{'CONTENT_TYPE'} ne '')) {

12. print("Content-type: text/html\r\n\r\n");

13. print("<html><head><title>Error en CGI</title></head>\n");

14. print("<body bgcolor=#FFFFFF>\n");

15. print("<H1>Error: Codificacion desconocida\n</H1>");

16. print("<H2>Soporta: application\/x-www-form-urlencoded\n</H2>");

17. print("</body></html>\n");

18. exit;

19. }

20. $metodo =~ tr/A-Z/a-z/; #Convierta la respuesta a minusculas

21. #El metodo es get y QUERY_STRING no esta vacia

22. if (($metodo eq "get") && ($ENV{QUERY_STRING} ne '')) {

23. return($ENV{QUERY_STRING});

24. #El metodo es POST y tiene longitud > 0

25. } elsif (($metodo eq "post") && ($ENV{'CONTENT_LENGTH'} > 0)) {

26. read(STDIN,$entrada,$ENV{'CONTENT_LENGTH'});

27. return($entrada);

28. } else { #Metodo desconocido o valor nulo

29. print("Content-type: text/html\r\n\r\n");

30. print("<html><head><title>Error en CGI</title></head>\n");

31. print("<body bgcolor=#FFFFFF>\n");

32. print("<H1>Error: Metodo desconocido o valor nulo\n</H1>");

33. print("<H2>Soporta: Method=GET\|POST\n</H2>");

34. print("</body></html>\n");

35. exit;

36. }

37. } #Fin metodo_forma()

1. # La siguiente rutina decodifica la entrada y la guarda en

2. # un arreglo asociativo

3. sub decodificar_forma($) {

4. my($BUENOS_CARACTERES)='-a-zA-Z0-9_.@ '; #Caracteres validos en los datos

5. my($entrada)=@_;

6. my(%pares,$clave,$valor);

7. $entrada =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/ge; #Convierto a alfanumerico los caracteres en hexadecimal

8. @pares=split('&',$entrada); #Separo cada par y lo guardo en un arreglo

9. foreach $par (@pares) { # proceso cada par en pares

10. ($clave,$valor)=split(/=/,$par); #Guarde clave,valor usando la busqueda anterior

11. $valor =~ s/\+/ /g; #Cambie + por espacio en toda la cadena

12. # Seguridad en caracteres,segun aviso del Cern en

13. # http://geek-girl.com/bugtraq/1997_4/0232.html

14. $clave =~ s/[^$BUENOS_CARACTERES]/_/go;

15. $valor =~ s/[^$BUENOS_CARACTERES]/_/go;

16. #Finalmente construya el arreglo asociativo

17. $pares{$clave}=$valor;

18. }

19. return(%pares);

20. } # Fin Decodificar_forma()

1. # Comienzo del programa principal

2. $entrada=&metodo_forma();

3. %datos=&decodificar_forma($entrada);

4. $| = 1; #Vaciamos el buffer de escritura lo mas rapido posible

5. print("Content-type: text/html\r\n\r\n");

6. print("<html>\n");

7. print("<head><title>Datos enviados por el usuario</title></head>\n");

8. print("<body bgcolor=\#ffffff>\n");

9. print("<pre>\n");

10. print("El contenido de la forma es:\n");

11. foreach $clave (keys(%datos)) {

12. print("$clave = $datos{$clave}\n");

13. }

14. print("Variables de entorno\n");

15. foreach $clave (keys(%ENV)) {

16. print("$clave = $ENV{$clave}\n");

17. }

18. print("</pre>\n");

19. print("</body>\n");

20. print("</html>");

En la línea 7 encontramos a la rutina metodo_forma, la cual se encarga básicamente de:

• Verificar que los datos estén codificados con application\/x-www-form-urlencoded. Este valor viene vacio cuando se usa el método GET.

• Averiguar si los datos fueron enviados con GET o POST y que tengan una longitud mayor que cero.

Una vez conocida la forma en como fueron enviados los datos, estos son guardados en una variable, listos para ser decodificados. De esto se encarga la rutina decodificar_forma,a cual hace lo siguiente:

• En la línea 44 se convierten los elementos que están en hexadecimal en la variable capturada con metodo_forma a su equivalente alfanumérico. Para ello se utiliza una expresión regular con reemplazo²⁰ y a la función unpack().²¹

• En la línea 45 se separa a los pares clave / valor y los guarda en un arreglo. Luego se procesa el arreglo, línea 46, y por cada par:

• Se separan en clave y valor (línea 47);

• A cada clave y valor les son sustituidos los signos + por espacios en blanco (línea 48).

• Se eliminan los caracteres de cada clave y valor si no están en una lista de caracteres conocidos (líneas 51 y 52).

• Se crea un arreglo asociativo con cada par y valor (línea 54).

• Al finalizar de procesar los pares se devuelve el arreglo asociativo (línea 56).

El código anterior produce una salida similar a esta:

El contenido de la forma es:

perl-basico = on

nombre = sfsdfsfsf

cgi = on

calific = 2

secreto = sdfsf

expresion = ddsdfsfsdf

evaluacion = depende del usuario

sexo = F

Variables de entorno

SERVER_SOFTWARE = Apache/1.3.0 (Unix)

GATEWAY_INTERFACE = CGI/1.1

DOCUMENT_ROOT = /usr/local/etc/httpd/htdocs

REMOTE_ADDR = 192.168.1.3

SERVER_PROTOCOL = HTTP/1.0

REQUEST_METHOD = POST

REMOTE_HOST = pantera.felinos.ve

HTTP_REFERER = http://www.servidor.dominio/~jose/forma.html?evaluacion=depende+del+usuario&nombre=&cgi=on&secreto=&calific=10&expresion=%09%09%09

QUERY_STRING =

HTTP_USER_AGENT = Mozilla/4.01 [en] (Win95; I)

Note que sólo una de las formas puede hacer el envío, ya sea con GET o POST.

Ejercicio 6: Uso de formas y CGI

Modifique a verifica_red.cgi para que permita hacer un ping a un grupo de máquinas de manera dinámica,es decir, basandose en la base de datos que se utilizó en el ejemplo. El programa debe mostrar todas las máquinas, pero debe permitir hacer un ping a algunas o todas las máquinas (Utilice cajas de selección para ese fin). El programa también debe permitir hacer ping a una dirección arbitraria, usando una caja de texto. Si lo desea, valide la sintaxis de la dirección IP suministrada al programa ping. Si le parece muy complicado, entonces haga una forma con un número fijo de máquinas y envíe los datos al script que hace la verificación.

Sugerencia para el enfoque dinámico: Utilice dos programas, uno que lea la base datos y permita hacer la selección por pantalla con HTML dinámico y otro que haga el ping y devuelva los resultados al usuario.

Solución

Se muestra primero el código que lee la base de datos y muestra la forma por pantalla:

1. #!/usr/bin/perl

1. # Este Script carga la base de datos y la muestra por pantalla

2. # permitiendo luego llamar a verifica_red.cgi

3. #

4. # Hecho por Jose Vicente Nunez Zuleta ([email protected])

1. # ****************************************************]

2. # Configuracion del script

3. #

4. $maqdir="./datos.txt"; #Ubicacion y nombre del archivo de datos

5. $password="jose98"; #Password no encriptado, viaja por la red como texto

6. # ****************************************************]

7. # Fin de la configuracion del script

1. # Rutina que carga el contenido del archivo a memoria

2. sub cargar_red(\%\%\%) {

3. my($ip,$so,$ti)=@_; #Las variables vienen en @_

4. # Leemos los datos y los guardamos en un hash

5. open(DATOS,$maqdir) || die "<html><head><title>Error en CGI</title></head><body><P>Error: No puedo cargar los datos de la red $!</body></html>\n";

6. my($aux,$aux2,$aux3,$aux4); #Variable auxiliar

7. #Comenzamos la lectura de los datos

8. my $c=0;

9. while(<DATOS>) {

10. #Validamos que no sea un comentario o linea vacia

11. chop($_);

12. if (($_ !~ /^\#/) && ($_ ne "")) {

13. $c++; #Otra maquina leida

14. ($aux,$aux2,$aux3,$aux4)=split('\s+',$_);

15. $$ip{$aux2}=$aux;

16. $$so{$aux2}=$aux3;

17. $$ti{$aux2}=$aux4;

18. }

19. }

20. return($c);

21. } #Fin Cargar

1. $| = 1; #Vaciamos el buffer de escritura lo mas rapido posible

2. print("Content-type: text/html \n\n"); #Encabezado del mensaje

3. print("<!-- Documento generado de manera dinamica -->\n");

4. print("<html><head><title>Verifica Red: 1.0</title></head>\n");

5. print("<body bgcolor=#000000 text=yellow vlink=red alink=yellow link=yellow>\n");

6. $cont=&cargar_red(\%dirip,\%sistop,\%tipo);

7. print("<font size=5 face=\"Arial,Helvetica,Verdana\">Leidas $cont maquinas</font>\n");

8. # Presentamos el menu para probar las maquinas

9. print("<H1>Verificar <em>una m&aacute\;quina</em> arbitraria</H1>\n");

10. print("<form action=\"http://www.felinos.ve/cgi-bin/verifica_red.cgi\" method=post>\n");

11. print("<P>Introduzca la direcci&oacute\;n IP o nombre que quiere verificar: <input type=text name=individual size=20 maxlength=20>\n");

12. print("<H1>Verificar <em>grupo</em> de m&aacute\;quinas </H1>\n");

13. print("<table border\=0>\n");

14. print("<tr bgcolor=blue>\n");

15. print("<th>Nombre<th>IP<th>Sistema operativo<th>Tipo<th>&#191Verificar?\n");

16. foreach $maquina (sort keys %dirip) {

17. print("<tr>\n");

18. print("<td>$maquina\n");

19. print("<td>$dirip{$maquina}\n");

20. print("<td>$sistop{$maquina}\n");

21. print("<td>$tipo{$maquina}\n");

22. print("<td align=center><input type=checkbox checked name=$maquina-$dirip{$maquina}>\n");

23. }

24. print("</table>");

25. print("<P>\n");

26. print("<BR><P><input type=submit value=Verificar> <input type=reset value=\"Volver a empezar\">\n");

27. print("</form>\n");

28. print("Sugerencias:<a href=\"mailto:jose\@ing.ula.ve\">jose\@ing.ula.ve\"</a>\n");

29. print("</body></html>");

El código de la línea 56 es importante, ya que allí se almacena el nombre de la máquina y su dirección ip como un solo valor para enviarlo al programa que hace la verificación de la red. Dejamos que verifica_red.cgi programa se encargue de revisar la sintaxis de las direcciones ip ya que eso lo hace más resistente a ataques.

Finalmente se muestra el código del programa que verifica la red:

1. #!/usr/bin/perl

2. # este programa recibe los datos enviados por carga_red.cgi

3. # y verifica un grupo de maquinas

4. # Hecho por Jose Vicente Nunez Zuleta ([email protected])

5. #

6. # VARIABLES

7. $pingdir="/bin";

8. $banderas="-c 1";

9. #

10. #

11. # La siguiente rutina determina el tipo de metodo empleado

12. # en el envio de los datos

13. sub metodo_forma {

14. my($metodo)=$ENV{'REQUEST_METHOD'};

15. my($entrada);

16. #Validamos primero el tipo de codificacion

17. if (($ENV{'CONTENT_TYPE'} !~ /^application\/x-www-form-urlencoded/i) && ($ENV{'CONTENT_TYPE'} ne '')) {

18. print("Content-type: text/html\r\n\r\n");

19. print("<html><head><title>Error en CGI</title></head>\n");

20. print("<body bgcolor=#FFFFFF>\n");

21. print("<H1>Error: Codificacion desconocida\n</H1>");

22. print("<H2>Soporta: application\/x-www-form-urlencoded\n</H2>");

23. print("</body></html>\n");

24. exit;

25. }

26. $metodo =~ tr/A-Z/a-z/; #Convierta la respuesta a minusculas

27. #El metodo es get y QUERY_STRING no esta vacia

28. if (($metodo eq "get") && ($ENV{QUERY_STRING} ne '')) {

29. return($ENV{QUERY_STRING});

30. #El metodo es POST y tiene longitud > 0

31. } elsif (($metodo eq "post") && ($ENV{'CONTENT_LENGTH'} > 0)) {

32. read(STDIN,$entrada,$ENV{'CONTENT_LENGTH'});

33. return($entrada);

34. } else { #Metodo desconocido o valor nulo

35. print("Content-type: text/html\r\n\r\n");

36. print("<html><head><title>Error en CGI</title></head>\n");

37. print("<body bgcolor=#FFFFFF>\n");

38. print("<H1>Error: Metodo desconocido o valor nulo\n</H1>");

39. print("<H2>Soporta: Method=GET\|POST\n</H2>");

40. print("</body></html>\n");

41. exit;

42. }

43. } #Fin metodo_forma()

1. # La siguiente rutina decodifica la entrada y la guarda en

2. # un arreglo asociativo

3. sub decodificar_forma($) {

4. my($BUENOS_CARACTERES)='-a-zA-Z0-9_.@ '; #Caracteres validos en los datos

5. my($entrada)=@_;

6. my(%pares,$clave,$valor);

7. $entrada =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/ge; #Convierto a alfanumerico los caracteres en hexadecimal

8. @pares=split('&',$entrada); #Separo cada par y lo guardo en un arreglo

9. foreach $par (@pares) { # proceso cada par en pares

10. ($clave,$valor)=split(/=/,$par); #Guarde clave,valor usando la busqueda anterior

11. $valor =~ s/\+/ /g; #Cambie + por espacio en toda la cadena

12. # Seguridad en caracteres,segun aviso del Cern en

13. # http://geek-girl.com/bugtraq/1997_4/0232.html

14. $clave =~ s/[^$BUENOS_CARACTERES]/_/go;

15. $valor =~ s/[^$BUENOS_CARACTERES]/_/go;

16. #Finalmente construya el arreglo asociativo

17. $pares{$clave}=$valor;

18. }

19. return(%pares);

20. } # Fin Decodificar_forma()

21. # La siguiente rutina valida que el formato de la direccion IP sea

22. # www.xxx.yyy.zzz. Retorna una cadena vacia si la direccion

23. # contiene errores. Esta rutina no permite el uso de 127.0.0.1

24. sub valida_ip($) {

25. my($aux)=$_[0];

26. my($result)=$_[0];

27. #Validamos que solo hayan 4 octetos

28. $aux =~ s/[^\.]//g; #Dejo solo el caracter '.'

29. if (length($aux) != 3) {

30. return('');

31. }

32. my(@octetos);

33. ($octetos[0],$octetos[1],$octetos[2],$octetos[3])=split('\.',$result);

34. my($octeto);

35. #Validamos la sintaxis correcta de cada octeto

36. foreach $octeto (@octetos) {

37. if ( ($octeto =~ /\D|\W+/) || ($octeto <= 0) || ($octeto >= 255) ) {

38. return('');

39. }

40. }

41. return($aux);

42. } #Fin valida_ip()

43. # Comienzo del programa principal

44. $entrada=&metodo_forma();

45. %datos=&decodificar_forma($entrada);

46. $| = 1; #Vaciamos el buffer de escritura lo mas rapido posible

47. print("Content-type: text/html\r\n\r\n");

48. print("<html>\n");

49. print("<head><title>Resultados de Verifica Red 1.0</title></head>\n");

50. print("<body bgcolor=#000000 text=yellow vlink=red alink=yellow link=yellow>\n");

51. print("<font face=\"arial,helvetica,verdana\" size=5>Resultados de la inspecci&oacute;n:</font>\n");

52. print("<table border=0>\n");

53. print("<tr bgcolor=blue>\n");

54. print("<th>Nombre<th>IP<th>Estado\n");

55. #Validamos la direccion IP de la caja de texto

56. if (&valida_ip($datos{'individual'}) ne '') {

57. $maquinas{'No tiene nombre'}=$datos{'individual'};

58. }

59. #Validamos ahora la direccion de las demas maquinas

60. foreach $clave (keys %datos) {

61. if ($datos{$clave} =~ /on/) {

62. $datos{$clave} =~ s/on//ig; #Elimino a "= on"

63. ($maquina,$ip)=split('-',$clave); #Separo el par maquina-ip

64. if (&valida_ip($ip) ne '') {

65. $maquinas{$maquina}=$ip;

66. }

67. }

68. }

69. #Imprimimos los resultados

70. foreach $clave (keys %maquinas) {

71. print("<tr><td>$clave<td>$maquinas{$clave}");

72. $res=`$pingdir/ping $banderas $maquinas{$clave}`;

73. if ($res =~ /\b0% packet/) {

74. print("<td bgcolor=green>\&nbsp\n");

75. } else {

76. print("<td bgcolor=red>\&nbsp\n");

77. }

78. }

79. print("</table>\n");

80. print("<P><a href=\"http://www.servidor.dominio/cgi-bin/cargar_red.cgi\">Volver atras</a>\n");

81. print("</body>\n");

82. print("</html>");

Se utilizan la misma rutina para validar el formato de los datos que vienen por la red más la rutina valida_ip en la línea 67, la cual verifica solamente el formato de la dirección ip. Note que el programa ignora la prueba de la máquina si alguna de las conversiones falla.

En el siguiente punto se mostrará como se puede hacer parte de este procesamiento de datos en el cliente, utilizando el lenguaje Javascript.

Introducción a Javascript

Hasta este punto se ha mostrado solamente aplicaciones que corren en el servidor, utilizando CGI. Posiblemente se haya dado cuenta que este enfoque tiene varias deficiencias:

• El cliente queda inactivo una fracción de tiempo, esperando respuesta del servidor. Si el trabajo que hace el programa toma mucho tiempo en ejecutarse, se pierde el interés en utilizar al Web como herramienta.

• No se aprovecha el poder de procesamiento del cliente, todo el trabajo lo hace el servidor lo cual se traduce en una distribución desigual de trabajo.

• Hay que esperar a que los datos lleguen al servidor para que sean validados. Se considera un desperdicio de ancho de banda el enviar datos erróneos por la red al servidor.

La idea entonces es darle algo de poder de procesamiento al cliente, de manera que este realice algo de ese procesamiento, aligerando la carga del servidor y mejorando los tiempos de respuesta. Eso significa que el cliente pueda examinar los datos y le notifique al usuario acerca de cualquier error obvio.

Esto acerca aún más a los clientes HTML a la filosofía de cliente / servidor, a la vez que hace más interactivo el contenido del Web.

La primera idea de darle más poder a los clientes se vio plasmada con la versión 2 de Netscape Navigator, al utilizar un lenguaje llamado Javascript. Para ese entonces, el lanzamiento de Javascript coincidió con el del lenguaje Java por parte de Sun Microsystems.²²

Aunque Java y Javascript tienen algunas similitudes sus propósitos principales los hacen muy distintos. La siguiente tabla muestra algunas de esas diferencias:

• Tabla 7: Diferencias básicas entre Java y Javascript

Javascript no es el único lenguaje que trabaja de esta manera. Microsoft diseño un lenguaje basado en Visual Basic, llamado VBScript. Sin embargo, una de sus principales desventajas con respecto a Javascript es que está atado a correr dentro de Ambientes Windows mientras que Javascript es multi - plataforma. Otra ventaja de Javascript sobre VBScript es que Javascript está a punto de convertirse en un estándar internacional.

En los siguientes puntos se explicarán algunas características de Javascript con algunos ejemplos, sin embargo se recomienda al lector interesado que consulte la bibliografía recomendada [4][6] para profundizar sus conocimientos.

Objetos en Javascript

Javascript está basado en objetos, pero no está orientado a objetos. Se pueden tratar con los objetos que ya están creados o se pueden crear nuevos objetos, pero no se pueden crear nuevas clases ni hacer herencia.

Algunos de esos objetos están relacionados con el browser mientras que otros están relacionados con objetos genéricos, como una cadena.

Cada uno de los objetos que conforman el lenguaje Javascript forma una jerarquía similar a la siguiente:²³

• Ilustración 5: Jerarquía de objetos en Javascript

La siguiente tabla muestra algunos objetos en Javascript:

• Tabla 8: Listado de algunos objetos en Javascript

A continuación se mostrará como puede trabajar con esos objetos, utilizando sus métodos, y como puede incorporar Javascript en sus documentos HTML.

Métodos de los objetos en Javascript. Programación orientada a eventos.

La programación orientada a eventos es distinta a la programación tradicional, en el sentido de que un objeto dentro del browser, como un botón en una forma o la misma ventana del browser, tiene asociado ciertas propiedades (valores asociados con los objetos) y un método (acciones asociadas al objeto) las cuales pueden cambiar por la interacción que hay entre el usuario y la página. Al producirse un cambio en el estado de un método, por ejemplo al presionar un botón en una forma, entonces se ejecuta el código asociado a ese método.

En un programa tradicional, este tiene un cuerpo o rutina principal y una serie de funciones que son llamadas de acuerdo a la ejecución del programa. En la programación orientada a eventos sólo se llama la rutina asociada a un evento, no existe algo así como una rutina central.

Por ejemplo, el objeto <input type=submit value=Enviar>, tiene como propiedades a value, el cual es el nombre que se mostrará en pantalla.

Para cada objeto están definidos un número fijo de métodos. Esos eventos son:

• Tabla 9: Eventos posibles para los objetos en Javascript

Más adelante se mostrará el uso de objetos según sus métodos.

Hola mundo en Javascript

A continuación se muestra el programa hola mundo en Javascript:

1. <html>

2. <head>

3. <title>Hola mundo en Javascript :-)</title>

4. </head>

5. <body>

6. <P>Esta es una demostraci&oacute;n de Javascript

7. <script language="JavaScript">

8. <!--

9. document.write("<P>&#161 Hola mundo cruel!")

10. //-->

11. </script>

12. </body>

13. </html>

En la línea 7 se declara que el código que viene a continuación está hecho en Javascript. Para evitar problemas con browsers que no soportan a Javascript, ocultamos el código de Javascript con el código de comentarios en HTML (líneas 8 y 10. En la línea 9 se utiliza el método write del objeto document para mostrar un mensaje por pantalla. Note que este mensaje no aparecerá en un browser que no tenga soporte para Javascript. En la línea 11 cerramos la declaración de código de Javascript.

En Javascript se pueden utilizar la misma sintaxis para los comentarios que en C++, esto es:

• // Para comentarios cortos

• /* Comentarios que abarcan más de una línea */

Recuerde que Javascript trabaja con los métodos de los objetos. El siguiente código le indica al usuario la última vez que la página fue modificada:

1. <html>

2. <head>

3. <title>Hola mundo en Javascript :-)</title>

4. </head>

5. <body>

6. <P>Esta es una demostraci&oacute;n de Javascript

7. <script language="JavaScript">

8. <!--

9. document.write("<P>&#161 Hola mundo cruel!<BR>")

1. document.write("Ultima modificaci&oacute;n: "+document.lastModified)

2. //-->

3. </script>

4. </body>

5. </html>

En la línea 10 se utiliza otro truco: Se concatena la salida de un objeto con una cadena de caracteres (En Perl se hace con el operador punto, '.').

La salida por pantalla es la siguiente:

Esta es una demostración de Javascript

¡ Hola mundo cruel!

Ultima modificación: 06/07/98 01:47:47

Variables en Javascript

En Javascript no se necesita especificar el tipo de una variable cuando se declara. Todas las variables se declaran utilizando la palabra reservada var:

var suma = 0

var v, w = "hola"

Javascript soporta los siguientes tipos de datos implícitos:²⁴

• Números, como -32 o 555.432

• Una cadena de caracteres, como "Me gusta navegar en bote"

• Un valor lógico como true o false

• El valor especial null.

Funciones en Javascript

La sintaxis para declarar una función en Javascript es la siguiente:

function Nombre_funcion(argumento1,argumento2,...) {

Código de la función

return(algo)

}

Los argumentos son opcionales, así como la función puede no retornar nada.

La siguiente función calcula la multiplicación de dos números:

1. <html>

2. <head>

3. <title>Uso de funciones</title>

4. </head>

5. <body>

6. <script language="JavaScript">

7. <!--

8. function multiplic(num1,num2) {

9. return(num1*num2);

10. }

11. var x=10

12. var y=10

13. var res=multiplic(x,y)

14. document.write("Multiplicamos "+x+"*"+y+"="+res)

15. //-->

16. </script>

17. </body>

18. </html>

Estructuras de repetición

Las estructuras de repetición que utiliza Javascript son muy similares a las de otros lenguajes como Perl o C. A continuación se mostrará su sintaxis y un pequeño ejemplo de uso:

Sintaxis y ejemplo de Do - while

do

sentencias

while (condición);

Por ejemplo:

var cont=0;

do

Cont++;

while (cont <maximo);

Sintaxis y ejemplo de For

for ([expresión inicial;] [condición;] [expresión de incremento]) {

sentencias

}

Por ejemplo:

for (var i = 0; i < 9; i++) {

n += i

función(n)

Sintaxis y ejemplo de For in

For in se utiliza para mostrar las propiedades de un objeto. Su sintaxis es:

for (variable in objeto) {

sentencias

}

La siguiente rutina muestra las propiedades de un objeto:

function propiedades(objeto, nombre) {

var resulta = ""

for (var i in objeto) {

resulta += nombre + "." + i + " = " + objeto[i] + "<BR>"

}

resulta += "<HR>"

return resulta

}

Sintaxis y ejemplo de while:

while (condición) {

sentencias

}

Por ejemplo:

While (i<=j) {

document.write("Valor: "+i)

}

Todas estas estructuras de repetición pueden interrumpir su ejecución por medio de la sentencia break:

for (var i=0; i<j; i++) {

if (i == valor) {

break;

}

}

Estructuras de decisión

La sintaxis de las sentencias if - else es la siguiente:

if (condición) {

código}

[else {

código}]

Las sentencia if - else trabaja con los siguientes operadores lógicos²⁵:

• Tabla 10: Operadores lógicos en Javascript

Como puede ver, su sintaxis es similar a la de Perl.

Los operadores de comparación son más sencillos que los de Perl, son iguales tanto para cadenas como para números:

• Tabla 11: Operadores de comparación en Javascript

Los siguientes operadores están relacionados con los objetos en Javascript. No necesitan estar asociados directamente a una estructura de decisión para poder ser utiilizados:

• Tabla 12: Operadores especiales en Javascript

Cuando la cantidad de opciones a evaluar es grande, se puede utilizar la sentencia switch:

switch (expresión){

case etiqueta :

sentencia;

break;

case etiqueta2 :

sentencia;

break;

...

default : sentencia;

Cajas de alerta, confirmación y preguntas

Javascript tiene algunas herramientas que pueden facilitar la entrada de datos, o la presentación de información. Ellas son:

• Mensajes de alerta (window.alert())

• Mensaje de confirmación (window.confirm())

• Mensaje de pregunta (window.prompt())

A continuación se presenta un ejemplo que utiliza estos tres métodos del objeto ventana, más el uso del objeto "button". La respuesta del usuario se obtiene utilizando el método onclick en cada uno de los botones (ese método se encarga de invocar a cada una de nuestras cajas de dialogo):

1. <html>

2. <head>

3. <title>Uso de funciones</title>

4. </head>

5. <body>

6. <script languaje=javascript>

7. <!--

8. var respuesta

9. //-->

10. </script>

11. <FORM method="POST">

12. <P><INPUT type="button" name="alerta" value="Boton de alerta" onclick="alert('Alerta Roja')"></P>

13. <P><INPUT type="button" name="pregunta" value="Boton de pregunta" onclick="respuesta=prompt('Alerta Roja'); alert('Usted escribio : '+respuesta) "></P>

14. <P><INPUT type="button" name="confirmacion" value="Confirmaci&oacute;n" onclick="respuesta=confirm('&#191 Desea continuar?'); alert('Usted decidio : '+respuesta) "></P>

1. </FORM>

2. </body>

3. </html>

Declaramos el inicio y final de una forma en las líneas 11 y 15. En la línea 12 tenemos una entrada de tipo botón, a la cual cuando se le hace clic invoca una caja de dialogo con un mensaje. En la línea 13 se utiliza otro botón e invocamos ahora una caja de confirmación la cual recoge nuestra respuesta, la cual es mostrada de inmediato por una caja de alerta.

En la línea 14 se utiliza una caja de decisión, capturamos el resultado de la escogencia del usuario y lo mostramos por pantalla con ayuda de una caja de alerta.

Expresiones regulares y arreglos

Al igual que Perl, Javascript dispone de expresiones regulares para encontrar y sustituir caracteres en una variable. También dispone del objeto arreglo, el cual se comporta de manera similar a los arreglos asociativos en Perl, ya que su índice puede ser numérico o no.

Arreglos

La forma de declarar un arreglo en Javascript es la siguiente:

var Arreglo = new Array()

El siguiente ejemplo muestra como imprimir el contenido de un par de arreglos:

1. <html>

2. <head>

3. <title>Arreglos en Javascript</title>

4. </head>

5. <body bgcolor=#ffffff>

6. <script>

7. <!--

8. var arreglo = new Array(5)

9. arreglo[0]='Hola'

10. arreglo[1]='esta es'

11. arreglo[2]='una'

12. arreglo[3]='prueba'

13. arreglo[4]='simple'

14. var sexo = new Array(3)

15. sexo['jose']='m'

16. sexo['sylvia']='f'

17. sexo['raul']='m'

1. for(var i=0;i<5;i++) {

2. document.write(arreglo[i]+" ")

3. }

4. document.writeln("<P>")

5. document.writeln("Sexo de las siguientes personas:<br>")

6. document.writeln("Jose "+sexo['jose']+"<br>")

7. document.writeln("Sylvia "+sexo['sylvia']+"<br>")

8. document.writeln("Raul "+sexo['raul']+"<br>")

9. //-->

10. </script>

11. <h1>uso de arreglos</h1>

12. <form name="datos">

13. </form>

14. </body>

15. </html>

Expresiones regulares

Javascript también cuenta con expresiones regulares²⁶, muy útiles para el tratamiento de caracteres en variables.

Javascript utiliza los mismos caracteres especiales que Perl para construir una expresión regular: