[Jax.PM] Wake up =)

[Aaron Johnson]

On Sun, 2003-08-31 at 20:32, iudicium ferat wrote:
> [a jax.PM member posting]
> > What is wrong with this code?
> > > 
> > > s{ <!(.*?)(--.*?--\s*)+(.*?)> }{ if ($1 || $3) "<!$1 $3>"; } }gesx;
> > > 
> > 
> > It appears that you are attempting to remove HTML comments.
> > One problem I see is that it isn't striping the <! and > from the HTML.
> 
> Nope, when used as part of the original code, it hangs on the HTML test case...
> 

Quite right, not sure what I was thinking.

> > > 
> > > BONUS:
> > > Where did I steal it from?
> > > 
> > 
> > TPJ Issue 1?
> 
> 
> Great guess  :)  But actually this code came from Tom Christenens site at
> 
> http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/
> 

It does appear in TPJ issue 1 as well however.

> 
> (And no, it isnt broken there - I removed a { prior to posting.)
> 
> Cheers!
> -Sx-
> 
> 
> _______________________________________________
> Jacksonville-pm mailing list
> Jacksonville-pm at mail.pm.org
> http://mail.pm.org/mailman/listinfo/jacksonville-pm