regexp

[Roman Vasicek]

Ahoj,
 co takhle pouzit rekurzi?

sub konverze {
    return(($_[0] =~ /^(.+)00$/) ? konverze($1).'**' : $_[0]);
}


On Fri, 19 Sep 2003, Petr Vileta wrote:

[...]
>
> sub konverze
> {
> $k=reverse($_[0]);
> $k=~s/0{2}/**/g;
> return reverse($k);
> }
>
> ale nejsem s tim vubec spokojeny. Neslo by to napsat chytreji?
>

-- 
 best regards
  Ing. Roman Vasicek

 software developer
+----------------------------------------------------------------------------+
 PetaMem s.r.o., Ocelarska 1, 190 00 Praha 9 - Liben, Czech republic
 http://www.petamem.com/