Named arguments for sprintf

named-sprintf.pl

# inspired by python's infix %
# see for example http://www.korokithakis.net/tutorials/python

sub named-sprintf(Str $format, *%args) {
    my @args;
    my $f = $format.subst(:g,
            rx{ '%(' (\w+) ')' },
            -> $/ { @args.push: %args{$0}; '%' }
    );
    sprintf $f, @args;
}

say named-sprintf 'This %(verb)s a %(noun)s', :verb<is>, :noun<test>;