ASCII <-> Numérico

[Daniel van Balen]

On Wed, Jul 19, 2000 at 06:20:29PM -0400, Tony Rodriguez wrote:
> Otra preguntica...  tengo una tabla HASH y quiero saber si ciertos elementos se
> encuentran dentro de la tabla.  Queria usar =~.  Ahora, lo que se me ocurrio
> fue formar una sola cadena con los datos del HASH para luego hacer la busqueda,
> algo como:
> 
> ..
> ...
> %colores=Term::ANSIColor::attributes;
> $cad="";
> while (($nombre,$atributo)=each(%colores))
> {
> 	#Voy a crear una cadena con este HASH
> 	$cad=$cad." ".$nombre;
> }
> ..
> y mas adelante algo como:
> ..
> ..
>     foreach (@palabras) {
> 	# @palabras es un array de palabras que quiero saber si se encuentran
> 	# dentro del HASH
>      	$min = lc($_);
> 	if ( $cad =~ $min ) {$es_o_no="SI";} else {$es_o_no="NO";}
>    }
> 
>  Luego, la pregunta seria.. Puedo hacerlo directamente con el HASH?
> 

	Sip si quieres saber si %colores tiene el color azul como "key" haces
"exists($colores{azul})" devolviendote verdadero o falso. Si quieres saber si
$colores{azul} esta definido, o sea $colores{azul} != undef usa 
"defined($colores{azul})". En tu caso (por lo que veo por tu codigo) quieres
usar exists().


-spiff
------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------