http://www.perlmonks.org?node_id=970179

welle has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks

I am trying to access translations provided by MyMemory (http://mymemory.translated.net/). There is a simple API (http://mymemory.translated.net/doc/spec.php). I am not an expert in doing such tasks... I just thought to access the data using LWP::UserAgent, pars it and print the results. However I get an error (unauthorized) even if the service is (now) free and accessible without any sort of registration (maybe of interest for other monks?). Am I doing programmatically something wrong in the following code? If what I am doing is okay, I would certainly contact MyMemory.

use LWP::UserAgent; use strict; my $ua = LWP::UserAgent->new; #my $mymemory_url="http://mymemory.translated.net/api/get?q=Hello Wo +rld!&langpair=en|it"; my $req = HTTP::Request->new(GET => 'http://mymemory.translated.net/ +api/get?q=Hello World!&langpair=en|it'); my $res = $ua->request($req); if ($res->is_success) { my $translation= $res->content; print "Mymemory: $translation\n"; } else { print "Impossible retrieving from MyMemory\n"; }