Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
He intentando algo como esto pero tiene problemas al sacar los enlaces completos.
Using perl Syntax Highlighting
- use LWP::UserAgent;
- use HTTP::Request::Common;
- my $nave = LWP::UserAgent->new();
- $nave->timeout(10);
- $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
- my $re = toma("http://www.google.com/search?sclient=psy&hl=es&rlz=1B2RNFA_enAR279AR401&source=hp&q=regex+google+perl+search&btnG=Buscar");
- while ($re=~/<cite>(.*?)<\/cite>/g) {
- print "$1\n";
- }
- sub toma {
- return $nave->request (GET $_[0])->content;
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
En Python encontré una expresión que sirve pero no pude traducirla:
¿ Alguien puede ayudarme ?
