Foro - Perl en Español

[daniCompaq]

Compañeros,

tengo esta rutina y quiero hacer que capture sólo los códigos de la forma
<a href="http://www.vilaweb.cat/www/noticia?LOQUESEA"

Cómo lo puedo hacer?? Lo he provado con este codigo...

Código: Seleccionar todo

sub getLinks
   {
   my @urls = @_;
   my %hash;
   $prefixurl= "http://www.vilaweb.cat/www/noticia?";

   foreach my $url ( @urls )
      {
      #while ( $url =~ /href="(.+?)"/gi )  #funciona!
      while ( $url =~ /href="$prefixurl"+?"/gi )
      {
         $hash
            { $1 } = 1 unless $1 =~ /#/;
      }
   }

   %hash;
}

pero no me funciona!
muchísimas gracias!!!

[kidd]

Hola:

Lo primero que debes de recordar que es los parentesis sirven de captura, en la última prueba que haces no pones los parentesis.

Debe de funcionar lo siguiente:

Código: Seleccionar todo

  while ( $url =~ /href="(\Q$prefixurl\E(?:.*)?)"/gi )


Saludos