ARREGLOS ASOCIATIVOS PERL SCRIPT

PERLSCRIPT UNIDAD 3: CONTROL DE PROGRAMA

TEMA 6: ARREGLOS ASOCIATIVOS

Una lista asociativa en perl es una lista bidimensional, que contiene el par (clave,valor), ejemplo:

Alumno

Clave……………………………..valor

matricula	99210200
nombre	Juan
carrera	informatica
edad	18

Para este tipo de lista se puede accesar a cualquier valor conociendo la clave, por ejemplo si se pide imprimir carrera saldra en pantalla informatica.

Para declarar una lista asociativa se usara el simbolo %

Para crear una lista asociativa se puede usar cualquiera de los dos siguientes formatos:

%lista( 'x',5,'y',6,'z',7); en este ejemplo las clavez son x,y,z y sus valores respectivos son 5,6,7

%otralista('matricula' ⇒ 99210, 'nombre'⇒'juan', 'carrera'⇒'informatica', edad⇒18)–> remplazando , por ⇒, para que se vean mas bonitos los pares.

Listas asociativas tambien pueden:

En cualquier momento se puede agregar un elemento

$otralista{'semestre'}=5;

La funcion delete sirve para borrar un elemento

delete $lista{'x'};

La funcion keys crea un arreglo con las claves

%a = ( x ⇒ 5, y ⇒ 3, z ⇒ 'abc' );

@b = keys %a

# @b queda con ( 'x', 'y', 'z');

La funcion values regresa un arreglo con los valores

%a = ( x ⇒ 5, y ⇒ 3, z ⇒ 'abc' );

@v = values %a

# @v queda con ( 5, 3, 'abc' );

La funcion exists prueba si la clave existe

%a = ( x ⇒ 5, y ⇒ 3, z ⇒ 'abc' );

$b = exists $a{z};

# $b queda con 1

$c = exists $a{w};

# $c queda con ””

prog10.asp


<% @LANGUAGE = PerlScript %>

<HTML>

<H1>ASP CON PERLSCRIPT</H1>

<%

# creando

%lista=( 'x',5,'y',6,'z',7);

# procesando

$Response->Write("x= $lista{'x'} " );

%>

</HTML>

Observar como se accede al valor:

Corrido prog10.asp

TAREAS PROGRAMACION PERLSCRIPT :

1.- Construir un asp donde prueben algunas de las funciones de listas asociativas.