Slozitejsi nahrazovani retezcu

Ivo Kocvara xkocvara na fi.muni.cz
Pátek Leden 25 13:56:00 CET 2002


Pavel Lisy wrote:
> 
> Dobry den
... 
> Potom jsem se to zkoušel přepsat do perlu, ale nevím, jak docílit toho,
> že se mi nahrazující řetězec napřed zpracuje mojí funkcí: 
> -------
...
> while ( defined($line=<INFILE>) ) {
>    $line =~ s/(\d{4})-(\d{2})-(\d{2})/&correctdate($1:$2:$3)/e;
                                                              ^^^
"e" jako "Evaluate the right side as an expression."

Pak taky ta funkce correctdate() musi vracet hodnotu, kterou to chcete nahradit
("return", ne "print"). A jeste parametry se oddeluji carkou
"&correctdate($1,$2,$3)"

--
ivo kocvara

>    print OUTFILE $line;
> }
> close(OUTFILE);
> close(INFILE);
> ---------
> 
> Uvítám každý pokus :-)
> 
> Pavel
>


Další informace o konferenci Linux