Re: Erasing redundant newlines, spaces and tabs

[Denis Barbier <nospam@thanx>]

On Tue, 14 Dec 1999, Xose Manoel Ramos wrote:

> I am trying to do this. 
> 
> Origin:
> 
>    This
>       is
>        just
>          a 
>           test
> 
> Result:
> 
>  This is just a test
> 
> I am using this little ePerl code:
> 
> <define-container clean>
> <:
>  $kk="%body";
>  $kk =~ s/[\n\s]+/ /g ;
>  print $kk;
> :>
> </define-container>
> 
> Is there a better, safer or faster way to do this? 

<define-container clean>
#  inside brackets, put a space, a tab and a newline
<subst-in-string %qbody "[      
]+" " ">
</define-container>

-- 
Denis Barbier
WML Maintainer

______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com