AuthorMessage
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" ;

vickmaker
Ametuar
Posts: 127

ahh, an eye opener, ty ;)
-\v