in reply to Re^2: insert CGI script in single quotes.
in thread insert CGI script in single quotes. [SOLVED]

What do you mean by "single quotes function"? It will help us if you can post the problematic loop with the function, ideally together with the data you want to pass to it. Something like the following:

#!perl -w
use strict;

# This would come from the database
my @data = (
    ['Hello','World',1,2,3,4,5],
    ['Hello','Pakeidoprek,6,7,8,9,0],
);

while( my $item = shift @data) {
    ... problematic part ...
};

[download]

Replies are listed 'Best First'.
Re^4: insert CGI script in single quotes.
by pakeidoprek (Novice) on Apr 26, 2016 at 17:44 UTC

    i have parameter content in my modules, and i want to use it in my web page to insert cgi script. the sample of codes like this : 

    #subroutines
sub content;

#parameter in modules template
my ($self,$content=,) = @_;

#scalar placing content
my $html = '';

#body content
$html .='<div>';
$html .=''.$content.'';
$html .='</div>';
#

    [download]
    # i used the parameter in my web content with single quotes
..
print MODULES::template->content('XXX');
..

    [download]

    the XXX is this : 

    print <<EOF;

<thead class="flip-content">
<tr>
<th width="20%"> Students id </th>
<th class="numeric"> First Name </th>
<th class="numeric"> Last Name </th>
<th class="numeric"> Date Of Birth </th>
<th class="numeric"> Year In </th>
<th class="numeric"> Password </th>
<th class="numeric"> Email </th>
<th class="numeric"> Telepon </th>
</tr>
</thead>

EOF
while (my @row_array = $sth->fetchrow_array()) {
print <<EOF;
<tbody>
   <tr>
     <td> $row_array[0] </td>
     <td> $row_array[1] </td>
     <td> $row_array[2] </td>
     <td> $row_array[3] </td>
     <td> $row_array[4] </td>
     <td> $row_array[5] </td>
     <td> $row_array[6] </td>
     <td> $row_array[7] </td>
   </tr>
</tbody>
EOF
}
print"</table>";

    [download]

[reply]
[d/l]
[select]

      Then don't print the table, return it:

      my $result = <<EOF;
print <<EOF;

<thead class="flip-content">
<tr>
<th width="20%"> Students id </th>
<th class="numeric"> First Name </th>
<th class="numeric"> Last Name </th>
<th class="numeric"> Date Of Birth </th>
<th class="numeric"> Year In </th>
<th class="numeric"> Password </th>
<th class="numeric"> Email </th>
<th class="numeric"> Telepon </th>
</tr>
</thead>

EOF

while (my @row_array = $sth->fetchrow_array()) {
$result .= <<EOF;
<tbody>
   <tr>
     <td> $row_array[0] </td>
     <td> $row_array[1] </td>
     <td> $row_array[2] </td>
     <td> $row_array[3] </td>
     <td> $row_array[4] </td>
     <td> $row_array[5] </td>
     <td> $row_array[6] </td>
     <td> $row_array[7] </td>
   </tr>
</tbody>
EOF
}
$result .= "</table>";   
return $result

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom