![]() |
![]()
| ![]() |
![]()
NAMENet::Amazon::AWSSign - Perl extension to create signatures for AWS requests SYNOPSISuse Net::Amazon::AWSSign; my $awsKey="AWS_Access_Key"; # Get this from AWS if you don't already have one my $awsSecret="AWS_Secret_Key"; # Get this from AWS if you don't already have one my $awsSign=new Net::Amazon::AWSSign("$awsKey", "$awsSecret"); # New object # SOAP my $awsSOAPAction=ItemSearch; my ($SOAPTimestamp, $SOAPSignature)=$awsSign->SOAPSig($awsSOAPAction); # REST my $awsASIN='B000002U82'; # Dark Side of the Moon my $awsRESTURI="http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&Operation=ItemLookup&ItemId=$awsASIN&ResponseGroup=Medium"; # Simple lookup my $awsSignedRESTURI=$awsSign->addRESTSecret($awsRESTURI); # Returns signed REST query URI for lwp-get, curl, etc. DESCRIPTIONThis module can be used to sign requests for most Amazon AWS services. While this is designed for simple lookups, it should work for pretty much any service (i.e. EC2), since the signing method is the same for all Amazon services. If you want to write your own program to use an Amazon API, this module might save you some time. Or, feel free to paste it into your own modules as long as you follow the license requirements. As for available methods, the synopsis / example pretty much says it all. But, in the interest of full documentation... METHODS
SPECIAL CHARACTERSIf you need to insert special characters (most commonly '&') in your query string then you should escape them beforehand. For example: my $awsRESTURI="http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&Operation=ItemSearch&SearchIndex=Books&Condition=All&Keywords=Heckle%26Jeckle"; SEE ALSONet::Amazon::Signature - if AWSSign doesn't meet your needs, then maybe this will. AUTHORNaton Aiman-Smith, <naton@cpan.org> COPYRIGHT AND LICENSECopyright (C) 2009 by Naton Aiman-Smith This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.
|