ARREGLOS PARAMETROS PERL SCRIPT

PERLSCRIPT UNIDAD 4: PROCEDIMIENTOS Y FUNCIONES

TEMA 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:

Prog14.asp


<% @LANGUAGE = PerlScript %>

<HTML> <H1>ASP CON PERLSCRIPT</H1>

<%

# creando arreglo

my @lista=(10,20,30);

# llamando procedimiento

&proc1(@lista);

$Response->Write("lista = @lista");

%>

<%

sub proc1

{

my(@lista1)= @_ ;

for ($ren=0; $ren <=2; $ren++)

{ $lista1[$ren]=$lista1[$ren]+ 5 ; };

$Response->Write("lista1 = @lista1".'<br>');

};

%>

</HTML>

corrida prog14.asp

TAREA PROGRAMACION PERLSCRIPT

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