Evaluating variables read from a file 1

[faelord]

I have a simple menuing program where the items for the menu are read from a file in the following format:

user level| link text | link url , eg

0|Shop|cgi-bin/vc_shop.pl?id=$id&level=$level&where=shop

It is read in using the following:

while ($atext=<OFILE>)
	{
	@item=split(/\|/,$atext);
	$ulevel=$item[0];
	$utext=$item[1];
	$ulink=$item[2];
	$add=&quot;<a href=\&quot;$ulink\&quot;>$utext</a><br>&quot;;
	$text=$text.$add;
	}
close(OFILE);
return $text;

However the variables such as $id are reproduced in the final url ($add) in their unevaluated form. How can I force them to be replaced by their values?

 

[sampsonr]

# insert this after $ulink is established
# put any variable that might be needed in the parens
foreach $varname qw( id level ... ) {
# use a reference to the variable in question
$vv = $$varname;
$ulink =~ s/\$$varname/$vv/;
}