gen_flickr_apisig.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Digest::MD5 qw( md5_hex );
use feature qw( say );

my $secret = $ARGV[0];

my @argvs = split('&', $ARGV[1]);

my $params_ref;
for my $argv (@argvs) {
    my($key, $val) = split('=', $argv);
    $params_ref->{$key} = $val;
}

my $string = $secret;
for my $key (sort keys %{$params_ref}) {
    $string .= $key;
    $string .= $params_ref->{$key}
}

say md5_hex($string);