Re: Re: Re: Using Perl to Implement a simple Searchable Web Database

[cjf]

This should get you started...

#!/usr/bin/perl -wT

use strict;
use CGI;

my $q = new CGI;

my $number_to_find = $q->param("number");

open DATA, "data.txt" or die "Can't open file: $!";

while (<DATA>) {
    chomp;
    my @fields = split /,/;

    if ($fields[0] eq $number_to_find) {
        print_to_browser(@fields);
    }
}

close DATA;


sub print_to_browser {
    my @data = @_;
    print $q->header("text/html"),
          $q->start_html("Error"),
      $q->h1("Relevant Data"),
      $q->p(@data),
      $q->end_html;
}

That's definately not the prettiest code, but it should give you an idea of what you need to do. You'll probably also want to read some of the CGI.pm docs and do a search or two on cpan for "CSV" to find some relevant modules.

[Anonymous Monk]

Thanks for your help, I just found out that the web server I am working on supports CGI and Perl (or so they say) I'll be testing it out to make sure. Thanks again! :-D