#keywords Perl,trim,공백제거,함수
공백을 제거하려면 아래 두 단계를 거치는 방법이 훨씬 빠르다.
{{{#!gcode
&trim(1);

sub trim {
  my $string = $_[0];

  for ($string) {
    s/^\s+//;
    s/\s+$//;
  }
  return $string;
}
}}}
한 줄 [정규표현식]으로는 아래와 같이도 쓸 수 있다.
{{{#!gcode
$string =~ s/^\s*(.*?)\s*$/$1/;
}}}
----
{{{
' CA1001    ' -> 'CA1001'
}}}