Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^13: Thanks to Ikegami, Chromatic & Corion

by Logicus
on Nov 03, 2011 at 01:33 UTC ( #935540=note: print w/replies, xml ) Need Help??


in reply to Re^12: Thanks to Ikegami, Chromatic & Corion
in thread Thanks to Ikegami, Chromatic & Corion

I tend not to put any HTML into the plugin code, but instead send it to the plugin from the document level.

<ul> <some_list_creating_plugin> <li><some_marker></li> </some_list_creating_plugin> </ul> some_list_creating_plugin => sub { my @list = ['foo','bar','baz']; my $mask = $_[0]; my $result; foreach my $item (@list) { my $maskCopy = $mask; $maskCopy =~ s@<some_marker>@$item@gs; push (@results, $maskCopy); } return join (@results); } output ------ <ul> <li>foo</li> <li>bar</li> <li>baz</li> </ul>

Replies are listed 'Best First'.
Re^14: Thanks to Ikegami, Chromatic & Corion
by ikegami (Pope) on Nov 03, 2011 at 01:54 UTC

    $maskCopy =~ s@<some_marker>@$item@gs;

    But what if $item was HTML from a database instead of being hardcoded aXML...

      Well you wouldn't want to be putting the <ul> tags in then.

      Ok so...

      If our database looked like this

      pageid int primary key auto_increment, name varchar(255), html text Then (db_get)pages.name="(sqd)name(/sqd)".html(/db_get)

      Then localhost:5000?action=test&name=homepage will be displaying the contents of the html column of the pages db.

        Did your post get cut short? You were trying to prove to me that your plugin wasn't buggy.

        Or are you saying that the result of (plugin)(/plugin) isn't searched for tags? I thought it was the same as <plugin></plugin> except for precedence.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://935540]
help
Chatterbox?
[oiskuu]: Someone needs to re-read How do I use the power of consideration responsibly? carefully. Consideration is not intended for stamping out humor, AFAIK.
[oiskuu]: E.g. Re^3: Big thank you to the Perl community. is surely dry humor (not mine). Don't they teach humor in german schools!?

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (10)
As of 2017-04-27 19:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (512 votes). Check out past polls.