Efektivita

[Jindrich Kubec]

Hi!

Potreboval jsem ekvivalent funkci rtrim, ltrim. (orezani whitespace
znaku zprava/zleva).

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,
-- 
Jindrich Kubec <kubecj na asw.cz>
For Atari utils check http://www.asw.cz/~kubecj