'; } else { print "

"; } print $spacer x ($node->getDepth()); print '

' if ($node->getDepth > -1); print $node->getNodeValue(); print '

'; print ''; } [% END %] ---end code--- From merlyn at stonehenge.com Fri Mar 17 07:21:23 2006 From: merlyn at stonehenge.com (Randal L. Schwartz) Date: 17 Mar 2006 07:21:23 -0800 Subject: [San-Diego-pm] Recurse through trees In-Reply-To: <28e00a750603170656k683729acp4efb5c207fd4eae3@mail.gmail.com> References: <441079bd0603152204h1caa3fefj7249e4831967b0e4@mail.gmail.com> <28e00a750603170656k683729acp4efb5c207fd4eae3@mail.gmail.com> Message-ID: <86wtetyu4s.fsf@blue.stonehenge.com> >>>>> "Emile" == Emile Aben writes: Emile> ---code--- Emile> [% tree = filelocation.logical_tree('string') %] Emile> [% PERL %] Emile> my $tree = $stash->get('tree'); Emile> html_node( $tree, ' '); Emile> $tree->traverse(sub{ Emile> my($node)=@_; Emile> html_node( $node, ' '); Emile> }); Emile> sub html_node { Emile> my ($node,$spacer) = @_; Emile> if ($node->isLeaf) { Emile> print '

'; Emile> } else { Emile> print "

"; Emile> } Emile> print $spacer x ($node->getDepth()); Emile> print '

' if Emile> ($node->getDepth > -1); Emile> print $node->getNodeValue(); Emile> print '

'; Emile> print ''; Emile> } Emile> [% END %] [% spacer = " " %] [% MACRO html_node_visitor(node) BLOCK %] [% IF node.isLeaf %] ... etc etc [% ELSE %] ... etc etc [% END %] [% GET spacer FOR 1..node.getDepth %] [% node.getNodeValue %] etc etc [% END %] [% tree.traverse(html_node_visitor) %] A "MACRO" is a code block! -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! From emileaben at gmail.com Fri Mar 17 15:30:01 2006 From: emileaben at gmail.com (Emile Aben) Date: Fri, 17 Mar 2006 15:30:01 -0800 Subject: [San-Diego-pm] Recurse through trees In-Reply-To: <86wtetyu4s.fsf@blue.stonehenge.com> References: <441079bd0603152204h1caa3fefj7249e4831967b0e4@mail.gmail.com> <28e00a750603170656k683729acp4efb5c207fd4eae3@mail.gmail.com> <86wtetyu4s.fsf@blue.stonehenge.com> Message-ID: <28e00a750603171530x2488a5d8hda993cb0c663ef7c@mail.gmail.com> > [% spacer = " " %] > [% MACRO html_node_visitor(node) BLOCK %] > [% IF node.isLeaf %] > ... etc etc > [% ELSE %] > ... etc etc > [% END %] > [% GET spacer FOR 1..node.getDepth %] > [% node.getNodeValue %] etc etc > [% END %] > [% tree.traverse(html_node_visitor) %] > > A "MACRO" is a code block! Thanks, that looks a lot better then the code I had, I now have this code: [% tree = filelocation.logical_tree('string') %] [% spacer = ' ' %] [% MACRO html_node_visitor(node) BLOCK %] [% IF node.isLeaf %]

[% ELSE %]

[% END %] [% spacer.repeat(node.getDepth) %] [% IF node.getDepth > -1 %]

[% END %] [% node.getNodeValue %]

[% END %] [% html_node_visitor(tree) %] [% tree.traverse( html_node_visitor ) %] Unfortunately I still have a little problem in that the template toolkit 'stash' (both the regular, and the experimental Template::Stash::Context) apparently does some stuff to the code block, so Tree::Simple doesn't recognize 'html_node_visitor' as a code block, after defining the macro it works fine like this: [% html_node_visitor(tree) %] but dies pm me on: [% tree.traverse( html_node_visitor ) %] (die msg: undef error - Incorrect Object Type : traversal function is not a function at /usr/local/lib/perl5/site_perl/5.8.7/Tree/Simple.pm line 471. ) Doing a [% html_node_visitor.ref %] prints 'CODE' (which is what I expected). but datadumping $stash->get('html_node_visitor') finds this is an 'undef'? Looked a little at the guts of Template::Toolkit, but can't seem to wrap my brain around the problem right now. [% html_node_visitor(tree) %] is translated to: print $stash->get(['html_node_visitor', [ $stash->get('tree') ]]); while the nonworking: [% tree.traverse( html_node_visitor ) %] is translated to: print $stash->get(['tree', 0, 'traverse', [ $stash->get('html_node_visitor') ]]); Before I dig deeper into the guts of Template::Toolkit I'd like to know if anybody has any idea what I'm doing wrong (or template toolkit is doing wrong, although that is less likely)? emile From merlyn at stonehenge.com Fri Mar 17 15:33:08 2006 From: merlyn at stonehenge.com (Randal L. Schwartz) Date: 17 Mar 2006 15:33:08 -0800 Subject: [San-Diego-pm] Recurse through trees In-Reply-To: <28e00a750603171530x2488a5d8hda993cb0c663ef7c@mail.gmail.com> References: <441079bd0603152204h1caa3fefj7249e4831967b0e4@mail.gmail.com> <28e00a750603170656k683729acp4efb5c207fd4eae3@mail.gmail.com> <86wtetyu4s.fsf@blue.stonehenge.com> <28e00a750603171530x2488a5d8hda993cb0c663ef7c@mail.gmail.com> Message-ID: <8664mcy7d7.fsf@blue.stonehenge.com> >>>>> "Emile" == Emile Aben writes: Emile> but datadumping $stash->get('html_node_visitor') finds this is an 'undef'? Ahh, that's an invocation. Try adding a backslash in front of html_node_visitor as in: [% tree.traverse(\html_node_visitor) %] And when I say "try", I mean "I have no frigging idea if this works but I saw it once in the docs and maybe it'll help here". :-) -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! From emileaben at gmail.com Fri Mar 17 15:52:50 2006 From: emileaben at gmail.com (Emile Aben) Date: Fri, 17 Mar 2006 15:52:50 -0800 Subject: [San-Diego-pm] Recurse through trees In-Reply-To: <8664mcy7d7.fsf@blue.stonehenge.com> References: <441079bd0603152204h1caa3fefj7249e4831967b0e4@mail.gmail.com> <28e00a750603170656k683729acp4efb5c207fd4eae3@mail.gmail.com> <86wtetyu4s.fsf@blue.stonehenge.com> <28e00a750603171530x2488a5d8hda993cb0c663ef7c@mail.gmail.com> <8664mcy7d7.fsf@blue.stonehenge.com> Message-ID: <28e00a750603171552q474c38a7jd736c39ba0234d53@mail.gmail.com> > Emile> but datadumping $stash->get('html_node_visitor') finds this is an 'undef'? > > Ahh, that's an invocation. Try adding a backslash in front of > html_node_visitor as in: > > [% tree.traverse(\html_node_visitor) %] That's slightly better in that it doesn't produce an error message, doesn't produce html either :p > And when I say "try", I mean "I have no frigging idea if this works but > I saw it once in the docs and maybe it'll help here". > > :-) Reread the Template Toolkit basics some more and have become more and more convinced that this goes wrong because the html_node_visitor MACRO/CODEref gets invoked/evaluated before it gets passed to the tree to traverse. Bummer, so looks like either I go back to my old code or write an alternative template-stash that let's me delay code execution. Hmmm, which one would my boss like more ... emile From rkleeman at energoncube.net Mon Mar 20 15:49:52 2006 From: rkleeman at energoncube.net (Bob Kleemann) Date: Mon, 20 Mar 2006 15:49:52 -0800 Subject: [San-Diego-pm] The March Mingle IS Two Days Away! (fwd) Message-ID: <20060320234952.GJ26520@energoncube.net> I'm planning on going, as this could be a good way to mingle with much of the rest of San Diego tech community. ----- Forwarded message from Cameron Childress ----- The March Mingle's right around the corner! 150 people have already sent in an RSVP! If you haven't recently done so, I'd appreciate it if you would send out a reminder email to SD PERL Mongers today! When: Wed, March 22nd, 5:30PM - 9:00PM Where: Dave and Busters (map @ marchmingle.com) Cost: Free Finger Food (Cash Bar) RSVP/Info: http://www.marchmingle.com Sponsors: Adobe (adobe.com) Microsoft (microsoft.com) Robert-Half (rht.com) GroundWork Open Source (groundworkopensource.com) Last year, SD PERL Mongers was among the 20 different San Diego User Groups which participated in the second annual March Mingle. About 200 people attended the event and it was a great success, largely due to strong support from the participating User and Technology Interest Groups. Consider this an official invitation for the SD PERL Mongers to join us again at the Third Annual March Mingle. Just like last year, the March Mingle is a technology agnostic event that brings together developers of all kinds, a sort of annual "Technology Woodstock" or "Ultimate Geek Happy Hour" for San Diego. No sales or technical presentations, just talking shop and munching on finger food while relaxing and enjoying the games and atmosphere. Thanks to our sponsors, we will have a buffet of finger food and plenty of door prizes, including software and books. If you have any questions or comments, please call my cell, AIM or Email me! Hope to see your group there! -Cameron President, San Diego ColdFusion User Group --- cell: 678.637.5072 aim: cameroncf email: cameronc at mindspring.com ----- End forwarded message ----- From david.romano at gmail.com Mon Mar 20 22:17:25 2006 From: david.romano at gmail.com (David Romano) Date: Mon, 20 Mar 2006 22:17:25 -0800 Subject: [San-Diego-pm] The March Mingle IS Two Days Away! (fwd) In-Reply-To: <20060320234952.GJ26520@energoncube.net> References: <20060320234952.GJ26520@energoncube.net> Message-ID: <441079bd0603202217k453e918dw657836a8abee5c3@mail.gmail.com> On 3/20/06, Bob Kleemann wrote: > I'm planning on going, as this could be a good way to mingle with much > of the rest of San Diego tech community. I'm planning on going too. Anyone else up for it? David From emileaben at gmail.com Thu Mar 23 13:06:29 2006 From: emileaben at gmail.com (Emile Aben) Date: Thu, 23 Mar 2006 13:06:29 -0800 Subject: [San-Diego-pm] Larry Wall in SD Message-ID: <28e00a750603231306r518dee5am9b53d6b305da58f6@mail.gmail.com> Hi, somebody pasted this blurp of info to me: Come hear Larry Wall speak about Perl and language development on Saturday, April 8, 2006. The event will be at Point Loma Nazarene University here in San Diego. This is part of a CS/IS Conference being co-sponsored by the SDACM. To get further information about the conference and to register go to http://www.mics.ptloma.edu/UCISC06/index.php emile