Hi all,
I am a perl beginner and find myself somewhat stuck, please help!!
I am trying to write a program that will access a log file that has a list
of resource addresses. The program will then create an html page that
returns the last address from the log file as a link in an html page. I
attach the logfile and application as text files. I would be very grateful
if someone could have a look through my work and suggest where it is going
wrong or suggest some alternatives.
Any help will be very gratefully appreciated!
Cheers,
Jon.
#!perl
# Program for the navigation system
use CGI qw( :standard );
open(LOGFILE, "logfile.txt") or die "Can't open logfile: $!\n";
while ($line = <LOGFILE>)
{
$line = $link
}
print header;
print <<End_Begin;
<html>
<head>
<title>Secondary navigation page</title>
</head>
<body>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
End_Begin
foreach $link (sort keys %LINKS)
{
print <<End_Row;
<TR>
<TD><a href="$LINKS{$link[5]}">$link[5]</a></TD>
</TR>
End_Row
}
print <<End_Finish;
</table>
</body>
</html>
End_Finish
# end of program
E:\Dissertation\application\Brussels.html
E:\Dissertation\application\BRaccomindex.html
E:\Dissertation\application\BResinfindex.html
E:\Dissertation\application\BReatindex.html
E:\Dissertation\application\BRshopindex.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
