I've done pretty much exactly this on many occasions. Works very well for specifying user visible strings in a separate file and referencing them by ID.
#! /usr/bin/env perl use strict; use warnings; my %templates = ( url => 'http://something.com/api_stuff/%guid%' ); print format_template( url => guid => 1234 ); sub format_template { my $template_id = shift; my $template = $templates{$template_id}; my (%args) = @_; foreach (keys %args) { $template =~ s/%$_%/$args{$_}/; } return $template; }
πάντων χρημάτων μέτρον έστιν άνθρωπος.
In reply to Re^4: Strings with undefined variables?
by jimpudar
in thread Strings with undefined variables?
by 23skiddoo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |