This fixed the ptoyotype mismatch in load.pm:#!/usr/bin/perl use strict; use warnings; use CPAN; CPAN::Shell->install(qw( load Thread::Serialize Thread::Tie Thread::Conveyor Thread::Conveyor::Monitored Thread::Queue XML::NamespaceSupport XML::SAX::Base XML::SAX XML::SAX::Expat XML::LibXML::SAX XML::Simple WWW::RobotRules HTML::Tagset HTML::Parser HTTP::Date Encode::Locale LWP::UserAgent LWP::MediaTypes HTTP::Headers HTTP::Headers::Util HTTP::Status HTTP::Daemon Net::HTTP URI HTTP::Negotiate File::Listing));
The rest is up to you.#!/usr/bin/perl BEGIN { eval { do { use strict; use warnings; } }; } use load qw(AutoLoader now); use Thread::Pool; use Amazon::SQS::Simple; my $queue_url = 'https://queue.amazon.com'; my $access_key = q{id}; my $secret_key = q{key}; my $sqs = new Amazon::SQS::Simple($access_key, $secret_key); my $q = $sqs->GetQueue($queue_url); my $msg; while (1) { $msg = $q->ReceiveMessage(); if ($msg != "") { print $msg->MessageBody(); } else { print "No new messages.\n" } sleep(2); }
In reply to Re: Prototype mismatch
by Khen1950fx
in thread Prototype mismatch
by caxtor
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |