printig with variables in text

[moked]

Hi monks,
I wat to print the content of a file
while this file contains perl variables ($var)
I want to replace the parl variables with content found in the perl program.
Appreciate the help.

Thanks.
Moked

[ysth]

$ cat input.txt
Put the $var1 in the $var2, please.
$ cat filltemplate.pl
use Template;
use strict;
use warnings;

my $vars = {
   var1 => 'cookies',
   var2 => 'oven',
};

my $tt = Template->new({INTERPOLATE => 1});
$tt->process('input.txt', $vars) || die $tt->error();
$ perl filltemplate.pl
Put the cookies in the oven, please.

Template does much more, of course.

[pjotrik]

eval can help you:

#!/usr/bin/perl

use warnings;
use strict;

my $variable = 'xxx';
my $another_one = 'aaa';

my $content = do { local $/; <DATA> };
print eval(qq("$content"));

__DATA__
some text that may 
contain a $variable,
or perhapse $another_one.

[dHarry]

You could be a bit more specific, i.e. add some explanation on what exactly you are trying to achieve.

As usual there are several approaches

• One way to do it is to inline the file in a HEREDOC, the variables will be interpolated. (Maybe not the most elegant solution but I used it to good effect in QED solutions :-)
• Another (better) option is to put certain tags (the variables) in the file, parse the file and replace the tags with meaningful values. You can create a temporary file containing the substituted values (let's say an "instantiation" of the template). I used this approach to generate XML files to request data from a system.
• Or use Template as suggested above.

Hope this helps

[Anonymous Monk]

One way to do it is to inline the file in a HEREDOC, the variables will be interpolated.

I can't remember ever seeing this done before. Can you please give a quick code example or a link to some discussion of it?

[Anonymous Monk]

my $oo = 'oop';
my $oop = <<"POOP";

I like to say p$oo
Hello $oo

POOP

print $oop
__END__

I like to say poop
Hello oop

[shmem]

What did you try? What is your input like, what is the desired output? See How (Not) To Ask A Question.