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:

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.