#!/usr/bin/perl 
#
# Traductor de texto de inglés a español v2.0
# Daniel Medianero m313(http://m313.es.kz)
# dmedianero@gmail.com
#
 use LWP::UserAgent;

	print "\nTraductor de Google v0.2\n";
	print "m313(http://m313.es.kz)\n\n";
	print "Introduce el texto en inglés que quieres traducir:\n\n";
	my $entrada = <STDIN>;
	chomp($entrada);
	my $ua = LWP::UserAgent->new(agent => 'Mozilla/Firefox');
	my $content = new HTTP::Request GET => "http://www.google.es/translate_t?hl=es&ie=UTF8&text=$entrada&langpair=en%7Ces";
 	my $request = $ua->request($content);
	my $contenido = $request->content;

	if ($contenido=~/=result_box/g) { 
	  	$contenido=~ s/\n//g;	
		$contenido=~ s/(.*)<div\sid=result_box\sdir=ltr>//g;
		$contenido=~ s/(.*)<\/div><\/td><\/tr><tr><td\sid=submitcell><table>(.*)/\1/;
		$contenido=~ s/(.*)<div id=result_box dir="ltr">(.*)/\2/;
		print "\n============== Traducción al español===============\n\n";	
		print "$contenido\n\n";
		print "===================================================\n\n";
		
	} else { print "Se ha producido un error\n"; }