ayuda con expresiones regulares en perl

[metalsew_135]

Hola de nuevo, aca estoy molestando con perl (otra vez :P)

 

me surgio una consulta al tratar de separar substrings con expresiones regulares (estoy aprendiendo, asi que disculpen mi ignorancia), por ejemplo si tengo

 

my $string ="QWASDFGHJKL*QWERTYAXCVNVDF*FGC";

 

y yo quiero separar substrings que comiencen con A y terminen con *

 

se me ocurrio que primero puedo separar por los asteriscos con un codigo asi

 

use strict;
use warnings;
my $texto="QWASDFGHJKL*QWERTYAXCVNVDF*FGC";
if($texto=~/M*.\*/)
{
my @arr=split(/\*/,$texto);
foreach my $wa(@arr)
{
 print $wa."\n";
}
}

 

y despues de hacer esto separar por las A's y almacenar, pero yo soy de la ideologia de que si tienes mucho cod para hacer tan poco, debe haber alguna forma mas fácil de hacerlo. alguien me podria decir como puedo realizar esto de una forma mas facil?

 

gracias a todos :D

[AshWilliams]

Con estos enlaces te quedará más claro el tema

 

http://perlenespanol.com/tutoriales/expresiones_regulares/expresiones_regulares_las_bases.html

http://perlenespanol.com/tutoriales/expresiones_regulares/expresiones_regulares_intermedio.html

 

 

Saludos :krider:

[metalsew_135]

Con estos enlaces te quedará más claro el tema

 

http://perlenespanol..._las_bases.html

http://perlenespanol...intermedio.html

 

 

Saludos :krider:

 

si, los estuve viendo pero se basan en que tu sabes la palabra, yo necesito algo mas general y como soy novato en esto nose como mezclar los cuantificadores

[nunacho]

Nose si sera muy tarde.

#!/usr/bin/perl
use strict;
use warnings;
while (<>) {
while (/(A.*?)\*/g) {
 print "$1\n";
}
}