Efektivita

[Jindra Vavruska]

Dne St, 20 leden 1999 jste napsal(a):
>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

#!/usr/bin/perl
$something = "  pánové, to je ale frk...    	";
$something =~ s/(^\s*|\s*$)//g ;
print "<$something>\n";

# vytiskne <pánové, to je ale frk...>

--
Jindra Vavruska (OK1FOU)
Linux is good for me