http://www.perlmonks.org?node_id=1026897


in reply to Re^2: Accessing this array ref.
in thread Accessing this array ref.

I don't understand your question. If the data is sorted as Loops said, his solution should work for you.

Replies are listed 'Best First'.
Re^4: Accessing this array ref.
by Anonymous Monk on Apr 03, 2013 at 20:05 UTC
    I am sorry, is that at the end of processing I have to pass the values as this: 
    $template->param('data', $results);

    [download]
[reply]
[d/l]
      my $results;
my $type;
for my $entry (@$VAR1) {
        if ( $entry->{type} ne $type ) {
                $type = $entry->{type};
                push @$results, "$type\n";
        }
        push @$results,  "\t$entry->{name} - $entry->{reference}\n";
}

      [download]
      Then this should do it.
[reply]
[d/l]
        That was my post above and it occurred to me that you probably want $results as a string to be printed in a web page. If so, I might suggest something like this. 
        my $results = "Results: ";
my $type;
for my $entry (@$VAR1) {
        if ( $entry->{type} ne $type ) {
                $type = $entry->{type};
                $results .= "$type<br />";
        }
        $results .= "&nbsp;&nbsp;&nbsp;$entry->{name} - $entry->{refer
+ence}<br />";
}

        [download]

        Update: Now that I've thought about it, it seems you are using HTML::Template or something like it to display your data. And I'm not familiar with that but you probably do want to pass it a structure and not a string.

[reply]
[d/l]

In Section Seekers of Perl Wisdom