• Publicidad

Contar líneas

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Contar líneas

Notapor luisbal » 2009-07-31 09:06 @421

Amigos, seguro esta respuesta es muy fácil, pero no puedo resolverla; ayuda por favor:

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.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. open(IN,"$gift_certificate_file");             
  2. while (<IN>) {
  3.     chomp;
  4.     @gift = split(/&&/,$_);
  5.     if ($ID eq $gift[11]) {
  6.        $contador == 1;
  7.     }
  8.     $contador++;
  9. }
  10. close (IN);
  11.  
  12. print qq|hay $contador lineas que reunen la condicion.|;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Última edición por explorer el 2009-07-31 09:32 @439, editado 2 veces en total
Razón: Ortografía, indentación del código
luisbal
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-09-12 09:36 @442

Publicidad

Re: Contar líneas

Notapor explorer » 2009-07-31 09:33 @439

Debes sustituir la línea 6 por la 8.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Contar líneas

Notapor luisbal » 2009-07-31 09:56 @455

Muchísimas gracias, resolví el problema.
luisbal
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-09-12 09:36 @442


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados

cron