#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;
use Data::Dumper;

my $url = "http://ultimosegundo.ig.com.br/useg";
my $ReNoticiaPrincipal    = '^\s*.*<a\s+href="(.*)"\s+class="mancheteprinc".*?>(.*)</a>';
my $ReNoticiaSecundaria   = '^\s*.*<a\s+href="(.*)"\s+class="manchetesec".*?>(.*)</a>';

my $ReNoticiaPaginaTitulo = '^\s*<span\s+class="sessao">(.*?)<br></span>';
my $ReNoticiaPaginaNota   = '^\s*.*<a\s+href="(.*)"\s+class="textonot".*?>(.*?)<br></a>';
my $ReNoticiaPaginaNotaVip    = '^\s*.*<a\s+href="(.*)"\s+class="textovp".*?>(.*?)(?:<br>)+</a>';

my $ReDolarComercial      = '^\s*<span\s+class="\w+">D.+?lar\s+Comercial.*?</span>\s+<span class="\w+">\s*(\d,\d+)\s*</span>\s*<br>';
my $ReContacoes           = '^\s*<td>\s*<span\s+class="cotver\w+">(.+%)\s*</span>\s*</td>';

my $ReUltimasSessao       = '^\s*<span\s+class="sessaopq">\s*(.+?)\s*</span>\s*<span\s+class="\w+">\s+::\s+(\d\d:\d\d:\d\d)\s*</span>';
my $ReUltimasNota         = '^\s*.*<a\s+href="(.*)"\s+class="mancheteter".*?>\s*(.*?)(?:<br>)+</a>';

# estrutura de dados

my @Noticias;

my @Ultimas;

my @Manchetes;

my $DolarComercial;
my @Bolsas;

getstore($url, '/tmp/.ct');

open (URL, '/tmp/.ct');

while (<URL>) {
	if (m#$ReNoticiaPrincipal#o or m#$ReNoticiaSecundaria#o) {
		
		my $Manchete = { Titulo => '', Link => '' };

		$Manchete->{Titulo} = $2;
		$Manchete->{Link} = $1;
		push(@Manchetes, $Manchete);
		
	}	
	elsif (m#$ReNoticiaPaginaTitulo#o) {
		my $Noticia = { Titulo => '', Link => '', Conteudo => '' };

		$Noticia->{Titulo} = $1;
		
		$_ = <URL>;
		
		if (m#$ReNoticiaPaginaNota#o or m#$ReNoticiaPaginaNotaVip#o) {
			$Noticia->{Conteudo} = $2;
			$Noticia->{Link} = $1;
			push (@Noticias, $Noticia);
		}
	}
	elsif (m#$ReDolarComercial#o) {
		$DolarComercial = $1;
	}
	elsif (m#$ReContacoes#o) {
		$Bolsas[scalar(@Bolsas)] = $1;
	}
	elsif (m#$ReUltimasSessao#o) {
		my $Ultima = { Sessao => '', Link => '', Conteudo => '', Hora =>'' };

		$Ultima->{Sessao} = $1;
		$Ultima->{Hora} = $2;
		
		<URL>;
		$_=<URL>;
		
		if (m#$ReUltimasNota#o) {
			$Ultima->{Link} = $1;
			$Ultima->{Conteudo} = $2;
			push (@Ultimas, $Ultima);
		}
		
	}
	
}

my %Bolsas = ( SP => $Bolsas[0], NY => $Bolsas[1], Nasdaq => $Bolsas[2] );

print "-" x 80, "\n";
print "\@Machetes\n", 		Dumper(\@Manchetes);
print "-" x 80, "\n";
print "\@Noticias\n", 		Dumper(\@Noticias);
print "-" x 80, "\n";
print "\@Ultimas\n", 		Dumper(\@Ultimas);
print "-" x 80, "\n";
print "\%Bolsas\n", 		Dumper(\%Bolsas);
print "-" x 80, "\n";
print "\$DolarComercial\n", 	Dumper(\$DolarComercial);
print "-" x 80, "\n";