whoops!
this line : for ($i=0;$i<$#fields;$i++) {
should be: for ($i=0;$i<$#fields+1;$i++) {
-- t0by
> -----Original Message-----
> From: Toby Stuart [SMTP:[EMAIL PROTECTED]]
> Sent: 23/11/2000 2:45
> To: 'mmollenkopf'
> Cc: '[EMAIL PROTECTED]'
> Subject: RE: Pipe Delimited Text file Database (arrg!)
>
> Simple.
>
> #-- Start Perl Script
> my $database = "c:\\tmp\\database.txt";
> open(F,$database);
> @data = <F>;
> close(F);
>
> foreach (@data) {
> chomp($_);
> @fields = split(/\|/,$_);
> print "<tr>", "\n";
> for ($i=0;$i<$#fields;$i++) {
> print "<td>" . $fields[$i] . "<\/td>";
> }
> print "<\/tr>";
> }
> #-- End Perl Script
>
>
>
> > -----Original Message-----
> > From: mmollenkopf [SMTP:[EMAIL PROTECTED]]
> > Sent: 11/11/2000 7:46
> > To: [EMAIL PROTECTED]
> > Subject: Pipe Delimited Text file Database (arrg!)
> >
> > All,
> > I am Trying to write a script to convert a newline seperated, 12 field,
> > pipe
> > delimited text file (database) into ANY readable html table. I have
> script
> > that kind of works horizontally but the problem is... 2 of the fields
> are
> > large (400 character textareas from a web form), which blow the table
> out
> > of
> > proportion and make it difficult to read. Any Thoughts on how to convert
> > Pipe delimited text database to html...?
> >
> > Here is an example of A single database entry:
> >
> > "973878750|126|Fri Nov 10 09:49:22 2000| Chief R N (registerd nurse
> > KELLY|[EMAIL PROTECTED]|555-5555|45 A|immediate|121200 DEC 00|The
> Gamecocks
> > would win the tiebreaker and then face the SEC West champion the first
> > weekend in December for a spot in the BCS. The Gators might be able to
> > secure an at-large berth even with a loss|The Silver bird could secure
> an
> > at-large berth even with a loss|Administrator Molle|122300 DEC 00
> > "
> >
> > Thanks for ANY HELP! :>)
> > BigAL Sends...
> >
> > V/R,
> > Alan Mollenkopf
> > [EMAIL PROTECTED]
> >
> >
> > _______________________________________________
> > Perl-Win32-Web mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
