10. FUNCIONES DE ARREGLOS INCLUIDAS.

Los arreglos indexados funcionan como listas; se pueden añadir elementos o quitarlos de cualquier extremo usando las siguientes funciones :

		pop		quita el último valor del final del arreglo.

		push		añade valores al final del arreglo.

		shift		quita el primer valor al comienzo del arreglo.

		unshift		añade un valor al comienzo del arreglo.

Por ejemplo :

		push (@list, $bar);

		push(@list, @rest);

		$tos = pop(@list);

		while ( $arg = shift(@ARGV) ) { }

		unshift ( @ARGV, 'zeroth arg', 'first arg');

+ split

rompe un string en un arreglo de nuevos strings. Se pueden dividir en expresiones regulares arbitrarias, limitar el número de campos que se dividió, y guardar los delimitadores.

		@list = split(/[, \t]+/, $expr);

		while () {

					($login, $passwd, $uid, $gid, $gcos,

					$home, $shell) = split(/:/);

					}

+ El comando inverso de split es

join

:

		$line = join(':', $login, $passwd, $uid,$gid, $gcos, $home, 			
	$shell);

+ reverse :

invierte una lista.

		foreach $tick (reverse 0 .. 10) { }

+ sort :

regresa un nuevo arreglo con los elementos ordenados de acuerdo a sus valores ASCII.

			print sort @list

			sub numerically { $a - $b ; }

			print sort numerically @list;

+ grep :

regresa una nueva lista conteniendo todos los elementos para los cuales resulta verdadera alguna expresión. Por ejemplo, esto borrará todas las líneas que tengan como primer caracter un # :

			@lines = grep(!/^#/, @lines);

Para manejar arreglos asociativos, las funciones

key

y

value

regresan arreglos indexados de los índices y valores respectivamente. Cada uno es usado para iterar a través de un arreglo asociativo para obtener un par ($key,$value) cada vez.

			while (($key,$value) = each %array) 

				{

				printf "%s is %s\n", $key, $value;

				}

			foreach $key (keys %array)

				{

				printf "%s is %s\n", $key, $array{$key};

				}

			print reverse sort values %array