I'm trying to match a word in the database and record it's occurence, I'm just using a form to post to the script. My form: 
<FORM ACTION="cgi-bin/basic2.pl" METHOD="POST">
<SELECT NAME="browser">
    <OPTION VALUE="microsoft">microsoft</OPTION>
    <OPTION VALUE="netscape">netscape</OPTION>
    <OPTION VALUE="aol">aol</OPTION>
    <OPTION VALUE="mozilla">mozilla</OPTION>
    <OPTION VALUE="opera">opera</OPTION>
    </SELECT>
<INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>

[download]
My code: 

#!/perl/bin/perl

print "Content-type: text/html\n\n";

$logpath = "data/browser.dat";  

&parse;  

sub parse{
    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
    @pairs = split(/&/, $ENV{'QUERY_STRING'});
    }
    elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);
    }
    else {exit;}
    foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<!--(.|\n)*-->//g;
        $form{$name} = $value;
    }
}

$browser = $form{'browser'};

open (LOG, "$logpath");
@data = <LOG>;
close(LOG);

$not_found = 1;

open (LOG, ">$logpath");

foreach $line(@data) {
    chomp($line);
    ($fcount,$fbrowser)= split(/\|/,$line);
    if ($fbrowser eq $browser) {
    $not_found = 0;
    $fcount = $fcount+1;
    print LOG "$fcount|$fbrowser\n";
    }
    else {
    print "$line";
    }    
}
close(LOG);

if($not_found) {
open (LOG,">>$logpath");
print "1|$browser";
close(LOG);
}

# just prints out log to browser

open (LOG, "$logpath");
@data = <LOG>;
close(LOG);

foreach $line(@data) {
    chomp($line);
print "$line<br>";
}
close(LOG);

print "<p>$not_found";

[download]
It's is always not_found

Janitored by Arunbear - added readmore tags, as per Monastery guidelines

In reply to Need help with searching flatfile and updating it. by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.