공백을 제거하려면 아래 두 단계를 거치는 방법이 훨씬 빠르다.
&trim(1); sub trim { my $string = $_[0]; for ($string) { s/^\s+//; s/\s+$//; } return $string; }
한 줄
정규표현식
으로는 아래와 같이도 쓸 수 있다.
$string =~ s/^\s*(.*?)\s*$/$1/;
' CA1001 ' -> 'CA1001'
Perl
trim
공백제거
함수
Retrieved from http://hyacinth.byus.net/moniwiki/wiki.php/Perl/공백 제거 trim 함수
last modified 2011-04-26 23:58:30