Re^4: Prepocessing perl code / substing variables

Yes, this is actually a question about how to do s/%%(\w+)%%/$vars{$1}/g in a right way.

May be my mind is not perl enough, but I consider s/%%(\w+)%%/$vars{$1}/g a hack, and would prefer a module that does s/%%(\w+)%%/$vars{$1}/g.

May be it is a reason, why there is no such module... 'cause everybody thinks s/%%(\w+)%%/$vars{$1}/g is enough. But I would at least expect missing values reporting... May be some functionality with quotes escaping or something for better values substitution...

Comment on Re^4: Prepocessing perl code / substing variables Select or Download Code

Replies are listed 'Best First'.
Re^5: Prepocessing perl code / substing variables by haukex (Archbishop) on Apr 15, 2019 at 21:00 UTC
'cause everybody thinks `s/%%(\w+)%%/$vars{$1}/g` is enough Yes, I suspect that is the case... But I would at least expect missing values reporting warnings about uninitialized variables could cover that, I think. May be some functionality with quotes escaping or something for better values substitution... Here's where one starts entering the area of reinventing the Template wheel `:-)`	[reply] [d/l] [select]
Re^5: Prepocessing perl code / substing variables by RonW (Parson) on Apr 15, 2019 at 23:23 UTC
Probably any of the template modules could handle it. However, I also think you would be better off using a configuration file. Even using a template to generate the configuration file would be better than messing with the Perl source code. Each container would get a configuration file suited to it's needs. Also, by using configuration files, it is far easier to make changes. Without configuration files, the package would have to be uninstalled then re-installed.	[reply]
Re^6: Prepocessing perl code / substing variables by nataraj (Sexton) on Apr 17, 2019 at 20:08 UTC
Probably any of the template modules could handle it. Thanx. Actually that was the most useful advice. I found a https://metacpan.org/pod/Text::Template::Simple module that do exactly what I need. So there is no need to write it myself and do some strange regexps. Thanks. Actually I do not understand why I did not do that search request myself O_o	[reply]
Re^7: Prepocessing perl code / substing variables by haukex (Archbishop) on Apr 17, 2019 at 21:17 UTC
Actually I do not understand why I did not do that search request myself O_o It happens to everyone, that's what we're here for :-)	[reply]
Re^5: Prepocessing perl code / substing variables by roboticus (Chancellor) on Apr 15, 2019 at 21:04 UTC
nataraj: It may just be a bit too simple to bother with a module: $ cat pm_1232611.pl use strict; use warnings; my %replacements = qw( FOO fubar BAZ bazoom BIM Kaboom! ); my @strings = ( "what a %%FOO%% for a %%BAZ%%", "Eenie, meenie, minie, %%BIM%%", "The quick %%RED%% fox..." ); for my $str (@strings) { print "INPUT: <$str>\n"; my @vars = $str =~ m/%%(\w+)%%/g; for my $var (@vars) { if (exists $replacements{$var}) { $str =~ s/%%$var%%/$replacements{$var}/g; } else { print "Warning, no replacement for %%$var%%\n"; } } print "OUTPUT: <$str>\n\n"; } $ perl pm_1232611.pl INPUT: <what a %%FOO%% for a %%BAZ%%> OUTPUT: <what a fubar for a bazoom> INPUT: <Eenie, meenie, minie, %%BIM%%> OUTPUT: <Eenie, meenie, minie, Kaboom!> INPUT: <The quick %%RED%% fox...> Warning, no replacement for %%RED%% OUTPUT: <The quick %%RED%% fox...> [download] ...roboticus When your only tool is a hammer, all problems look like your thumb.	[reply] [d/l]