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

Código: Seleccionar todo

perl -le '$rojo=[2,4,6,12,13,23,31]; foreach $i ( 1..31 ) { if ( grep { $i == $_ } @{$rojo}) {print "Rojo $i"} }'

Código: Seleccionar todo

Rojo 2
Rojo 4
Rojo 6
Rojo 12
Rojo 13
Rojo 23
Rojo 31


Otra forma de colorear días del mes:

Código: Seleccionar todo

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

foreach $dia ( 1..31 ) {
    if ( $es_fiesta{ $dia } ) {
        print "Fiesta dia $dia!";
    }
}

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