Mailing List Archive: RE: $cnt doesn't work for me as advertised (fwd)

RE: $cnt doesn't work for me as advertised (fwd)

Sep 26, 2007, 6:05 AM

Post #1 of 3 (2636 views)

I'm wondering if anyone on this list would have any knowledge regarding
the following Embperl question?

Is anyone aware of a bug I may have encountered?

Thanks.

---------- Forwarded message ----------
Date: Wed, 26 Sep 2007 08:06:01 -0400 (EDT)
From: Todd White <tmwhite@merit.edu>
To: embperl@perl.apache.org
Subject: RE: $cnt doesn't work for me as advertised

Is anyone successfully using the $cnt and $maxcol variables?

On Tue, 25 Sep 2007, Todd White wrote:

> I'm expecting three rows of three columns, like so:
>
> A B C
> D E F
> G
>
> All I am getting is one row of one column.
>
> A
>
>
> --Todd
>
>
> On Tue, 25 Sep 2007, Tom Briles wrote:
>
> > Looks correct to me. What are you expecting?
> >
> > - Tom
> >
> > > -----Original Message-----
> > > From: Todd White [mailto:tmwhite@merit.edu]
> > > Sent: Tuesday, September 25, 2007 3:50 PM
> > > To: embperl@perl.apache.org
> > > Subject: $cnt doesn't work for me as advertised
> > >
> > >
> > > The variable $cnt doesn't seem to work for me. Am I doing something
> > > wrong?
> > >
> > > Here's my code:
> > > ##########################################################
> > > <html>
> > > <head>
> > > <title>$cnt test</title>
> > > </head>
> > > <body>
> > >
> > > [- $maxcol = 3; -]
> > > [+ $maxcol +]<p>
> > >
> > > [.- @test_arr = ('A', 'B', 'C', 'D', 'E', 'F', 'G'); -]
> > >
> > > <table>
> > > <tr>
> > > <td>[+ $test_arr[$cnt] +]</td>
> > > </tr>
> > > </table>
> > >
> > > </body>
> > > </html>
> > > ###########################################################
> > >
> > > You can run this here:
> > >
> > > http://www.merit.edu/~tmwhite/test/cnt.epl
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > > For additional commands, e-mail: embperl-help@perl.apache.org
> > >
> > >
> >
> >
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > For additional commands, e-mail: embperl-help@perl.apache.org
> >
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

RE: $cnt doesn't work for me as advertised (fwd) [ In reply to ]

spomerg at cwu

Sep 26, 2007, 8:40 AM

Post #2 of 3 (2443 views)

Permalink

I think you have an excellent point, Todd.

I first tried out your code. I produced the same output. So I went to the Embperl site to look up the $cnt variable since I've never used it before with dynamic tables, only the $row and $col ones. The definition states:

"Contains the number of table cells displayed so far. (See HTML tag table.)"

Seems to me, too, that by definition of $cnt your code should have had the intended 3 rows/columns. I didn't see any actual examples of $cnt on the website, but found one in the examples that came with the installation:

[- @k = keys %ENV -]

[-$maxcol=3-]
<table>
<tr>
<td>[+ $i=$cnt +] </td>
<td>[+ $k[$cnt] +] </td>
<td>[+ $ENV{$k[$i]} +] </td>
</tr>
</table>

Which only outputs:

SCRIPT_NAME /pages/test.epl

And looking at the source of the output:

<table>
<tr>
<td> </td>
<td>SCRIPT_NAME </td>
<td>/pages/test.epl </td>
</tr>
</table>

So I too am confused. Could someone further define $cnt and/or explain why it doesn't work as intended?

Gavin Spomer
Systems Programmer
Brooks Library
Central Washington University

>>> Todd White <tmwhite@merit.edu> 09/26/07 6:05 AM >>>
I'm wondering if anyone on this list would have any knowledge regarding
the following Embperl question?

Is anyone aware of a bug I may have encountered?

Thanks.

---------- Forwarded message ----------
Date: Wed, 26 Sep 2007 08:06:01 -0400 (EDT)
From: Todd White <tmwhite@merit.edu>
To: embperl@perl.apache.org
Subject: RE: $cnt doesn't work for me as advertised

Is anyone successfully using the $cnt and $maxcol variables?

On Tue, 25 Sep 2007, Todd White wrote:

> I'm expecting three rows of three columns, like so:
>
> A B C
> D E F
> G
>
> All I am getting is one row of one column.
>
> A
>
>
> --Todd
>
>
> On Tue, 25 Sep 2007, Tom Briles wrote:
>
> > Looks correct to me. What are you expecting?
> >
> > - Tom
> >
> > > -----Original Message-----
> > > From: Todd White [mailto:tmwhite@merit.edu]
> > > Sent: Tuesday, September 25, 2007 3:50 PM
> > > To: embperl@perl.apache.org
> > > Subject: $cnt doesn't work for me as advertised
> > >
> > >
> > > The variable $cnt doesn't seem to work for me. Am I doing something
> > > wrong?
> > >
> > > Here's my code:
> > > ##########################################################
> > > <html>
> > > <head>
> > > <title>$cnt test</title>
> > > </head>
> > > <body>
> > >
> > > [- $maxcol = 3; -]
> > > [+ $maxcol +]<p>
> > >
> > > [.- @test_arr = ('A', 'B', 'C', 'D', 'E', 'F', 'G'); -]
> > >
> > > <table>
> > > <tr>
> > > <td>[+ $test_arr[$cnt] +]</td>
> > > </tr>
> > > </table>
> > >
> > > </body>
> > > </html>
> > > ###########################################################
> > >
> > > You can run this here:
> > >
> > > http://www.merit.edu/~tmwhite/test/cnt.epl
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > > For additional commands, e-mail: embperl-help@perl.apache.org
> > >
> > >
> >
> >
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > For additional commands, e-mail: embperl-help@perl.apache.org
> >
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

RE: $cnt doesn't work for me as advertised (fwd) [ In reply to ]

tmwhite at merit

Sep 26, 2007, 11:48 AM

Post #3 of 3 (2437 views)

Permalink

I too have taken a closer examination of the eg/x/table.htm example file
that comes with the distribution and I am almost certain now that a bug in
this version (2.2.0) has been found. It seems that $cnt simply isn't
being set.

Here is the snippet of code relevant to the $cnt variable from the example
file:

###################################################################
<hr><h4>Using $cnt and $maxcol (three values per row)</h4>

[-$maxcol=3-]
<table>
<tr>
<td>[+ $i=$cnt +] </td>
<td>[+ $k[$cnt] +] </td>
<td>[+ $ENV{$k[$i]} +] </td>
</tr>
</table>
###################################################################

The actual output, as I am seeing it, is:

SCRIPT_NAME /table.htm

If $cnt were set as I believe it's supposed to be, the first cell of the
table output would be 0 (zero), not empty (NULL).

--Todd

On Wed, 26 Sep 2007, Gavin Spomer wrote:

> I think you have an excellent point, Todd.
>
> I first tried out your code. I produced the same output. So I went to the Embperl site to look up the $cnt variable since I've never used it before with dynamic tables, only the $row and $col ones. The definition states:
>
> "Contains the number of table cells displayed so far. (See HTML tag table.)"
>
> Seems to me, too, that by definition of $cnt your code should have had the intended 3 rows/columns. I didn't see any actual examples of $cnt on the website, but found one in the examples that came with the installation:
>
> [- @k = keys %ENV -]
>
> [-$maxcol=3-]
> <table>
> <tr>
> <td>[+ $i=$cnt +] </td>
> <td>[+ $k[$cnt] +] </td>
> <td>[+ $ENV{$k[$i]} +] </td>
> </tr>
> </table>
>
> Which only outputs:
>
> SCRIPT_NAME /pages/test.epl
>
> And looking at the source of the output:
>
> <table>
> <tr>
> <td> </td>
> <td>SCRIPT_NAME </td>
> <td>/pages/test.epl </td>
> </tr>
> </table>
>
> So I too am confused. Could someone further define $cnt and/or explain why it doesn't work as intended?
>
> Gavin Spomer
> Systems Programmer
> Brooks Library
> Central Washington University
>
> >>> Todd White <tmwhite@merit.edu> 09/26/07 6:05 AM >>>
> I'm wondering if anyone on this list would have any knowledge regarding
> the following Embperl question?
>
> Is anyone aware of a bug I may have encountered?
>
> Thanks.
>
>
> ---------- Forwarded message ----------
> Date: Wed, 26 Sep 2007 08:06:01 -0400 (EDT)
> From: Todd White <tmwhite@merit.edu>
> To: embperl@perl.apache.org
> Subject: RE: $cnt doesn't work for me as advertised
>
> Is anyone successfully using the $cnt and $maxcol variables?
>
>
>
> On Tue, 25 Sep 2007, Todd White wrote:
>
> > I'm expecting three rows of three columns, like so:
> >
> > A B C
> > D E F
> > G
> >
> > All I am getting is one row of one column.
> >
> > A
> >
> >
> > --Todd
> >
> >
> > On Tue, 25 Sep 2007, Tom Briles wrote:
> >
> > > Looks correct to me. What are you expecting?
> > >
> > > - Tom
> > >
> > > > -----Original Message-----
> > > > From: Todd White [mailto:tmwhite@merit.edu]
> > > > Sent: Tuesday, September 25, 2007 3:50 PM
> > > > To: embperl@perl.apache.org
> > > > Subject: $cnt doesn't work for me as advertised
> > > >
> > > >
> > > > The variable $cnt doesn't seem to work for me. Am I doing something
> > > > wrong?
> > > >
> > > > Here's my code:
> > > > ##########################################################
> > > > <html>
> > > > <head>
> > > > <title>$cnt test</title>
> > > > </head>
> > > > <body>
> > > >
> > > > [- $maxcol = 3; -]
> > > > [+ $maxcol +]<p>
> > > >
> > > > [.- @test_arr = ('A', 'B', 'C', 'D', 'E', 'F', 'G'); -]
> > > >
> > > > <table>
> > > > <tr>
> > > > <td>[+ $test_arr[$cnt] +]</td>
> > > > </tr>
> > > > </table>
> > > >
> > > > </body>
> > > > </html>
> > > > ###########################################################
> > > >
> > > > You can run this here:
> > > >
> > > > http://www.merit.edu/~tmwhite/test/cnt.epl
> > > >
> > > > ---------------------------------------------------------------------
> > > > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > > > For additional commands, e-mail: embperl-help@perl.apache.org
> > > >
> > > >
> > >
> > >
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > > For additional commands, e-mail: embperl-help@perl.apache.org
> > >
> > >
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > For additional commands, e-mail: embperl-help@perl.apache.org
> >
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org