regexp

[Honza Pazdziora]

On Fri, Sep 19, 2003 at 11:31:08AM +0200, Roman Vasicek wrote:
>  co takhle pouzit rekurzi?
> 
> sub konverze {
>     return(($_[0] =~ /^(.+)00$/) ? konverze($1).'**' : $_[0]);
> }

Prijde mi to jako zbytecny kanon na vrabce. Pouzil bych na to jeden
regularni vyraz:

	s/((00)+)$/ '*' x length($1) /e;

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
		Only self-confident people can be simple.