Efektivita

[Jindra Vavruska]

Dne St, 20 leden 1999 jste napsal(a):
>> 
>> Da se to urcite napsat efektivneji. Jak?
>> 
>> sub rtrim()
>> {
>> 	my $string = shift @_;
>> 
>> 	while( $string =~ s/\s$//g )
>> 	{
>> 	}
>> 
>> 	return $string;
>> }
>> 
>> ltrim se lisi jen regexpu s/^\s//g
>> 
>> Fce trim (orezani z obou stran) je &rtrim( &ltrim ( $string ));
>> 
>> Cau,
>
>
>	$string =~ s/\s+$//;

tohle ale vypusti mezeru, at je na kraji nebo uprostred, ne?

Tobyasitentextnevypadalmochezky...

Teda, jestli jsem spravne pochopil co je v M$ Vydudal Basicu funkce (r|l)trim

>
>Bez toho while. A muzete zkusit use Benchmark na porovnani, jestli je
>lepsi shift @_ nebo $_[0].
>
>Na druhou stranu, pokud to opravdu nepotrebujete jako funkci, tak je
>bezne to psat v Perlu primo do kodu a nevolat na to funkce.
>
>------------------------------------------------------------------------
> Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
> The total number of bytes in all expressions in the GROUP BY clause is
> limited to the size of a data block minus some overhead. --Oracle SQL Ref.
>------------------------------------------------------------------------
--
Jindra Vavruska (OK1FOU)
Linux is good for me