Device | % foreach my $col (sort keys %$where){ % my $colview = $col; % $colview =~ s/^[^.]+\.//; % $colview = $colview eq 'count' ? 'Number of Active<%$colview%> | % }
---|---|
<% $dns %> | <%perl> foreach my $col (sort keys %$where){ # Trim off table name for column $col =~ s/^[^.]+\.//; my $val = $result->{$col}; # Column Specfic stuff if ($col eq 'remote_ip') { $val = "$val"; } %perl><%$val%> | % }