Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 

Buscar dos letras juntas con expresiones regulares

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio
Mensaje Mie Jun 25, 2008 5:27 am
Yazston
Perlero Nuevo
Perlero Nuevo
Registrado: 02 Abr 2008
Mensajes: 3
Buscar dos letras juntas con expresiones regulares Responder citando

Buenas tardes, aquí mi problema, obtengo una serie de datos de un archivo, lo saco en bloque de 30 usando substr y después tengo en estos bloques que buscar si tienen la unión RD y contar cuántas veces.

Veréis los datos son así...

Código:
RGEDGRGERGGFFGRFSD


Yo tenía pensado esto...
Perl:
my $contador_RD = $bloque =~ tr/[RD]/[RD]/;


pero esto me da tanto las R como las D estén o no juntas.

Cómo puedo hacer para que me busque y cuente cuántas veces sale pero las dos letras juntas. Gracias por todo.
Mensaje Mie Jun 25, 2008 6:53 am
kidd
Creador de Perl en Español
Creador de Perl en Español
Registrado: 15 Oct 2003
Mensajes: 1366
Ubicación: México
Responder citando

Hola:

En perldoc -q count encontrarás varias maneras de lograr lo que quieres.

Una manera podría ser:

Perl:
my $string = 'RDRGEDGRGERDRGGFFGRFSDRD';

my $count = () = $string =~ /RD/g;


Saludos
Mensaje Mie Jun 25, 2008 8:57 am
explorer
Moderador
Moderador
Registrado: 24 Jul 2005
Mensajes: 4034
Ubicación: Valladolid, España
Responder citando

Esta es otra:
Perl:
$count++ while $string =~ /RD/g;
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio Todas las horas son GMT - 6 Horas
Página 1 de 1



Powered by phpBB © 2001, 2005 phpBB Group