Dear monks, i have made the corrections as suggested in the previous threads. However, iam still encountering the following error

Missing right curly or square bracket at jsdisp.cgi line 178, at end of line syntax error at jsdisp.cgi line 178, at EOF
. Execution of jsdisp.cgi aborted due to compilation errors.

I have numbered the left curly brackets in the code with (#1...#12) and the right curly brackets with (#1'...#12').
I request once again for the wisdom of the monks.

thanking in advance , jagan

. code as follows

#!/usr/bin/perl

use DBI ;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowsers fatalsToBrowser);

my($username)     = "someuser";
my($password)     = "knownuser";
my($dbh)          = DBI->connect ("DBI:mysql:hf", $username , $passwor
+d);
my($empName)      = param("empName");
my($year)         = param("year");
my($mon)          = param("mon");
my($count)        = 0;
my($sth , @arr);
DBI -> trace(4 , 'dbitrace');

if($year && $mon)
{ # 1
        my($empName)      = param("empName");
        my($year)         = param("year");
        my($mon)          = param("mon");


        if($empName)
        { #2
                my($sth)     = $dbh->prepare("select * from jobStat wh
+ere cdate> '$year$mon00' AND cdate<'$year($mon++)00' AND empName='$em
+pNAme'");
                $sth->execute();

                @arr         = $sth->fetchrow_array()
                if(defined@arr)
                { #3
                        while(@arr=$sth->fetchrow_array())
                        { #4
                                $count++;
                        } #4'

          print <<end_of_html;
                        Content-type: text/html

                        <html><head><title> Job Status Display Page </
+title></head>
                        <body> <readmore>
                        <TABLE BORDER=1 HEIGHT=8%><TR>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>C
+urrent Date</TD>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>N
+ame</TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>J
+ob Allocated</TD>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>A
+llocation Date</TD>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>T
+arget Date</TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>J
+ob Under Execution</TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>J
+ob Pending </TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>R
+emark </TD>
                        </TR></table></readmore></body></html>
end_of_html

                        while(@arr=$sth->fetchrow_array())
                        { #5
                                print <<end_of_html;
                                Content-type: text/html

                                <html><head></head> <body><readmore>
                                <TABLE BORDER=0 HEIGHT=8%><TR>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[5]</TD>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[8]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[1]</TD>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[6]</TD>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[7]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[2]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[3]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[4]</TD>
                                </TR> </table> </readmore></body> </ht
+ml>
end_of_html

                        } # 5'   end of while(@arr=$sth->fetchrow_arra
+y())
                } # 3' end of if(defined@arr)

   else
                { #6
                        print <<end_of_html;
                        Content-type: text/html

                        <html><head><title> Job Status Display Page</t
+itle></head> <body>
                        No Record found for $empName for the given dat
+es.<p>

                        <a href="/jsdisp.html" > Back </a>
                        </body></html>
end_of_html

                } #6'  end of else for if(defined@arr)

        } #2'  if $empName has a value

        else #7  if empName is null , process the query for year and m
+onth
        {
                my($sth)  = $dbh->prepare("select * from jobStat where
+ cdate> '$year$mon00' AND cdate<'$year($mon++)00'");
                $sth->execute();

                @arr         = $sth->fetchrow_array()
                if(defined@arr)
                { #8

                        while(@arr=$sth->fetchrow_array())
                        { #9
                                $count++;
                        } #9'

     print <<end_of_html;
                        Content-type: text/html

                        <html><head><title> Job Status Display Page </
+title></head>
                        <body><readmore>
                        <TABLE BORDER=1 HEIGHT=8%><TR>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>C
+urrent Date</TD>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>N
+ame</TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>J
+ob Allocated</TD>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>A
+llocation Date</TD>
                        <TD WIDTH=10% ALIGN='middle' VALIGN='center'>T
+arget Date</TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>J
+ob Under Execution</TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>J
+ob Pending </TD>
                        <TD WIDTH=15% ALIGN='middle' VALIGN='center'>R
+emark </TD>
                        </TR> </table>
                        </body></readmore></html>
end_of_html

                        while(@arr=$sth->fetchrow_array())
                        { #10
                                # 1) id 2) ja 3) je 4)jp 5) remark 6) 
+cdate 7) adate 8) tdate 9) empName

                                print <<end_of_html;
                                Content-type: text/html

                                <html><head></head> <body>
                                <readmore>
                <TABLE BORDER=0 HEIGHT=8%><TR>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[5]</TD>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[8]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[1]</TD>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[6]</TD>
                                <TD WIDTH=10% ALIGN='middle' VALIGN='c
+enter'>$arr[7]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[2]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[3]</TD>
                                <TD WIDTH=15% ALIGN='middle' VALIGN='c
+enter'>$arr[4]</TD>
                                </TR> </table></readmore> </body> </ht
+ml>
end_of_html

                         } #10'    end of while(@arr=$sth->fetchrow_ar
+ray())
                        } # 8'     end of if(defined@arr)


      else #else for 2nd if(defined(@arr))
                        { #11
                                print <<end_of_html;
                                Content-type: text/html

                                <html><head><title> Job Status Display
+ Page</title></head> <body>
                                No Record found for the given dates.<p
+>

                                <a href="/jsdisp.html" > Back </a>
                                </body></html>
end_of_html

                        } # 11'  end of else for if(defined@arr)

        } #7' end of else for if($empName)

}  #1'  end of if($year && $mon)



else #if month or year is not given
{ #12

        print <<end_of_html;
        Content-type: text/html
        <html><head><title> Job Status Display Page</title></head> <bo
+dy>
        Select year and month. <p>
        <a href="/jsdisp.html" > Back </a>
        </body></html>
end_of_html

} #12'

[download]

READMORE tags added by Arunbear

In reply to Missing right curly or square bracket at jsdisp.cgi line 178, at end of line syntax error at jsdisp.cgi line 178, at EOF by gvs_jagan

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.