Hello,
>
> I am importing an EmbPerl file into another (foo.epl) via
> [- Execute ({ inputfile => 'bar.epl', import=>1 }) -]
>
> foo.epl contains a set of subroutines. The main sub in bar.epl is called
in
> foo.epl. This sub then calls other subs within bar.epl
>
> The problem I am having is passing an reading an array of parameters
between
> the subs with bar.epl
>
> In the main sub (bar.epl):
>
> $html_body = parse_body($html_body, 'HTML');
>
If the sub perse_body is an Embperl sub (declared with [$sub $]) it can
(currently) _not_ return a value.
> in sub parse_body(also bar.epl):
>
> my $p = shift;
> $html_bd = $p->[0];
> $method = $p->[1];
>
So $html_body is an array reference ?
if you say
print OUT ref ($html_body) ;
before
parse_body($html_body, 'HTML');
you should see the word ARRAY in the output , do you?
If yes and $html_body contains the correct values it should work to pass
values in, but (in case it's an Embperl sub) because you assign the return
value of the parse_body to $html_body it will be set to zero after the sub
call.
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925151
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
