SPUG: multi-line substition, all at once.

[Ryan Corder]

On Wed, Jun 24, 2009 at 07:48:22PM -0700, Charles DeRykus wrote:
| Er, wouldn't this work even with the added qualification:
| 
| $code = "[code]${code}[\\code]";
| $code =~ s/^ ://gm;

No, that's the same problem.  I can't just wrap the entirety of $code
inside [code] tags.  Using your example and if $code contained the following:

my $code=<<__CODE__;
foo bar
baz

 :    sub hello {
 :        say "Hello World!";
 :    }
asdf
snap
crackle
pop
__CODE__

The output would like like this:

    [code]foo bar
    baz
    
        sub hello {
            say "Hello World!";
        }
    asdf
    snap crackle
    pop
    [/code]

which doesn't work for me.  I need to insert the [code] tags on either
side of the substitution, inline with any content that may already be there.


-- 
Ryan Corder                  ||     () ASCII ribbon campaign
<ryanc at greengrey.org>     ||     /\  against HTML email
http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x1CB59D69
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 195 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20090625/cf2a05ab/attachment.bin>