From itaipu, 2 Months ago, written in Perl.
  1. use strict;
  2. use warnings;
  3. use utf8;
  4. use 5.010;
  5.  
  6. use Mojo::UserAgent;
  7. use Mojo::IOLoop;
  8. use Data::Printer;
  9. #use Data::Dumper;
  10.  
  11. my %news = (
  12.     folha => 'http://www.folha.uol.com.br/',
  13.     oglobo => 'https://oglobo.globo.com/',
  14.     estadao => 'http://www.estadao.com.br/',
  15.     valor => 'http://www.valor.com.br/',
  16. );
  17.  
  18. sub init {
  19.     my %args = @_;
  20.  
  21.     return Mojo::UserAgent->new(\%args);
  22. }
  23.  
  24. my $ua = init (
  25.     name => 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 Safari/537.36'
  26. );
  27.  
  28. sub main {
  29.  
  30.     foreach my $name ( keys %news ) {
  31.         my $url = $news{$name};
  32.         $ua->get(
  33.             $url => sub {
  34.                 my ($ua, $tx) = @_;
  35.                 my $hash = { $name => $tx->result->dom->find('h1')->map('text')->join("\n") };
  36.                 p $hash;
  37.             }
  38.         );
  39.     }
  40. }
  41.  
  42. main();
  43.  
  44. Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
  45.