Searching for Perl script

[2kewl]

Hi,
I'm searching for a Perl script which will display the contents of a character &quot;|&quot; delimited database file. Something like a guestbook without the ability to add entries, just simply to display on a HTML page. Help please.<!-- NO_AUTO_LINK -->

[urban]

You describe a script that is (in all likelihood) fairly easy to develop.[nbsp][nbsp]I doubt you'll find a completely 'generalized' script that will just automatically work with your file.[nbsp][nbsp]However, if you post more details, someone will most likely be able to assist you.

What are the fields separated by the '|'?[nbsp][nbsp]How many fields are there?[nbsp][nbsp]How do you want to display each field?[nbsp][nbsp]Etc...


open(FH,'/big/dom/x-whatever/somedir/myflatfile.txt);
while(<FH>) {
[nbsp]($field1,$field2,$field3,$field4) = split(/\|/);
[nbsp]print &quot;FieldOne = &quot;.$field1.&quot;
\n&quot;;
[nbsp]print &quot;FieldFour = &quot;.$field4.&quot;
\n&quot;;
}

[2kewl]

Easy for some maybe for not for me. I'm looking for a ready-made script. There must be one somewhere!

The database file is written by my form mailer (ennyforms) from fields entered into a form and also emails me the form. Here's a sample of the database:

|xxxxx@xxxxx.com|Sandra|USA|Female|22|epals|English||I look forward to making epals from all over the world, especially from Asia and Europe. I like learning about different cultures and languages. Friendship only. Age and gender doesn't matter. Hope to hear from you soon.|

There are lots of scripts which record in a database but none, it seems, which will simply write it to a HTML page. Lots of DBMs of course, but they all include adding to the database and searching which I don't want.

As I said just a simple centre-stacked page maybe just like a guestbook.

The purpose is to display latest pen pal ads.

ANDY

<!-- NO_AUTO_LINK -->
[This message has been edited by 2kewl (edited 03-15-00@5:34 pm)]

[Dan Kaplan]

A possible solution would be using Gossamer Thread's DBMan with no login and a &quot;list all&quot; by default.[nbsp][nbsp]That would effectively be the same as just listing all the database info on one page.[nbsp][nbsp]You can format the output pretty much however you want.

The challenge might lie in syncing the ennyforms and DBMan database formats...

http://www.gossamer-threads.com

Dan

[sumengen]

Hi,
If you save the code below to a file and run it in your cgi dir, it will be creating a table with the information in your data file. You should edit the $data_path and $data_file variables.


#!/usr/bin/perl -w

my $data_path = &quot;/path/to/your/data/directory&quot;;
my $data_file = &quot;data.txt&quot;;

open(FILE, &quot;$data_path/$data_file&quot;) or die &quot;Can't open $data_file&quot;;
flock(FILE, 2);
my @records = <FILE>;
flock(FILE, 8);
close(FILE);
chomp(@records);

my ($html);
for (@records){
[nbsp][nbsp] $html .= &quot;<tr><td>&quot; . join(&quot;</td><td>&quot;, map {s#^$#\&amp;nbsp;#g;$_} eval{my @temp = split /\|/; shift(@temp) unless($temp[0]); @temp} ) . &quot;</td></tr>&quot;;
}
$html = '<table border=&quot;1&quot; width=&quot;100%&quot;>' . $html . '</table>';

print &quot;Content-type: text/html\n\n&quot;;

print $html;

------------------
*****************
Baris Sumengen
*****************