This falls into the category of both work and fun. Many of my clients use an online host to manage their photos. My personal favorite is Flickr. Whether you’re a professional photographer looking to expand your market or show off your latest, or you’re in a sales/marketing/promotion role and sharing pictures from the latest trade show, or simply have a need to share more than a handful of digital photographs, a photo-specific hosting site makes the job much easier and allows you to focus on results rather than the process.
Flickr provides the ability to easily embed photos in other applications and a highly extensible API for extracting and using photos for your own customized needs.
Before you begin creating scripts, you’ll need a Flickr API key.
From your account page, click on the “Sharing & Extending” tab.
Scroll down to “Your API keys” and click on the link to the right, which likely says “You have no API keys assigned to this account.”
Click on the “GET A KEY” button.
For now, we’ll stick with non-commercial applications, so click on “APPLY FOR A NON-COMMERCIAL KEY”.
You’ll need a name and description for you app. For now, we can name it “Test Key” and give it a similar description. After reading the terms of use, confirm and check the boxes and click “SUBMIT”.
You’ll be given two hex strings, a “key” and a “secret”. Since we created non-commercial keys, save these and don’t share with anyone. You’ll want to copy/paste someplace for quick reference, but you can always retrieve them from your account page if necessary.
With your API key, we can now begin writing a script.
Once again, Perl provides a readily available repository called Flickr::API. Use cpan to install:
cpan> install Flickr::API
I’d also recommend having Data::Dumper available.
cpan> install Data::Dumper
The first script will simply confirm your perl module is working properly and your API key is functionally. Fortunately Flickr provides a test method. Make sure to replace your_key_here with your Flickr API key (not your secret).
# C:\Perl\bin\perl.exe
use Flickr::API;
use Data::Dumper;my $api = new Flickr::API({'key' => 'your_key_here’});
my $response = $api->execute_method('flickr.test.echo');
print "Success:\t$response->{success}\n";
print "Error code:\t$response->{error_code}\n";
print "\n\n\n";
#print Dumper ($response);
For now, leave the last line (Dumper) commented out. Running the perl command should give you these results:
R> perl Flickr-test.pl
Success: 1
Error code: 0
If the results are flipped (success: 0 and error: 1), there’s a high probability your key isn’t correct, or there were problems with the Flickr::API module.