http://qs321.pair.com?node_id=183867

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

Ok say I two files called, header and footer, but all over header and footer it has variables, but how can I tanslate flatfile variables to perl, for example a file
--User.htm---
<html>
<head>
<title>$title</title>
</head>
<body $bodystuff>
<font $face>
$other
</font>
</body>
</html>

[download]
I dont want it to print $other I want it to print the scripts $other

Replies are listed 'Best First'.
Re: Returning Variables from files
by dpuu (Chaplain) on Jul 21, 2002 at 20:49 UTC
    Imagine you wanted to write the output as a perl print statement: you could write: 
      my $name = "Dave";
  my $user = "dpuu";

  print <<HERE;
Hello, my name is $name
and my user name is $user
HERE

    [download]
    This will do variable interpolation on a set of lines.

    If you want to separate the script and the flat-file, you can create a print-statement on the fly, using eval: 

      my $name="Dave";
  my $user="dpuu";
  my $text_file="User.htm";
  my $text=`cat $text_file`;
  eval "print <<HERE;\n$text\nHERE";

    [download]
    You want to be careful when putting this in a production environment: executing data files as code could introduce some security holes (or just very strange bugs). This script won't work with perl's -T option --Dave.
[reply]
[d/l]
[select]
Re: Returning Variables from files
by dpuu (Chaplain) on Jul 21, 2002 at 21:03 UTC
    Here's another possibility: its not as powerful as the eval method; but much safer: 
      my %values = (title => "A Title");

  sub get_value
  {
    my $key = shift;
    return exists($values{$key})
      ? $values{$key}
      : "UNKNOWN";
  }

  my $file = "User.htm";
  open IN, "<$file" or die "can't read file: $file";

  while (<IN>)
  {
    s/\$(\w+)/get_value($1)/ge;
    print;
  }

    [download]
    You can obviously get a bit more fancy with the get_value subroutine --Dave.
[reply]
[d/l]
      what if I wanted to do subroutines
[reply]
Re: Returning Variables from files
by dorko (Prior) on Jul 22, 2002 at 02:28 UTC
    Maybe I'm missing something here, but you might want to consider using a templating system. They do what you seem to want to do here. (i.e. Have a place holder in an HTML file that gets replaced dynamically by your script.)

    I use HTML::Template. There are at least two good tutorials for HTML::Template available here at the Monastery. One is by Ovid and the other by jeffa.

    In all fairness, there are other templating modules out there. You can find an article ("Choosing a Templating System") comparing and contrasting them.

    Cheers!

    Brent

    -- Yeah, I'm a Delt.

[reply]
Re: Returning Variables from files
by cjf (Parson) on Jul 21, 2002 at 21:01 UTC

    What format is the data in?

    Assuming var_name=var_value format, and only working with scalars, try the following:

    open HEADER, "header.txt" or die $!;

my %variables;

while (<HEADER>) {
    chomp;
    my ($name, $value) = split /=/;
    $variables{$name}  = $value;
}

close HEADER;

print <<EOF;

<html>
<head>
<title>$variables{title}</title>
</head>
<body>
<p>Hello $variables{name}</p>
</body>
</html>

EOF

    [download]

    That should work if each name/value pair is separated by a newline.

[reply]
[d/l]

Back to Seekers of Perl Wisdom