Programación de Arreglos
-
Los
arreglos son como Arrays, aquí presentamos algunos programas,
ejercicios, que te ayudarán a entender su funcionamiento.
-
Los programas que ahí aquí te los puedes bajar aqui
Pasos
Para Programar en Perl
Programación
Básica
Programas
sobre Arreglos
Programas
sobre Operadores
Programas
sobre Funciones
Programas
sobre Archivos
Programas
en la Red
Ejercicio1
-
Este programa nos muestra como utilizar el operador print cuando
queremos mostrar un mensaje y una variable escalar
#! /usr/bin/perl
@arreglo = ("hola", "como", "estan", "todos", "hoy");
for ($i=0; $i<4; $i++) {
print "$arreglo[$i) \n"; #escribe los elementos de la lista
}
@saludo[0,1) =@arreglo[0,3);
print "@saludo[0,1) \n"; #escribe sólo dos elementos
Ejercicio
2
-
Pide 5 nombres, los va leyendo conforme va pulsando Intro, los ordena mediante
el operador sort() y los muestra.
#! /usr/bin/perl
print "Introduce 5 nombres: ";
foreach $i (1..5) {
chop ($lista[$i) = <STDIN>); #lee los cinco nombres
}
print "Lista Ordenada";
@lista = sort @lista; #ordena la lista
foreach $b (@lista) {
print "$b \n"; #muestra la lista ordenada
}
Ejercicio
3
-
Utiliza elementos de la lista y escribe algunos mensajes, después
pideun nombre y verifica si está en el arreglo.
#! /usr/bin/perl
@nombre = ("Miguel", "Pablo", "Antonio", "Victor", "Laura", "Isabel", "Carmen",
"y",
"Monica")
print"hola $nombre[`0)\n"; #escribe "hola Miguel"
print "@nombre[3,6,5) son amigas\n"; #Laura y Carmen son amigas
print"Introduce tú nombre: \n";
chop($nom = <STDIN> ); #lee el nombre
for ($i=0; $i<7; $i++)
{
#mira si el nombre está en la lista
if ($nombre[`$i) eq $nom) {$band = 1;} #el flag band se pone a uno si está
}
if ($band = =1)
{
print "Tienes suerte estás en la lista \n";
}
else
{
print "No estás en la lista\n";
}
