[Perl] Re: problemas hash (Sergi -)

[Antonio Galicia]

Gunnar Wolf wrote:

>>>nombre:direcciondecorreo
>>>nombre2:direcciondecorreo2
>>>nombre3:direcciondecorreo3

>>while ( <ARCH> ) {
>>  $tu_hash{[split /:/, $linea]->[0]} = [split /:/, $linea]->[1];
>>}
> 

> Umh... Estás repitiendo una expresión regular, lo cual es chamba
> gratis - ¿Por qué no mejor esto? (le agrego un siempre útil chomp)

> O más fácil aún:
> 
> %hash = map {chomp; /(.*):(.*)/; $1,$2} <ARCH>

  Pero dado que pregunta por el split sería:

	%hash = map {chomp; split /:/} <ARCH>

  lo cual es todo menos didáctico ;)

-- 
  Saludos,
  Antonio Galicia
---
El que no se consuela, es por que no quiere.