Lenguaje Perl. Ejercicios para elaborar, utilizando Listas Asociativas. Favor construir estos programas una vez se estudie el capítulo 6. Estos programas se deben considerar dentro de los ejercicios del númeral 6.21 (Página 244).

1.    
Elabore las siguientes funciones:
Insertar()   (Inserta un nuevo elemento en la lista)
Retirar()   (Retira un elemento de la lista asociativa)
Consultar()   (Consulta un elemento. Esta consulta, debe incluir la edad de la persona)
Listar()   (Muestra la información de toda la lista excepto las personas que tengan mas de 20 años)
Modificar()   (Modifica la información de un elemento)
Total()   (Esta función, se utiliza para imprimir la suma de los sueldos de todas las personas incluidas en la lista asociativa.)

Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

código,nombre,sueldo,aa/mm/dd

El dato aa/mm/dd indica la fecha de nacimiento de la persona.

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.
2.    
Elabore las siguientes funciones:
Insertar()   (Inserta un nuevo artículo en la lista asociativa)
Retirar()   (Retira un artículo la lista asociativa. No se pueden retirar de la lista asociativa los artículos que no han caducado.)
Consultar()   (Consulta los datos de un artículo.)
ListarCaducados()   (Muestra los artículos que ya caducaron.)
ListarNoCaducados()   (Muestra los artículos que no han caducado.)
Modificar()   (Modifica la información de un artículo)
Total()   (Esta función, se utiliza para imprimir la suma de los valores de todos los artículos incluidos en la lista.)

Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

código,nombre del artículo,valor del artículo,aa/mm/dd

El dato aa/mm/dd indica la fecha cuando caduca el artículo(fecha de caducación).

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.
3.    
Elabore las siguientes funciones:
Insertar()   (Inserta una nueva factura en la lista asociativa)
Retirar()   (Retira una factura de la lista asociativa)
Vencidas()   (Lista las facturas vencidas. Imprime la suma de sus valores)
NoVencidas()   (Lista las facturas No vencidas. Imprime la suma de sus valores)
Modificar()   (Modifica la información de una factura)

Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

Número de la factura,aa/mm/dd,aa/mm/dd

Donde la primera fecha indica la fecha de la factura y la segunda fecha indica la fecha de vencimiento de la factura.

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.
4.    
Elabore las siguientes funciones:
Insertar()   (Inserta la información de una nueva valida en la lista)
Retirar()   (Retira la información de una valida de la lista asociativa)
Modificar()   (Modifica la información de una valida)
Tiempo()   (Debe escribir el tiempo acumulado de todos y cada uno de los corredores en todas las validas)

Una "valida", es una carrera de carros de Formula I. Por ejemplo la valida de Brasil o la valida de Australia, etc.

Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

Nombre de la valida,Nombre del corredor,hh/mm/ss

Donde el dato hh/mm/ss, indica el tiempo que gasto el corredor en la valida.
Por ejemplo:

Brasil,Montoya,0/2/5
Brasil,Shumager,0/2/4
Brasil,Barichello,0/2/3
Australia,Montoya,0/3/45
Australia,Shumager,0/3/46
Australia,Barichello,0/4/0

Observe que Montoya ha gastado en las dos validas 0 horas,5 minutos y 50 segundos.

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.
5.    
Elabore las siguientes funciones:
Insertar()   (Inserta la información de una nueva valida)
Retirar()   (Retira la información de una valida de la lista asociativa)
Modificar()   (Modifica la información de una valida)
Ganador()   (Debe escribir el nombre del corredor que va ganando la Formula I y el tiempo que ha gastado.)

Una "valida", es una carrera de carros de Formula I. Por ejemplo la valida de Brasil o la valida de Australia, etc.

Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

Nombre de la valida,Nombre del corredor,hh/mm/ss

Donde el dato hh/mm/ss, indica el tiempo que gasto el corredor en la valida.
Por ejemplo:

Brasil,Montoya,0/2/5
Brasil,Shumager,0/2/4
Brasil,Barichello,0/2/3
Australia,Montoya,0/3/45
Australia,Shumager,0/3/46
Australia,Barichello,0/4/0

Observe que Montoya ha gastado en las dos validas 0 horas,5 minutos y 50 segundos.

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.
6.    
Elabore las siguientes funciones:
Insertar()   (Inserta la información de una nueva valida)
Retirar()   (Retira la información de una valida de la lista asociativa)
Modificar()   (Modifica la información de una valida)
Ganador()   (Debe escribir el nombre del corredor que va ganando la Formula I y el tiempo que ha gastado.)

Una "valida", es una carrera de carros de Formula I. Por ejemplo la valida de Brasil o la valida de Australia, etc.

Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

Nombre de la valida,Nombre del corredor,hh/mm/ss,hh/mm/ss

Donde el primer dato hh/mm/ss, indica el tiempo que gasto el corredor en la valida y el segundo dato hh/mm/ss corresponde a tiempo de castigo por infracciones que ha cometido durante la valida.
Por ejemplo:

Brasil,Montoya,0/2/5,0/0/2
Brasil,Shumager,0/2/4,0/0/3
Brasil,Barichello,0/2/3,0/0/1
Australia,Montoya,0/3/45,0/0/10
Australia,Shumager,0/3/46,0/0/10
Australia,Barichello,0/4/0,0/0/5

Observe que Montoya ha gastado en las dos validas 0 horas,5 minutos y 62 (50+12) segundos.

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.
7.    
Elabore las siguientes funciones:
InsertarLibro()   (Inserta la información de un libro en la lista asociativa)
Retirar()   (Retira la información de un libro)
Modificar()   (Modifica la información de un libro)
ListarLibros()   (Debe escribir la información de todos los libros. Se debe escribir un caracter '*' precediendo el código del libro en caso de que la fecha de edición este dentro del último año antes de la fecha del computador.)


Cada elemento de la lista asociativa, es una cadena de caracteres donde se encuentran los siguientes datos separados por comas:

Código del libro,Valor del libro,dd/mm/aa

Donde dd/mm/aa corresponde a la fecha de edición del libro.

Para este programa, incluya las siguientes librerías:

use strict;
use warnings;
use Time::Local;

y utilize las siguientes funciones:

$x=timelocal(seg,min,horas,dd, mm, aa );

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha indicada por los parámetros.

$y=time;

Esta llamada a la función calcula el número de segundos que han pasado desde el año 1970 a la fecha del computador. Nota importante: estas funciones trabajan con el año actual - 1900. Por ejemplo el año 2003, lo trabajan como 103. El mes la función lo trabaja de 0 a 11.