Foro - Perl en Español

if (grep { /$i/ } @{$rojos}) {

en @{$rojos} tengo los números que tiene que colcoar en rojo, en $i voy teniendo los distintos días del mes...(es un bucle: 1,2,3,4,5,...30,31)

pero si tengo el número rojo 31 me imprime en rojo tanto el 3 como el 1 como el 31 !!! intenté con ^y $, con paréntesis, corchetes, y demás pero no llego a solucionarlo...

A mover sus cabezotas, si alguien lo saca se lo agradezco enormemente !!!

Saludos

como siempre, la respuesta corta y al pie, si que sabes de estas cosas !!!

Saludos

Hola:

Yo la opción que te recomiendo es la última que te da explorer, la de crear un hash con las fechas especiales:

Código: Seleccionar todo

map { $es_fiesta{$_}=1 } qw( 2 3 13 14 23 31 );

    for my $dia ( 1..31 ) {
        if ( defined($es_fiesta{ $dia }) ) {
            print "<font color=\"red\">$dia</font>";
        }     
    }


SALUDOS

si che, porque eso de usar grep en cada iteración de los días me imagino se le hace pesadito al server...

Saludos