Meka][Meka Unstopable Posts: 700
|
Code: | $file = 'data.txt' ; # Name the file open(INFO, "<$file" ) ; # Open the file @lines = <INFO> ; # Read it into an array close(INFO) ; # Close the file print "<HTML> <HEAD> <TITLE> PERL output </TITLE> </HEAD>\\n" ; print " <BODY>\\n" ; foreach $line (lines) # assign @lines to $line, one at a time { # braces {} are required, bracket code print "\\n <P> $line </P>" ; # print formatted lines to screen } print "\\n </BODY>\\n</HTML>\\n" ; |
|