flat text database viewed in html 1

renerene · Sep 27, 2001

Loon · Sep 27, 2001

Maybe something along the lines of:

Code:

open (INF, $filename) or $error=1; #or a die etc...
while(<INF>)
{
    #read the line, split it and display the html
    ($email,$title,$url,$desc,$cat,$spare,$time,$date) = split /|/, $_;
    # if you want to format, say in a table then..
    print &quot;<tr><td><a href=&quot;$url&quot;>$title</a></td>&quot;;
    print &quot;<td>$description</td>&quot;;
    print &quot;<td><a href=&quot;mailto:$email&quot;>$email</a></td>&quot;;
    print &quot;<td>$time</td><td>$date</td></tr>\n&quot;;
}

Cheers
Loon

renerene · Sep 27, 2001

Hi,

Thanks for that.
I have mixed and matched a bit and came up with this:
#!/usr/bin/perl

$data_file="links.txt";

open(DAT, $data_file) || die("Could not open file!&quot

;
@raw_data=<DAT>;
close(DAT);

print "Content-type: text/html\n\n";
print "<HTML><BODY>";

foreach $biglist (@raw_data)
{
chop($biglist);
($email,$title,$url,$desc,$cat,$spare,$time,$date)=split(/\|/,$biglist);
print "$title $url $desc $email $time $date";
print "<BR>\n";
}

print "</BODY></HTML>";

This works OK but as soon as I try to put a clickable link in like so:

print "$title <a href="$url">$url</a> $desc $email $time $date";

I get a server error.
Can you see what is happening here.

perlone · Sep 27, 2001

To add the link correctly, you need to put the escape backslash:

print "$title <a href=\"$url\">$url</a> $desc $email $time $date";

Also, a little suggestion: If you're using perl version 5, use the chomp function instead of chop. Here's an example:

foreach $biglist (@raw_data)
{
chomp($biglist);
($email,$title,$url,$desc,$cat,$spare,$time,$date)=split(/\|/,$biglist);
print "$title $url $desc $email $time $date";
print "<BR>\n";
}

What's the difference? Well, if you are running perl version 5, then chomp only cut out the newlines. But chop function will cut out one line from the file. Just to be in safe, using chomp is a very good idea.
There is no Knowledge, That is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (

http://www.coralspringshigh.com)

Company

not done yet)

Status: Currently working with C++ for game developing.
-Aaron

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

flat text database viewed in html 1

renerene

Technical User

Loon

Programmer

renerene

Technical User

perlone

Programmer

Similar threads

Part and Inventory Search

Sponsor