«

I have a script where I use the print << web_page code. I am calling
functions within the print <<web_page and web_page lines.
Here is a snippet of my code:

div class=form>
Fill out the fields below and click Submit to update a proposal.<P>
<form name=prpslupd
action=\"http://$servername/cgi-bin/marketing/n/prpslupd\" method=post>
<table border=1>
<tr>
<td colspan=4>
<B>PROPOSAL INFORMATION </B>
</td>
</tr>
<tr>
<td>
Proposal<BR>Number:
</td>
<td>
$proposal[0] # this code is fine
</td>
</tr>
<tr>
<td>
Rep<BR>Number:
</td>
<td>
$proposal[2] # this code is fine
</td>
</tr>
<tr>
<td>
Proposal<BR>Type:
</td>
<td>
pop_list("proptype", $proposal[10]); # this is where the hangup is it
shows this instead of perfoming the function
</td>
</tr>
<tr>
<td>
Prospect:
</td>
<td colspan=3>
my $prspctlist=$dbh->prepare("select descr from CARE.CARE_PROSPECT
where pnum=$proposal[1]"); # this is where the hangup is it shows this
instead of perfoming the function
$prspctlist->execute(); # this is where the hangup is it shows this
instead of perfoming the function
my $descr=$prspctlist->fetchrow_array(); # this is where the hangup is
it shows this instead of perfoming the function
$descr
</td>
</tr>
<tr>
<td height=10>
</td>
</tr>
<tr>
<td>
Proposal<BR>Date:
</td>
<td>
pop_date("off", $proposal[3]); # this is where the hangup is it shows
this instead of perfoming the function


When looking at the webpage created, the function code shows, example
-- pop_date("off", $proposal[3]); shows instead of the information
the function should show. I would rather use the print << web_page
code instead of print for every line. Please advise.

Thank you in advance.

phillyfan wrote:
> I have a script where I use the print << web_page code. I am calling
> functions within the print <<web_page and web_page lines.

perldoc -q "function calls"

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

phillyfan <> wrote:

> I have a script where I use the print << web_page code.


The "<<" is part of what is called a "here document", documented
in perlop.pod.

A here document is nothing more than an alternative way
of quoting strings.


> I am calling
> functions within the print <<web_page and web_page lines.

> pop_list("proptype", $proposal[10]); # this is where the hangup is it
> shows this instead of perfoming the function


The same as if you had used some other form for your quoting:

print qq(pop_list("proptype", $proposal[10]));


> When looking at the webpage created, the function code shows, example
> -- pop_date("off", $proposal[3]);


Your example does not match your code...


> shows instead of the information
> the function should show.


Scalars and arrays are interpolated in double-quotish strings.

Function calls are not interpolated.


> I would rather use the print << web_page
> code instead of print for every line. Please advise.


perldoc -q string

How do I expand function calls in a string?


But that "solution" is too ugly to look upon, so I advise putting
the result of the function call into a variable that will interpolate:

my $popped_date = pop_list("proptype", $proposal[10]);

print <<STUFF;
...
$popped_date
...
STUFF


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

Thanks you for your replies I was not able to get the code to work as
stated but ended up figuring how to make it work. I am now stuck with
the following issue. How do I get the the array information passed
into the array in the here documnent?

#!/usr/bin/perl -w

use strict;
use POSIX;
use CGI qw(:all);
use Fcntl qw(:flock);
use DBI;

#Globals
my $servername = "scdadev.angelica.com";
my $cgi = new CGI;
my $dbuser = "pda";
my $dbpasswd = "pdaadmin";
my $dbh = DBI->connect('dbi:Oracle:dev', $dbuser, $dbpasswd,
{PrintError=>0, RaiseError=>0}) || die "Can't
connect to database $DBI::errstr";

#Main
# Assign the CGI params to variables
my $qrystrg=$cgi->param("opr");
my @Url = split(/\?/,$qrystrg);
my $opr = $Url[0];
my $mtype = substr(($Url[1]), 6);
my $oprqry=$dbh->prepare("select pltnum from pda_user where
opr='$opr'");
$oprqry->execute();
my $pltnum=$oprqry->fetchrow_array();

my $seriallist=$dbh->prepare("select meter, descr
from pda.pda_meter
where svcnum = 49

order by descr");
$seriallist->execute();
my @select = ();
while(my @rows=$seriallist->fetchrow_array)
{
push(@select,"$rows[0]","$rows[1]"); <-This is the informstion I would
like to capture and pass to the the section below in the here doc
}


print << "WEB_PAGE";
*snipped*

<script language="JavaScript">
document.write('<P>Please enter your '+meters+' Number:');
document.write('select name=pltnum>');
document.write('<option>');
while( @selected)
{
document.write('<option value=$rows[0]>$rows[1]'); <- This is where I
would like to populate the info from the array above to the array here
}
document.write('</select>');
}document.write('<P>Please enter your '+meters+' Reading:');
</script>
<input name="read" type="text" id="read" size="10" maxlength="10">
<div>
*snipped*
</form>
</body>
</html>
WEB_PAGE
exit (0);

Thank you in advance for your help.

phillyfan wrote:
> Thanks you for your replies I was not able to get the code to work as
> stated but ended up figuring how to make it work. I am now stuck with
> the following issue.

Then you should have started a new thread with a proper subject line.

> How do I get the the array information passed
> into the array in the here documnent?

<snip>

> my @select = ();
> while(my @rows=$seriallist->fetchrow_array)
> {
> push(@select,"$rows[0]","$rows[1]"); <-This is the informstion I would
> like to capture and pass to the the section below in the here doc
> }
>
> print << "WEB_PAGE";
> *snipped*
>
> <script language="JavaScript">
> document.write('<P>Please enter your '+meters+' Number:');
> document.write('select name=pltnum>');
> document.write('<option>');
> while( @selected)
> {
> document.write('<option value=$rows[0]>$rows[1]'); <- This is where I
> would like to populate the info from the array above to the array here
> }
> document.write('</select>');
> }document.write('<P>Please enter your '+meters+' Reading:');
> </script>

You can't pass variables from a server side CGI script to client side
JavaScript. If there is no particular reason to use JavaScript, you'd
better generate the whole form with Perl.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Ok I fixed it and took out JavaScript. I now have a subroutine :

sub popserial{
my $seriallist=$dbh->prepare("select meter, descr
from pda.pda_meter
where svcnum = 49

order by descr");
$seriallist->execute();
my @select = ();
while(my @rows=$seriallist->fetchrow_array)
{
push(@select, "<option value=$rows[0]>$rows[1]")
}
return(@select);
}

that i call

my @mypopulate = popserial(); <- right here
my $line = "";
my $meter = "";
my $meters = metertype();

print << "WEB_PAGE";
*snipped*
Below is where I use the information from the sub. As you can see what
I am trying to do is take the info from the sub to populate a drop down
box.

<form name="ucr">

<P>Please enter your $meters Number:
<select name=name>
<option>
while(@mypopulate)
{
<option value="$mypopulate[0]">"$mypopulate[1]"
}

</select>

I get :
P>Please enter your Electric Number:
<select name=name>
<option>
while(<option value=65>Electric Meter <option value=36>Gas 1 <option
value=80>Waste Water Meter <option value=13>Water 1 <option
value=21>Water 2)
{
<option value="<option value=65>Electric Meter">"<option value=36>Gas
1"
}

</select>

The while loop code is printed into the drop down box.

Thanks to everyones help I am closer to solving this I just need to
figure out how to keep the "while(@select" from interpolating into my
drop down box and have the drop down box only show what I am requesting
from the array. I appreciate the fact that you don't write the code for
me and point me in a direction.

phillyfan wrote:
> Ok I fixed it and took out JavaScript. I now have a subroutine :
>
> sub popserial{
> my $seriallist=$dbh->prepare("select meter, descr
> from pda.pda_meter
> where svcnum = 49
>
> order by descr");
> $seriallist->execute();
> my @select = ();
> while(my @rows=$seriallist->fetchrow_array)
> {
> push(@select, "<option value=$rows[0]>$rows[1]")
> }
> return(@select);
> }
>
> that i call
>
> my @mypopulate = popserial(); <- right here
> my $line = "";
> my $meter = "";
> my $meters = metertype();
>
> print << "WEB_PAGE";
> *snipped*
> Below is where I use the information from the sub. As you can see what
> I am trying to do is take the info from the sub to populate a drop down
> box.
>
> <form name="ucr">
>
> <P>Please enter your $meters Number:
> <select name=name>
> <option>
> while(@mypopulate)
> {
> <option value="$mypopulate[0]">"$mypopulate[1]"
> }
>
> </select>
>
> I get :
> P>Please enter your Electric Number:
> <select name=name>
> <option>
> while(<option value=65>Electric Meter <option value=36>Gas 1 <option
> value=80>Waste Water Meter <option value=13>Water 1 <option
> value=21>Water 2)
> {
> <option value="<option value=65>Electric Meter">"<option value=36>Gas
> 1"
> }
>
> </select>
>
> The while loop code is printed into the drop down box.

Yes, why did you expect otherwise?

As Tad pointed out, a here document is similar to a quoted string, and
won't execute Perl code.

Let the subroutine generate the needed HTML, and return a scalar with
the so prepared string.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

My subroutine generates html code but how to "return" it as a scalar is
what is confusing me. I now figured out that returning it as an array
was pointless because a return in a subroutine only does scalar, which
I totally was ignorant to. I read some of your answer on the returning
a scalar of an array. Can you now give me anymore information on where
to look to perform what I am trying to do?

phillyfan wrote:
> My subroutine generates html code but how to "return" it as a scalar is
> what is confusing me. I now figured out that returning it as an array
> was pointless because a return in a subroutine only does scalar, which
> I totally was ignorant to.

A subroutine returns a list of values.

perldoc perlsub

> I read some of your answer on the returning
> a scalar of an array. Can you now give me anymore information on where
> to look to perform what I am trying to do?

I was thinking of something along these lines:

sub popserial {
...
my $options;
while ( my @rows=$seriallist->fetchrow_array ) {
$options .= qq(<option value="$rows[0]">$rows[1]</option>\n);
}
return $options;
}

my $options = popserial();

print <<WEB_PAGE;
*snipped*

<select name="name">
$options
</select>

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

It works.
I must now go and find out about .= and using qq inside a
here document for my own benefit. Thank you again Mr. Hjalmarsson.