Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 11 lines (8 sloc) 201 Bytes
#!/usr/bin/env perl
use 5.14.0;
use warnings;
$_ = <>;
my ($query, $params) = /^(.*?): (.*)$/;
my @params = map { s/^'(\d+)'$/$1/r } split ', ', $params;
$query =~ s/\?/shift @params/eg;
say $query;