perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Alexander Hartmaier" <>
Subject Re: Re: UPD: output table with variable data
Date Fri, 21 Feb 2003 09:47:13 GMT


Thanks a lot gus!!!!!!!!!

I've rewritten the whole thing yesterday to use a hash instead of an array.

Know I use this statement to get my hashref:
$ref_interfacelist = $dbh->selectall_hashref($sth, 'ID_INTERFACE');

Later I call the following:
[- interface_list ($ref_interfacelist) -]

And finally the new 'nacadminlib.epl':

[!  use nactools; !]

[$ sub interface_list $]
  [- $ref_interfacelist = $_[0]; -]
  [$ if (scalar(keys %{$ref_interfacelist}) > 0) $]
    <tr class=heading>
    [$ foreach $key ( keys %{$ref_interfacelist} ) $]
      [- $bgcolor = ( $bgcolor eq 'light' ) ? 'dark' : 'light'; -]
      <tr class=[+ $bgcolor +]>
        <td class=[+ $ref_interfacelist->{$key}{MONITOR_TYPE_SHORT} +]><b>[+
$ref_interfacelist->{$key}{MONITOR_TYPE_SHORT} +]</b></td>
        <td><a href="view-device.epl?id_device=[+
$ref_interfacelist->{$key}{ID_DEVICE} +]" >[+
$ref_interfacelist->{$key}{DEVICENAME} +]</a></td>
        <td><a href="view-interface.epl?id_interface=[+
$ref_interfacelist->{$key}{ID_INTERFACE} +]">[+
$ref_interfacelist->{$key}{INTERFACENAME} +]</a></td>
        <td align=right><a>[+ prettyspeed ($ref_interfacelist->{$key}{SPEED})
        <td><a href="view-line.epl?id_line=[+
$ref_interfacelist->{$key}{ID_LINE} +]">[+
$ref_interfacelist->{$key}{LINEDESCRIPTION} +]</a></td>
    [$ endforeach $]
  [$ else $]
    <tr><td colspan=5><a>no interfaces</a></td></tr>
  [$ endif $]
[$ endsub $]

Do you have any more suggestions gus??? Or maybe someone else???

THX a lot again, Alex!!! (Angus Lees) am 21.02.2003 03:07:09

An: (Alexander Hartmaier)
Kopie: (Blindkopie: Alexander

Thema:    Re: UPD: output table with variable data

just some comments on perl/embperl style, none of which are
particularly critical:

At Thu, 20 Feb 2003 10:36:57 +0100, Alexander Hartmaier wrote:
> [-  use nactools; -]

this would be better done as [! use nactools !], since that will only
be executed once. when you use a [- -] block, perl will realise and
not actually reload nactools every time, but you can avoid even the
check by using [! !]

in general, put "use" and perl function declarations inside [! !]

> [$ sub interface_list $]
>   [- @interfacelist = @_; -]

this *copies* the entire array. since you don't modify @interfacelist
during this function (and so don't need a local copy), it is faster to
pass a reference to it instead (or perhaps just use @_ directly in the
following code. array ref is faster still, since perl won't have to
copy the array onto the argument stack in the first place).

ie: call function with interface_list(\@interface_list), and use
[- $ifref = $_[0] -] here. replace all $interfacelist[$n] with
$ifref->[$n] in the following code.

>   [$ if ($#interfacelist >= 0) $]

in perl, an array in scalar context returns a count of its elements. a
boolean expression (in an "if" condition, for example) is a scalar

the "perlish" way to write "if (this array has something in it)" is
simply: [$ if (@interfacelist) $]

(or [$ if (@$ifref) $] if using a reference)

>     <tr class=heading>
>       <th>Mon</th>
>       <th>Device</th>
>       <th>Interface</th>
>       <th>Speed</th>
>       <th>Line</th>
>     </tr>
>     [$ foreach $indx ( 0 .. $#interfacelist ) $]

in the following code, you don't need the actual *index*.  what you
want is a foreach loop that will iterate through each *element* of
@interfacelist.  in perl, this is usually written:
 [$ foreach $interface (@interfacelist) $]

this avoids having to repeatedly lookup the array index on each use,
so is a little faster too.

(or [$ foreach $interface (@$ifref) $] if using a reference)

>       <tr class=light>
>         <td class=[+ $interfacelist[$indx][0] +]><a>[+
> +]</a></td>

with the above foreach loop change, these expressions then become:
 [+ $interface->[0] +], [+ $interface->[1] +], etc

remembering that each element of an "array of arrays" is actually a
*reference* to the deeper array.


>       </tr>
>     [$ endforeach $]
>   [$ else $]
>     <tr><td colspan=5><a>no interfaces</a></td></tr>
>   [$ endif $]
> [$ endsub $]

> I'm coding perl and embperl for a year now but I still don't know wheter I
> should use an array/hash or a reference.
> Can somebody explain the pros/cons of each?

passing a reference avoids copying the entire array/hash.  in general,
its faster and more memory efficient to use a reference, except that
it also gets more fiddly later on.  in particular, *returning* a
reference rather than the array/hash itself leads to code like this:

  # get_interfaces() returns an array or () on error
  foreach (get_interfaces()) { ... }

  # vs. get_interfaces() returns an array ref or undef on error
  foreach (@{get_interfaces() || []}) { ... }

in general, always use an array ref if passing large amounts of data
since the copy will hurt.

for small amounts of data, its often easier on the programmer to use a
simple array/hash directly - you'll have to balance that against the
run-time cost.

 - Gus

To unsubscribe, e-mail:
For additional commands, e-mail:

To unsubscribe, e-mail:
For additional commands, e-mail:

View raw message