Dear monks
Im trying to read all the lines of a file.
While not eof,check a pattern if some values exist in the file.
If exist print something, else get out of while and save_db()
I have wrote the following code:
sub duplicate_record {
   
   my $html_title = 'Duplicate records have been found!';
   die("Cannot open file for matching\n") unless open (DBFILE, "dbfile
+.pdb");
   while (<DBFILE> and $found == 0) { #while not eof file and pattern 
+not matched ($found == 0)
      foreach $record (<DBFILE>) { #foreach line ($record)
         @pattern_check = split(/,/, $record); #spit line where you se
+e comma (,) ($record)
         if ($name eq $pattern_check[0] and $surename eq $pattern_chec
+k[1]) { #check if duplicate is available
            print $cgi-> start_html("$html_title").
               $cgi-> h1('Duplicate records:').
               $cgi-> p("$name $surename $phone already exists.\nGo ba
+ck and fill something else than that!").
               $cgi-> end_html;
               $found = 1;
         }#if
      }#foreach
   }#while
   
   close (DBFILE);

   if ($found == 0) {
      save_db();
   }#if 
}# sub duplicate_record

[download]
The problem is that the pattern matching don't work and i can't figure out what is wrong.
Antonis

edited: Mon Jan 20 17:39:02 2003 by jeffa - tightened up lhs (tabs to spaces, etc)

In reply to cgi programming problem with perl by atnonis

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.