Re^2: perlmonks downloadable code blocks

That's pretty snazzy. And I guess I could modify the code inline as well with something like this:

my $match = 0;
my $post_body = ...from db...;
$match++ while $post_body =~ s/<c>(.*?)<\/c>/<a href='download?part=$m
+atch'>Download Me<\/a><pre>$1<\/pre>/i;
[download]

Comment on Re^2: perlmonks downloadable code blocks Download Code

Replies are listed 'Best First'.
Re^3: perlmonks downloadable code blocks by ikegami (Patriarch) on Apr 11, 2008 at 07:55 UTC
PM does a bit more than that — it escapes "<", ">" and "&", at least — but that's the idea. By the way, I'd add the "`g`" modifier to your `s///`. There's no reason to search from the start of the string every pass.	[reply] [d/l] [select]
Re^4: perlmonks downloadable code blocks by debiandude (Scribe) on Apr 11, 2008 at 09:19 UTC
Well if I use the global "/g" modifier it will replace all of my tags at once and $i will never be incremented.	[reply]
Re^5: perlmonks downloadable code blocks by ikegami (Patriarch) on Apr 11, 2008 at 10:23 UTC
True, unless you get rid of the `while` entirely. The first paragraph of `s///` documentation reads: (Emphasis mine) Searches a string for a pattern, and if found, replaces that pattern with the replacement text and returns the number of substitutions made. So you get `my $post_body = ...from db...; my $match = s/.../.../ig;` [download] By the way, I don't think `$match` should be singular. `$matches` is better but not nearly as descriptive as something like `$num_blks`.	[reply] [d/l] [select]