PERL : Cant find string terminator ..

Discussion in 'Perl Misc' started by TP, Feb 11, 2004.

  1. TP

    TP Guest

    hi all

    i get the message Cand find String Terminator "HTML_RESPONSE" anywhere
    before line .... everytime i try to compile the script

    can anyone tell me what is wrong with it ?


    #!/usr/bin/perl

    use CGI;
    my($query);
    $query = new CGI;


    ##Configuration section

    $dbpath = 'db.txt';

    $searchwhat = $query->param("searchwhat");
    $searchkey = $query->param ("searchkey");

    ##end of configuration

    #Begin search section

    open (DB, "<$dbpath") or die ("$!\n");

    while (<DB>){
    if ($searchwhat eq "all"){
    if (/$searchkey/i){
    push @matches, $_
    };
    }

    elsif ($searchwhat eq "mtype"){
    ($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
    if ($mtype =~ /$searchkey/i){
    push @matches, $_
    };
    }

    elsif ($searchwhat eq "mname"){
    ($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
    if ($mname =~ /$searchkey/i){
    push @matches, $_
    };
    }

    elsif ($searchwhat eq "mactor"){
    ($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
    if ($mactor =~ /$searchkey/i){
    push @matches, $_
    };
    }

    elsif ($searchwhat eq "mactress"){
    ($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
    if ($mactress =~ /$searchkey/i){
    push @matches, $_
    };
    }

    elsif ($searchwhat eq "mdes"){
    ($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
    if ($mdes =~ /$searchkey/i){
    push @matches, $_
    };
    }
    close(DB);

    #end of search section

    #start of response page

    $nummatches = @matches;
    $searchkey = $query->param("searchkey");


    print<<HTML_RESPOSE

    Content-type: text/html
    <HTML>
    <BODY>

    <h2>Your search for $searchkey return $nummatches matches.</h2>


    foreach $matchedEntry (@matches){
    print "$matchedEntry\n";
    }

    </BODY>
    </HTML>
    HTML_RESPONSE
     
    TP, Feb 11, 2004
    #1
    1. Advertising

  2. TP

    Bob Walton Guest

    TP wrote:

    ....
    > i get the message Cand find String Terminator "HTML_RESPONSE" anywhere
    > before line .... everytime i try to compile the script
    >
    > can anyone tell me what is wrong with it ?



    Yes. You spelled the string two different ways.


    ....


    --
    Bob Walton
    Email: http://bwalton.com/cgi-bin/emailbob.pl
     
    Bob Walton, Feb 11, 2004
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. David Hirschfield

    Help: asyncore/asynchat and terminator string

    David Hirschfield, Jan 16, 2007, in forum: Python
    Replies:
    0
    Views:
    322
    David Hirschfield
    Jan 16, 2007
  2. Nagaraj
    Replies:
    1
    Views:
    870
    Lionel B
    Mar 1, 2007
  3. TP
    Replies:
    4
    Views:
    152
    Tad McClellan
    Feb 14, 2004
  4. Replies:
    3
    Views:
    173
    Joe Smith
    Jul 17, 2005
  5. Trudge

    Can't find string terminator ...

    Trudge, Oct 23, 2006, in forum: Perl Misc
    Replies:
    21
    Views:
    1,290
    Henry Law
    Oct 26, 2006
Loading...

Share This Page