Print substitution ?

[Bob]

I am trying to read in the contents of a file (which contains psuedo
variables) and then print the file's contents and have variable
substitution occur.

Example:

[file contains this text: "Your name is $name"]

open (HEADER, "< ../header.htm")
my @headerLines = <HEADER>;
my $name = "Freddy";
print_html("@headerLines");

When I do this, I get the contents of the file, but the variable does
not get substituted. So the output looks like this:

Your name is $name

Suggestions ? This is actually part of a much larger file read with
many more variables and I could really use substitution.

Thanks,

 

[michaelpgee]

Try something more like:

my $name = 'Freddy';
open(my $header, '<', '../header.htm') or die "Can't read
'../header.htm': $!\n";
for (<$header>) {
s/(\$\w+)/$1/eg;
print_html($_);
}
close($header);

 

[Paul Lalli]

I am trying to read in the contents of a file (which contains psuedo
variables) and then print the file's contents and have variable
substitution occur.

Your Question is Asked Frequently
perldoc -q expand
How can I expand variables in text strings?

Paul Lalli

 

[Sherm Pendley]

I am trying to read in the contents of a file (which contains psuedo
variables) and then print the file's contents and have variable
substitution occur.

Search CPAN for the word "template" - this is very well-explored territory,
so there's little need to reinvent that particular wheel.

sherm--

 

[Sherm Pendley]

Search CPAN for the word "template" - this is very well-explored territory,
so there's little need to reinvent that particular wheel.

Forgot the link:

<http://search.cpan.org>

sherm--

 

[John Bokma]

I am trying to read in the contents of a file (which contains psuedo
variables) and then print the file's contents and have variable
substitution occur.

Example:

[file contains this text: "Your name is $name"]

open (HEADER, "< ../header.htm")
my @headerLines = <HEADER>;
my $name = "Freddy";
print_html("@headerLines");

When I do this, I get the contents of the file, but the variable does
not get substituted. So the output looks like this:

Your name is $name

Suggestions ? This is actually part of a much larger file read with
many more variables and I could really use substitution.

my %vars = (

name => "Freddy",
:
:
);

while ( my $line = <HEADER> )

$line =~ s{\$(\w+)}{

defined $vars{ $1 } ? $vars{ $1 } : 'ERROR'
}ge;

print $line;
}

(untested, use at your own risk, etc.)

But as Sherm already explained: there are many template solutions @
CPAN.

Some tips though:

check your open
don't use camelCase (it's Perl, not Java)
"@headerLines" probably doesn't do what you want.

 

[Brian McCauley]

Your Question is Asked Frequently
perldoc -q expand
How can I expand variables in text strings?

But is _not_ well answered in the FAQ. For details please review
numerous previous threads containig the exact phrase "How can I expand
variables in text strings?"

For example.

http://groups.google.com/group/comp...ebb1a8fcdae/88b9d342d1898a5d#88b9d342d1898a5d