Mar May 02, 2006 11:05 am
|
 |
dacons
Perlero Nuevo

|
Registrado: 27 Feb 2006
Mensajes: 48
|
|
| Recorrer Array |
|
|
hola a todos, ¿hay alguna manera de recorrer este vector con alguna estructura repetitiva, pero sin utilizar variables auxiliares?
| Código: |
@elementos=("coche","bici","moto","camion","avion","cama","boli","goma","papel","moneda");
sub recorre{
foreach $elem (@elementos){
print $elem;
}
}
&recorre; |
|
|
|
|
Mar May 02, 2006 11:10 am
|
 |
dacons
Perlero Nuevo

|
Registrado: 27 Feb 2006
Mensajes: 48
|
|
|
|
|
Se me olvido, ¿que es lo que hace <STDIN> en un vector, por ejemplo
@vector=<STDIN>; |
|
Mar May 02, 2006 11:23 am
|
 |
kidd
Creador de Perl en Español

|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
Hola:
Acerca de la primera pregunta, no sé a que te refieres con variable auxiliares, pero quizá búsques algo así:
| Código: |
my @elementos = ("coche","bici","moto","camion","avion","cama","boli","goma","papel","moneda");
foreach(@elementos){
print;
}
#O la versión one-liner
print for @elementos;
|
Aunque no es necesario, a mi me gusta hacer el print con el $_ por motivos de claridad:
| Código: |
foreach(@elementos){
print $_;
}
|
Ahora, en cuanto a tu segunda respuesta. Según sé, cuando pides el <STDIN> en un contexto de array, cada línea que ingreses es un elemento del array hasta que teclees <control>D para terminar de ingresar líneas.
Saludos |
|
Powered by phpBB © 2001, 2005 phpBB Group
|