open (OUT, ">>file.it.xls") or die "Can't open $out_file: $!\n";
print OUT "Codice\tTitolo Film\tAnno\tTitolo originale\tAltri titoli\tDurata\tVietato\tOrigine\tColore\tGenere\tFormato\tTratto da\tProduzione\tDistribuzione\tRegia\tAttori\tSoggetto\tSceneggiatura\tFotografia\tMusiche\tMontaggio\tScenografia\tEffetti\tCostumi\tTrama\tCritica\tNote";

# USATA PER DOWNLOAD GET
use LWP::Simple;
$|=1;
#45171
for ($i = 1; $i <45172; ++$i)
	{
	# INIZIALIZZAZIONE
	$Titolo_Film= "";
	$Anno= "";
	$Titolo_originale= "";
	$Altri_titoli= "";
	$Durata= "";
	$Vietato= "";
	$Origine= "";
	$Colore= "";
	$Genere= "";
	$Formato= "";
	$Tratto_da= "";
	$Produzione= "";
	$Distribuzione= "";
	$Regia= "";
	$Attori= "";
	$Soggetto= "";
	$Sceneggiatura= "";
	$Fotografia= "";
	$Musiche= "";
	$Montaggio= "";
	$Scenografia= "";
	$Effetti= "";
	$Costumi= "";
	$Trama= "";
	@tmpTrama= "";
	$Critica= "";
	@tmpCritica ="";
	$Note= "";
	@tmpNote="";
	
	# DOWNLOAD PAGINA
	$tmpfile = get ("http://www.....asp?s=$i");
	
	# PARSERING PAGINA
	if ($tmpfile =~ /\t{6}.*?Titolo Film.*?(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)<\/font>/s)
		{$tmpRegia = $1;
		while($tmpRegia=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Regiat =$1;}
				else
				{$Regiat =$2;}
				$Regiat =~ s/  / /;
				$Regia = $Regia.", ".$Regiat;
			}
		$Regia=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Attori.*?(.*?)<\/font>/s)
		{$tmpAttori = $1;
		while($tmpAttori=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Attore =$1;}
				else
				{$Attore =$2;}
				$Attore =~ s/  / /;
				$Attori = $Attori.", ".$Attore;
			}
		$Attori=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Soggetto.*?(.*?)<\/font>/s)
		{$tmpSoggetto = $1;
		while($tmpSoggetto=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Soggettot =$1;}
				else
				{$Soggettot =$2;}
				$Soggettot =~ s/  / /;
				$Soggetto = $Soggetto.", ".$Soggettot;
			}
		$Soggetto=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Sceneggiatura.*?(.*?)<\/font>/s)
		{$tmpSceneggiatura = $1;
		while($tmpSceneggiatura=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Sceneggiaturat =$1;}
				else
				{$Sceneggiaturat =$2;}
				$Sceneggiaturat =~ s/  / /;
				$Sceneggiatura = $Sceneggiatura.", ".$Sceneggiaturat;
			}
		$Sceneggiatura=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Fotografia.*?(.*?)<\/font>/s)
		{$tmpFotografia = $1;
		while($tmpFotografia=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Fotografiat =$1;}
				else
				{$Fotografiat =$2;}
				$Fotografiat =~ s/  / /;
				$Fotografia = $Fotografia.", ".$Fotografiat;
			}
		$Fotografia=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Musiche.*?(.*?)<\/font>/s)
		{$tmpMusiche = $1;
		while($tmpMusiche=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Musichet =$1;}
				else
				{$Musichet =$2;}
				$Musichet =~ s/  / /;
				$Musiche = $Musiche.", ".$Musichet;
			}
		$Musiche=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Montaggio.*?(.*?)<\/font>/s)
		{$tmpMontaggio = $1;
		while($tmpMontaggio=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Montaggiot =$1;}
				else
				{$Montaggiot =$2;}
				$Montaggiot =~ s/  / /;
				$Montaggio = $Montaggio.", ".$Montaggiot;
			}
		$Montaggio=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Scenografia.*?(.*?)<\/font>/s)
		{$tmpScenografia = $1;
		while($tmpScenografia=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Scenografiat =$1;}
				else
				{$Scenografiat =$2;}
				$Scenografiat =~ s/  / /;
				$Scenografia = $Scenografia.", ".$Scenografiat;
			}
		$Scenografia=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Effetti.*?(.*?)<\/font>/s)
		{$tmpEffetti = $1;
		while($tmpEffetti=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Effettit =$1;}
				else
				{$Effettit =$2;}
				$Effettit =~ s/  / /;
				$Effetti = $Effetti.", ".$Effettit;
			}
		$Scenografia=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Costumi.*?(.*?)<\/font>/s)
		{$tmpCostumi = $1;
		while($tmpCostumi=~ /(?:(.*?)<\/a>)|(?:(?: ){6}(\w.*?)
)/g)
			{if ($1)
				{$Costumit =$1;}
				else
				{$Costumit =$2;}
				$Costumit =~ s/  / /;
				$Costumi = $Costumi.", ".$Costumit;
			}
		$Costumi=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Trama.*?(.*?)\X/s)  #mettere un < al posto di X
		{@tmpTrama = $1;
		foreach $Tramat (@tmpTrama)
			{
			$Tramat=~ s/[^a-zA-Z0-9.,éèòàùì\/!?+\{\}\[\]:;'"()-]/ /g;
			$Trama=$Trama.", ".$Tramat
			}
		$Trama=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Critica.*?(.*?)\X/s)  #mettere un < al posto di X
		{@tmpCritica = $1;
		foreach $Criticat (@tmpCritica)
			{
			$Criticat=~ s/[^a-zA-Z0-9.,éèòàùì\/!?+\{\}\[\]:;'"()-]/ /g;
			$Critica=$Critica.", ".$Criticat
			}
		$Critica=~ s/^,\s//;
		}
	if ($tmpfile =~ /\t{6}.*?Note.*?(.*?)\X/s)  #mettere un < al posto di X
		{@tmpNote = $1;
		foreach $Notet (@tmpNote)
			{
			$Notet=~ s/[^a-zA-Z0-9.,éèòàùì\/!?+\{\}\[\]:;'"()-]/ /g;
			$Note=$Note.", ".$Notet
			}
		$Note=~ s/^,\s//;
		}

	# CREAZIONE DB EXCEL
	print "\n$i";
	print OUT "\n$i";
	print OUT "\t$Titolo_Film";
	print OUT "\t$Anno";
	print OUT "\t$Titolo_originale";
	print OUT "\t$Altri_titoli";
	print OUT "\t$Durata";
	print OUT "\t$Vietato";
	print OUT "\t$Origine";
	print OUT "\t$Colore";
	print OUT "\t$Genere";
	print OUT "\t$Formato";
	print OUT "\t$Tratto_da";
	print OUT "\t$Produzione";
	print OUT "\t$Distribuzione";
	print OUT "\t$Regia";
	print OUT "\t$Attori";
	print OUT "\t$Soggetto";
	print OUT "\t$Sceneggiatura";
	print OUT "\t$Fotografia";
	print OUT "\t$Musiche";
	print OUT "\t$Montaggio";
	print OUT "\t$Scenografia";
	print OUT "\t$Effetti";
	print OUT "\t$Costumi";
	print OUT "\t$Trama";
	print OUT "\t$Critica";
	print OUT "\t$Note ";
	}
close OUT;