From Wiki

Perl: TrimWhiteSpaces

Satır sonlarındaki ve başlarındaki boşlukların temizlenmesi:


$str = " sfsfsa ";
trimwhitespace($str);

sub trimwhitespace($)
{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}

Retrieved from http://kozgun.net/wiki/pmwiki.php?n=Perl.TrimWhiteSpaces
Page last modified on September 25, 2005, at 11:38 PM