UNIDAD 4: PROCEDIMIENTOS Y FUNCIONES

TEMA PERL 5: ARREGLOS COMO PARAMETROS

Para pasar un arreglo completo como parametro a un procedimiento o a una funcion solo se debera mandar el nombre del arreglo y en el procedimiento o la funcion que recibe el arreglo tambien no usar parentesis como se indica en el programa ejemplo:

Prog17.pl

#! /usr/bin/perl -w
# usando modulo o libreria CGI
use CGI;
# creando el OBJETO de tipo CGI
$q = new CGI;
# mandando servidor los encabezados de la pagina html
$resp = '';
print $q->header;
print $q->start_html();
print $q->hr();
print $q->startform();
# creando e inicializando arreglo local
my @lista=(10,20,30);
# llamando procedimiento
&proc1(@lista);
print "lista = @lista";
print $q->submit('OK');
print $q->endform();
print $q->hr();
#cerrando html
print $q->end_html;
sub proc1
{
my(@vector)= @_ ;
for ($ren=0; $ren <=2; $ren++)
# sumandole 50 a cada elemento
{ $vector[$ren]=$vector[$ren]+ 50 ; };
print "vector = @vector".'<br>';
};

corrida:

image250.jpg

TAREAS PROGRAMACION PERL MYSQL :

1.- Capturar un arreglo de 7 ciudades en un primer procedimiento, sortear en un segundo y desplegar en un tercero.

2.- Ordenar a criterio del usuario (ascendente, descendente) un arreglo de 8 animalitos.

Politica de Privacidad