Mega Code Archive

 
Categories / Perl / Data Type
 

Direct Scalar References

$title = "Reference Color"; $bodyColor = "FF0000"; $HTMLHead = "<html> <head> <title> $title </title> </head>"; $HTMLBodyColor="<body bgcolor=$bodyColor>"; $headReference = \$HTMLHead; $bodyReference = \$HTMLBodyColor; open (OUTFILE, ">refColor.html"); print OUTFILE <<eof; $$headReference $$bodyReference <test> </body> </html> eof close(OUTFILE);