cgi perlでtrim実装

前後のスペースを削除する関数作って使う

$val = '  foo  ';
$val = trim($val);

sub trim {
	my $val = shift;
	$val =~ s/^ *(.*?) *$/$1/;
	return $val;
}