hinkle has asked for the wisdom of the Perl Monks concerning the following question:

I'm still new to the perl/gtk2 bindings and have had a lot of trouble finding good information on some things. Right now I'm working with perl/gtk2 simplelist and have no problems creating the list, or pulling the selected line from it. What i'm having problems with is figuring out how to grab all entries in the list (into an array maybe?). Has anyone worked with simplelist and would know how to call all entries in the list? I'm not worried if the output isn't very tidy, I just need to find a way to grab all info out of the list.

Replies are listed 'Best First'.
Re: perl/gtk2 simplelist
by The Mad Hatter (Priest) on Dec 06, 2004 at 20:57 UTC 
        @{$slist->{data}}

    [download]
    There might be other, cleaner ways, but that's what I found when I dug around in some older code of mine.
[reply]
[d/l]
      I've used the @{$slist->{data}} command before. My problem is finding ways to get all the info out of it in something that I can parse. Are you breaking this up in any way? I've tried simple things like foreach $line (@{$slist->{data}}) { } to see if i could parse it like a normal array but that's a no go.
[reply]

        (Minor nit: it's not a command. It's accessing an array reference. Read up on Perl data structures.)

        $slist->{data} is an array reference of other array references (the "rows" in the list) each item of which is a piece of data (the "columns" in each row). Fiddle about with this: 

        for my $row (@{$slist->{data}}) {
    print "Row:\n";

    for my $col (@{$row}) {
        print "    $col\n";
    }
}

        [download]
        or use Data::Dumper to visualize the data structure in a more Perlish way: 
        use Data::Dumper;
print Dumper($slist->{data}), "\n";

        [download]

        (Untested code.)

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom