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

image162.jpg

TAREA PROGRAMACION PERLSCRIPT

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

Politica de Privacidad