How can one re-parse(?) a string to fill in variables

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How can one re-parse(?) a string to fill in variables by repson (Chaplain) on Nov 24, 2000 at 03:57 UTC
You could try this if that is what the question means.	[reply]
Re: How can one re-parse(?) a string to fill in variables by brcjacks (Initiate) on Oct 31, 2013 at 13:58 UTC
These days, why not just use double-quotes to interpolate the string. #!/usr/bin/perl -w use strict; my $name = 'Alex'; my $greeting = "Hello $name"; print $greeting	[reply]
Re: Answer: How can one re-parse(?) a string to fill in variables by Corion (Patriarch) on Oct 31, 2013 at 14:07 UTC
If you read the string `$greeting` from a file, how will interpolation work? Basically, this question leads to a templating system, of which there are lots in Perl, from Interpolation over Text::Template to Template Toolkit. Depending on your output needs, there are other modules, like Email::Template and HTML::Template::Compiled.	[reply] [d/l]
Re: How can one re-parse(?) a string to fill in variables by merlyn (Sage) on Nov 23, 2000 at 22:45 UTC
How can one phrase a question so as to make it answerable? {grin} One possible solution, since the question is so ambiguous... `@a = split /\s+/, "my dog has fleas";` [download]	[reply] [d/l]
Re: How can one re-parse(?) a string to fill in variables by kilinrax (Deacon) on Nov 23, 2000 at 23:07 UTC
You're question is a little vague - but I'm guessing the problem is that you have code somewhat like the following (which i'll use as an example): `#!/usr/bin/perl -w use strict; my $name = 'Alex'; my $greeting = 'Hello $name!'; print $greeting;` [download] Which you want to print `'Hello Alex'`, but currently it's printing `'Hello $name!'`. The following code will do this, though is perhaps a little hack-ish, and some of our more experienced monks could enlighten both of us as to a more elegant method: `#!/usr/bin/perl -w use strict; my $name = 'Alex'; my $greeting = 'Hello $name!'; $greeting =~ s\|\$([\w_]+)\|eval "\${$1}"\|e; print $greeting;` [download]	[reply] [d/l] [select]