En el trabajo me solicitaron terminar de desarrollar este código que les voy a adjuntar, debe efectuar la función de buscar una palabra o serie de palabras, en un sitio web, en donde tanto el sitio como la palabra sean ingresadas por el usuario.
Ojalá me puedan ayudar.
Saludos y gracias,
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use HTML::LinkExtor;
- use LWP::Simple;
- my $page = get(shift) || "<html><body>Not found</body></html>";
- my $retriever = new HTML::LinkExtor;
- $retriever->parse($page);
- my @links = $retriever->links;
- foreach (@links) {
- while ( my ($exclusions) = splice( @$_, 2 ) ) {
- next unless $exclusions =~ m/deloitte/;
- print "$exclusions\n";
- }
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4