Re: Returning Variables from files


No such thing as a small change
	PerlMonks

Re: Returning Variables from files

by cjf (Parson)

on Jul 21, 2002 at 21:01 UTC ( #183871=note: print w/replies, xml )

Need Help??

in reply to Returning Variables from files

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.

Comment on Re: Returning Variables from files Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://183871]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others lurking in the Monastery: (5)

As of 2023-03-27 01:45 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?