Return-Path: 
 <embperl-return-5370-apmail-perl-embperl-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-embperl-archive@perl.apache.org
Received: (qmail 33681 invoked by uid 500); 20 Feb 2003 00:41:55 -0000
Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:embperl-help@perl.apache.org>
list-unsubscribe: <mailto:embperl-unsubscribe@perl.apache.org>
list-post: <mailto:embperl@perl.apache.org>
Delivered-To: mailing list embperl@perl.apache.org
Received: (qmail 33668 invoked from network); 20 Feb 2003 00:41:54 -0000
Date: Wed, 19 Feb 2003 18:41:51 -0600 (CST)
From: Ed Grimm <edgrimm@asgard.rsc.raytheon.com>
Reply-To: Ed Grimm <eg@raytheon.com>
To: Alexander Hartmaier <Alexander.Hartmaier@t-systems.at>
cc: embperl@perl.apache.org
Subject: Re: UPD: output table with variable data
In-Reply-To: <C1256CD2.004E507E.00@viecos3.srv.dsh.at>
Message-ID: <Pine.GSO.4.44.0302191839590.7060-100000@asgard.rsc.raytheon.com>
References: <C1256CD2.004E507E.00@viecos3.srv.dsh.at>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

If you're going to call the sub in a [+ +] block, you should have the
result returned, not printed.  Note that, as others have mentioned, this
is not the standard embperl way of doing things, but it's an option.

> sub interface_list (@interfacelist)
> {
    my $res = "
>   <tr class=heading>
>     <td>Mon</td>
>     <td>Device</td>
>     <td>Interface</td>
>     <td>Speed</td>
>     <td>Line</td>
>   </tr>
>   ");
>   for $indx ( 0 .. $#interfacelist )
>   {
      $res .= "
>     <tr class=light>
>       <td class= $interfacelist[$indx][0] ><a> $interfacelist[$indx][1]
> </a></td>
>       <td><a href='view-device.epl?id_device=$interfacelist[$indx][2] '>
> $interfacelist[$indx][3] </a></td>
>       <td><a href='view-interface.epl?id_interface= $interfacelist[$indx][4] '>
> $interfacelist[$indx][5] </a></td>
>       <td><a href='view-line.epl?id_line= $interfacelist[$indx][6] '>
> $interfacelist[$indx][7] </a></td>
>     </tr>
>     ");
>   };
    return res;
> }

Ed

On Wed, 19 Feb 2003, Alexander Hartmaier wrote:

>
>
> Hi again!
>
> I made a mistake at the variable passing ;-)
> Now this works:
>
> sub interface_list (@)
> {
>   my @interfacelist = $_[0];
> .
> .
> .
> }
>
> But it's still outputted at the end of the page instead of where I call the sub.
> I also don't like the print statements.
>
> Any Idea?
>
> THX Alex
>
> #####################
>
> Hi list!
>
> I have to output a html table in some of my embperl pages which always looks the
> same but the data is slightly different.
> My approch was to write a small sub which takes the array with the data and
> looks like this:
>
> ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
> sub interface_list (@interfacelist)
> {
>   print ("
>   <tr class=heading>
>     <td>Mon</td>
>     <td>Device</td>
>     <td>Interface</td>
>     <td>Speed</td>
>     <td>Line</td>
>   </tr>
>   ");
>   for $indx ( 0 .. $#interfacelist )
>   {
>     print ("
>     <tr class=light>
>       <td class= $interfacelist[$indx][0] ><a> $interfacelist[$indx][1]
> </a></td>
>       <td><a href='view-device.epl?id_device=$interfacelist[$indx][2] '>
> $interfacelist[$indx][3] </a></td>
>       <td><a href='view-interface.epl?id_interface= $interfacelist[$indx][4] '>
> $interfacelist[$indx][5] </a></td>
>       <td><a href='view-line.epl?id_line= $interfacelist[$indx][6] '>
> $interfacelist[$indx][7] </a></td>
>     </tr>
>     ");
>   };
> }
> ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
>
> My problem is that when I call the sub with '[+ interface_list (@interfacegrp)
> +]' the lines are appended to the end of the output instead of the line where I
> call it!
> Furthermore the array @interfacelist is empty...
>
> I think there is a better way to handle this problem!
> Gerald or anybody else has an idea?
>
> THX Alex
>
>
>
>
> ---------------------------------------------------------------------
> 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