O.k... here is the code that opens the file and declares the variables...

sub a {
open(DATA, "<$config{'basepath'}/data.out") || die "Can't open file: $
+!";

    @lines = <DATA>;
    close (DATA);

$listings = 0;

foreach $temp (@lines){
($num,$date,$desc) = split(/\|/,$temp);

if ($num =~ /^123$/) { print "$desc\n"; 
$listings = 1;}

}

if ($listings eq "0") {print "There are no listings for "123" at this 
+time.\n";}

}
[download]

The user has a clickable link to see if any '123' listings are in the file..

<A HREF=$ENV{'SCRIPT_NAME'}?action=a>Click for '123' listings</a><br>
[download]

Example of return if '123' exists:

Results for '123':

Apple - Click HERE to add to list
Pear  - Click HERE to add to list     
Orange - Click HERE to add to list
Grapefruit - Click HERE to add to list
Banana - Click HERE to add to list

I would like to be able to have a link at the end of each return value that would "build" a list of the ones the user wants..

So if they clicked next to Orange and Grapefruit and they were done searching, they would click a link that would let them print a list that would just have Orange and Grapefruit in it...

Hope this helps...

_______SysAdm

Edit 2001-03-08 by tye