El problema es contar cuántas líneas reúnen cierta condición, es decir, revisar en cuántas se cumple la condición "$ID eq $gift[11]" y darme una cifra. Yo lo he hecho así, pero no creo que esté bien. Ayuda por favor. Gracias.
Using perl Syntax Highlighting
- open(IN,"$gift_certificate_file");
- while (<IN>) {
- chomp;
- @gift = split(/&&/,$_);
- if ($ID eq $gift[11]) {
- $contador == 1;
- }
- $contador++;
- }
- close (IN);
- print qq|hay $contador lineas que reunen la condicion.|;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
